From f8fdd193cc65c4ebc8d9e6fe6d4ff21381b4f0ec Mon Sep 17 00:00:00 2001
From: Alison Watson <marrub.xz@gmail.com>
Date: Thu, 6 Feb 2020 01:48:10 -0500
Subject: [PATCH] emacs: make org-mode look nicer

---
 emacs/init.el | 35 +++++++++++++++++++++++------------
 1 file changed, 23 insertions(+), 12 deletions(-)

diff --git a/emacs/init.el b/emacs/init.el
index 5d7d38e..de30ecc 100644
--- a/emacs/init.el
+++ b/emacs/init.el
@@ -22,7 +22,8 @@
 (setq fill-column 80
       sentence-end-double-space nil)
 
-(set-face-attribute 'variable-pitch nil :height 120 :family "Noto Sans")
+(set-face-attribute 'variable-pitch nil :height 120 :family "Source Sans Pro")
+(set-face-attribute 'fixed-pitch nil    :height 120 :family "Source Code Pro")
 
 ;; scrolling
 (setq scroll-conservatively 101
@@ -132,6 +133,7 @@
         org-hide-emphasis-markers t
         org-hide-leading-stars t
         org-hide-macro-markers t
+        org-image-actual-width nil
         org-indent-indentation-per-level 2
         org-list-indent-offset 2
         org-log-done '(note)
@@ -160,18 +162,27 @@
    :foreground "#aa573c"
    :weight     'bold
    :height     1.6)
-  (dolist (face '((org-level-1 outline-1 . 1.35)
-                  (org-level-2 outline-2 . 1.30)
-                  (org-level-3 outline-3 . 1.25)
-                  (org-level-4 outline-4 . 1.20)
-                  (org-level-5 outline-5 . 1.15)
-                  (org-level-6 outline-6 . 1.10)
-                  (org-level-7 outline-7 . 1.05)))
+  (font-lock-add-keywords 'org-mode
+                          '(("^ +\\([-*+]\\) "
+                             (0 (prog1 ()
+                                  (compose-region (match-beginning 1)
+                                                  (match-end       1)
+                                                  "•"))))))
+  (dolist (face '((org-level-1 outline-1 1.35 "#ff6161")
+                  (org-level-2 outline-2 1.30 "#ff9b61")
+                  (org-level-3 outline-3 1.25 "#fff861")
+                  (org-level-4 outline-4 1.20 "#81ff61")
+                  (org-level-5 outline-5 1.15 "#61ffb5")
+                  (org-level-6 outline-6 1.10 "#61c8ff")
+                  (org-level-7 outline-7 1.05 "#8161ff")
+                  (org-level-8 outline-8 1.00 "#ff61e2")))
     (set-face-attribute
-     (car face) nil
-     :inherit (car (cdr face))
-     :height  (cdr (cdr face))))
-  (set-face-attribute 'org-level-4 nil :foreground "dark slate blue"))
+     (nth 0 face) nil
+     :inherit (nth 1 face)
+     :height  (nth 2 face))
+    (set-face-attribute
+     (nth 1 face) nil
+     :foreground (nth 3 face))))
 
 (use-package org-bullets
   :ensure t