diff options
Diffstat (limited to 'modules/org-appearance-config.el')
| -rw-r--r-- | modules/org-appearance-config.el | 64 |
1 files changed, 64 insertions, 0 deletions
diff --git a/modules/org-appearance-config.el b/modules/org-appearance-config.el new file mode 100644 index 00000000..7522b5c5 --- /dev/null +++ b/modules/org-appearance-config.el @@ -0,0 +1,64 @@ +;;; org-appearance-config.el --- Org-Mode UI Appearance Settings -*- lexical-binding: t; -*- + +;;; Commentary: +;; + +;;; Code: + +(with-eval-after-load 'org + + ;; face settings need to be called every time org mode is loaded. + (defun cj/set-org-face-settings() + "Sets foreground, background, and font styles for org mode. +To be called every time org is loaded." + (interactive) + ;; org-hide should use fix-pitch to align indents for proportional fonts + (set-face-attribute 'org-hide nil :inherit 'fixed-pitch) + (set-face-attribute 'org-meta-line nil :inherit 'shadow) + + ;; Remove foreground and background from block faces + (set-face-attribute 'org-block nil :foreground 'unspecified :background 'unspecified) + (set-face-attribute 'org-block-begin-line nil :foreground 'unspecified :background 'unspecified) + (set-face-attribute 'org-block-end-line nil :foreground 'unspecified :background 'unspecified) + + ;; Get rid of the background on column views + (set-face-attribute 'org-column nil :background 'unspecified) + (set-face-attribute 'org-column-title nil :background 'unspecified) + + ;; make sure org-links are underlined + (set-face-attribute 'org-link nil :underline t) + + ;; remove hook after first run to avoid calling function everytime a frame is made + (if (daemonp) + (remove-hook 'server-after-make-frame-hook #'cj/set-org-face-settings))) + + ;; if emacsclient, setup hook to run font settings function, otherwise, run it now + (if (daemonp) + (add-hook 'server-after-make-frame-hook #'cj/set-org-face-settings) + (cj/set-org-face-settings)) + + + ;; settings need to be called only once + (setq org-ellipsis " ▾") ;; change ellipses to down arrow + (setq org-hide-emphasis-markers t) ;; remove emphasis markers to keep the screen clean + (setq org-hide-leading-stars t) ;; hide leading stars, just show one per line + (setq org-pretty-entities t) ;; render special symbols + (setq org-pretty-entities-include-sub-superscripts nil) ;; ...except superscripts and subscripts + (setq org-fontify-emphasized-text nil) ;; ...and don't render bold and italic markup + (setq org-fontify-whole-heading-line t) ;; fontify the whole line for headings (for face-backgrounds) + (add-hook 'org-mode-hook 'prettify-symbols-mode) + + + + ;; nicer bullets than simple asterisks. + (use-package org-superstar + :after org + :config + (org-superstar-configure-like-org-bullets) + (setq org-superstar-leading-bullet ?\s) + (add-hook 'org-mode-hook (lambda () (org-superstar-mode 1)))) + + ) ;; end with-eval-after-load + +(provide 'org-appearance-config) +;;; org-appearance-config.el ends here. |