[emacs] [fonts] Add Noto Serif and org-mode serif fonts

emacs/.config/doom/config.org

@@ -21,15 +21,16 @@ I change my default theme almost as often as the weather. I tend to revert back
 to Doom One most of the time, but I like the Kaolin themes, as well as Nimbus
 for it's retro charm. Nimbus just doesn't look great when I'm tired though.
 
-I love [[https://blog.golang.org/go-fonts][Go Mono]]. But sometimes Emacs is sensitive to fonts and performance
-suffers, so we have Fira Mono to fall back on.
+I love [[https://blog.golang.org/go-fonts][Go Mono]]. But sometimes Emacs is sensitive 
+to fonts and performance suffers, so we have Fira Mono to fall back on.
 
 #+BEGIN_SRC emacs-lisp
-(setq doom-font (font-spec :family "FuraCode Nerd Font Mono" :size 12))
-(setq doom-big-font (font-spec :family "FuraCode Nerd Font Mono" :size 17))
-(setq doom-theme 'doom-monokai-spectrum)
+(setq doom-font (font-spec :family "FuraCode Nerd Font Mono" :size 12)
+          doom-big-font (font-spec :family "FuraCode Nerd Font Mono" :size 17)
+          doom-variable-pitch-font (font-spec :family "Noto Serif" :size 12)
+          doom-serif-font (font-spec :family "FuraCode Nerd Font Mono")
+          doom-theme 'srcery)
 #+END_SRC
-
 ** Borders
 Barring the unfortunate end of X11 development and my eventual transition to
 wayland and sway, you can pry i3wm from my cold, dead hands. One problem,
@@ -38,14 +39,14 @@ border.
 
 #+BEGIN_SRC emacs-lisp
 ;; Applies to current frame
-(set-frame-parameter nil 'internal-border-width 20) ; applies to the current frame
+(set-frame-parameter nil 'internal-border-width 30) ; applies to the current frame
 ;; If we create new frames (via emacsclient) this will do the trick
-(add-to-list 'default-frame-alist '(internal-border-width . 20))
+(add-to-list 'default-frame-alist '(internal-border-width . 30))
 ;; Dash highlighting
 (after! dash (dash-enable-font-lock))
 #+END_SRC
 ** Dash
-I need to figure out what this doesr, hence the task below.
+I need to figure out what this does, hence the task below.
 #+BEGIN_SRC emacs-lisp
 ;; Dash highlighting
 (after! dash (dash-enable-font-lock))
@@ -211,16 +212,45 @@ Helpful modes to make working less painful.
 #+END_SRC
 * Org-mode
 ** Basic configuration
+
+Do I use deft? Not really. Every once in a while I think I will. This makes sure
+it works when I get an impulse.
 #+BEGIN_SRC emacs-lisp
-;; tools/deft
 (setq deft-extensions '("org"))
 (setq deft-directory "~/org")
+#+END_SRC
 
+A handful of mods here clean up org mode. Line numbers don’t mean much when
+you’re folding and unfolding all the time. I also really enjoy the typography of
+a serif font when I’m writing a lot of words.
+
+#+BEGIN_SRC emacs-lisp
+(add-hook 'org-mode-hook #'doom-disable-line-numbers-h)
+(add-hook 'org-mode-hook 'typo-mode)
+; For org mode serif
+(add-hook 'org-mode-hook 'variable-pitch-mode)
+(add-hook 'org-mode-hook
+            '(lambda ()
+               (mapc
+                (lambda (face) ;; Other fonts with fixed-pitch.
+                  (set-face-attribute face nil :inherit 'fixed-pitch))
+                (list 'org-link
+                      'org-block
+                      'org-table
+                      'org-block-begin-line
+                      'org-block-end-line))))
+
+(add-hook 'org-mode-hook #'auto-fill-mode)
+(remove-hook 'org-mode-hook #'word-wrap-mode)
+#+END_SRC
+
+#+BEGIN_SRC emacs-lisp
 (after! org
   (setq org-directory (expand-file-name "~/org/")
         org-agenda-files (list org-directory)
         org-agenda-window-setup 'only-window
         org-pretty-entities t
+        org-agenda-dim-blocked-tasks nil
         org-log-done 'time
         org-fontify-whole-heading-line t
         org-fontify-done-headline t
@@ -245,6 +275,10 @@ Helpful modes to make working less painful.
                       org-drill
                       org-id)))
 
+;; Don’t display git gutter in org mode
+(after! git-gutter
+  (setq git-gutter:disabled-modes '(org-mode image-mode)))
+
 ;; Refiling
 (setq org-refile-targets '((nil :maxlevel . 9)
                                 (org-agenda-files :maxlevel . 9)))

emacs/.config/doom/init.el

@@ -18,20 +18,20 @@
        doom              ; what makes DOOM look the way it does
        doom-dashboard    ; a nifty spash screen for Emacs
        doom-quit         ; DOOM quit-message prompts when you quit Emacs
-       ;;fill-column       ; a `fill-column' indicator
+       ;;fill-column     ; a `fill-column' indicator
        hl-todo           ; highlight TODO/FIXME/NOTE/DEPRECATED/HACK/REVIEW
        ;;hydra
-       ;;indent-guides     ; highlighted indent columns
+       ;;indent-guides   ; highlighted indent columns
        modeline          ; snazzy, Atom-inspired modeline, plus API
        nav-flash         ; blink the current line after jumping
-       ;;neotree           ; a project drawer, like NERDTree for vim
+       ;;neotree         ; a project drawer, like NERDTree for vim
        ophints           ; highlight the region an operation acts on
        (popup            ; tame sudden yet inevitable temporary windows
         +all             ; catch all popups that start with an asterix
         +defaults)       ; default popup rules
        ;;(pretty-code +fira)       ; replace bits of code with pretty symbols
-       ;;tabbar            ; FIXME an (incomplete) tab bar for Emacs
-       ;;treemacs          ; a project drawer, like neotree but cooler
+       ;;tabbar          ; FIXME an (incomplete) tab bar for Emacs
+       treemacs        ; a project drawer, like neotree but cooler
        unicode           ; extended unicode support for various languages
        vc-gutter         ; vcs diff in the fringe
        vi-tilde-fringe   ; fringe tildes to mark beyond EOB

emacs/.config/doom/packages.el

@@ -62,6 +62,7 @@
 (package! mastodon)
 (package! magit-circleci)
 (package! smog)
+(package! writeroom-mode)
 
 ;; pretty tings up
 (package! srcery-theme)