fix(emacs): make org variable-pitch and tune display-line-numbers

Signed-off-by: Lucas Sta Maria <lucas@priime.dev>

.emacs.d/include/priime-general.el

@@ -61,16 +61,22 @@
   (let ((amt (or arg 1)))
     (scroll-right amt)))
 
+(defun priime-display-relative ()
+  "Display relative line numbers."
+  (display-line-numbers-mode 1)
+  (setq display-line-numbers 'relative))
+
+(defun priime-display-fixed ()
+  "Display fixed line numbers."
+  (display-line-numbers-mode 1)
+  (setq display-line-numbers t))
+
 (defun priime-toggle-line-numbers ()
   "Toggle the display of line numbers."
   (interactive)
-  (cond ((equal display-line-numbers t)
-         (setq display-line-numbers 'relative))
-        ((equal display-line-numbers 'relative)
-         (setq display-line-numbers t))
-        (t
-         (display-line-numbers-mode 1)
-         (setq display-line-numbers t))))
+  (cond ((equal display-line-numbers t) (priime-display-relative))
+        ((equal display-line-numbers 'relative) (priime-display-fixed))
+        (t (priime-display-fixed))))
 
 (defun download-file (&optional url filepath)
   "Download the file from URL to FILEPATH."
@@ -105,7 +111,6 @@
   (visible-bell nil)
   (ring-bell-function 'ignore)
   (initial-scratch-message nil)
-  (display-line-numbers 'relative)
   (split-height-threshold
    (cond ((string= (system-name) "framework") 100)
          (t 80)))
@@ -145,6 +150,9 @@
   (("C-v" . View-scroll-half-page-forward)
    ("M-v" . View-scroll-half-page-backward))
 
+  :hook
+  ((prog-mode . priime-display-relative))
+
   :init
   (menu-bar-mode -1)
   (tool-bar-mode -1)

.emacs.d/include/priime-org.el

@@ -126,7 +126,8 @@
   :hook
   ((org-mode . auto-save-mode)
    (auto-save . org-save-all-org-buffers)
-   (org-agenda-finalize-hook . org-modern-agenda))
+   (org-agenda-finalize-hook . org-modern-agenda)
+   (org-mode . variable-pitch-mode))
   :init
   (keymap-global-set "C-c o" org-roam-keymap)
   (org-babel-do-load-languages