extra => custom

modules/custom-write.el

@@ -0,0 +1,51 @@
+;; custom-write.el
+
+;; This library offers the following:
+;;   + Write-mode: a mode that turns Emacs into an app for writing notes,
+;;     papers, or fiction: it adds eye-candy to org-mode, switches to a light
+;;     color theme and to a more readable font.
+;;   + Bibtex integration
+
+;; Write-mode settings
+(defconst write-mode-theme 'doom-one)
+(defconst write-mode-font (font-spec :family "Source Sans Pro" :size 14))
+
+(defconst write-mode--last-mode-line mode-line-format)
+(defconst write-mode--last-theme doom-current-theme)
+(defconst write-mode--last-line-spacing line-spacing)
+
+(after! spaceline
+  (spaceline-compile
+   'write
+   '(((*macro-recording *anzu *iedit *evil-substitute *flycheck)
+      :skip-alternate t
+      :tight t)
+     *buffer-path
+     *buffer-modified)
+   '((*selection-info :when active)
+     *buffer-encoding-abbrev
+     (global :when active)
+     *buffer-position
+     *pad)))
+
+(defvar write-mode nil)
+(defun doom/write-mode ()
+  "A mode that turns Emacs into an app for writing notes, papers, or fiction: it
+adds eye-candy to org-mode, switches to a light color theme and to a more
+readable font."
+  (interactive)
+  (setq write-mode (not write-mode))
+  (when write-mode-theme
+    (doom/load-theme (if write-mode write-mode-theme write-mode--last-theme) t))
+  (when write-mode-font
+    (doom/load-font (if write-mode write-mode-font doom-default-font)))
+  (mapc (lambda (b)
+          (with-current-buffer b
+            (setq line-spacing (if write-mode write-mode--last-line-spacing '2))
+            (when (featurep 'spaceline)
+              (let ((doom-hide-mode-line-format '("%e" (:eval (spaceline-ml-write)))))
+                (doom-hide-mode-line-mode (if write-mode +1 -1))))))
+        (doom/get-buffers-in-modes '(org-mode markdown-mode))))
+
+(provide 'custom-write)
+;;; custom-write.el ends here