marrub
/
scripts
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

emacs: make org-mode look nicer

master
an 2020-02-06 01:48:10 -05:00
parent 156b9d41d0
commit f8fdd193cc
1 changed files with 23 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
emacs/init.el
View File

@ -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