40 lines
1.1 KiB
EmacsLisp
40 lines
1.1 KiB
EmacsLisp
(defun me/org-mode ()
|
|
"My custom configuration for 'org-mode'."
|
|
(olivetti-mode)
|
|
(olivetti-set-width 80)
|
|
(company-mode -1)
|
|
(setq cursor-type 'bar)
|
|
)
|
|
(add-hook 'org-mode-hook 'me/org-mode)
|
|
|
|
(defun me/write ()
|
|
(get-buffer-create "*Writing Mode*")
|
|
(switch-to-buffer "*Writing Mode*")
|
|
(org-mode))
|
|
|
|
(setq-default
|
|
functions-file (concat (or (getenv "XDG_CONFIG_HOME") "~/.emacs.d/") "kustomize.el"))
|
|
(when (file-exists-p functions-file)
|
|
(load functions-file))
|
|
|
|
(setq-default
|
|
functions-file (concat (or (getenv "XDG_CONFIG_HOME") "~/.emacs.d/") "tclip.el"))
|
|
(when (file-exists-p functions-file)
|
|
(load functions-file))
|
|
|
|
(defun me/read ()
|
|
"Custom mode optimised for reading shit."
|
|
(interactive)
|
|
(setq buffer-face-mode-face '(:family "Noto Sans" :height 120))
|
|
(setq line-spacing 0.3)
|
|
(buffer-face-mode))
|
|
(defun me/code ()
|
|
"Custom mode optimised for coding shit."
|
|
(interactive)
|
|
(setq buffer-face-mode-face '(:family "Jetbrains Mono" :height 120))
|
|
(setq line-spacing nil)
|
|
(buffer-face-mode))
|
|
|
|
(global-set-key (kbd "C-c r") 'me/read)
|
|
(global-set-key (kbd "C-c d") 'me/code)
|