(defun me/org-mode ()
  "My custom configuration for 'org-mode'."
  (olivetti-mode)
  (olivetti-set-width 80)
  ;(company-mode -1)
  ;(org-modern-mode)
  (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 "Berkeley 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)