howard/hamacs
howard/hamacs
1
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Tweaks to the display of Org files

Browse source
This commit is contained in:
Howard Abrams 2024-10-19 13:42:17 -07:00
parent bc06c77df5
commit db4c460453
1 changed files with 5 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
ha-org-word-processor.org
View file

@ -275,16 +275,15 @@ Well, using the =composition-function-table=, we can finally get some ligatures
#+end_src #+end_src
This is now fine and ffantastic! This is now fine and ffantastic!
* Org Beautify * Org Beautify
I really want to use the Org Beautify package, but it overrides my darker themes (and all I really want is headlines to behave). The Org Beautify package, overrides my darker themes, and headlines should behave, so I manually set these:
#+begin_src emacs-lisp #+begin_src emacs-lisp
(defun ha-word-processor-fonts () (defun ha-word-processor-fonts ()
"Configure `org-mode' fonts and faces." "Configure `org-mode' fonts and faces."
(interactive) (interactive)
(when window-system (when window-system
;; First step is to make all Org header levels to use the variable ;; First step is to make all Org header levels to use the variable
;; font, and be the same color as the default text: ;; font, and be the same color as the default text:
(let ((default-color (face-attribute 'default :foreground))) (let ((default-color (face-attribute 'default :foreground)))
(dolist (face '(org-level-1 org-level-2 org-level-3 org-level-4 (dolist (face '(org-level-1 org-level-2 org-level-3 org-level-4
org-level-5 org-level-6 org-level-7 org-level-8)) org-level-5 org-level-6 org-level-7 org-level-8))
@ -301,13 +300,9 @@ I really want to use the Org Beautify package, but it overrides my darker themes
(dolist (face '(org-block org-code org-verbatim org-table org-drawer (dolist (face '(org-block org-code org-verbatim org-table org-drawer
org-table org-formula org-special-keyword org-block org-table org-formula org-special-keyword org-block
org-property-value org-document-info-keyword)) org-property-value org-document-info-keyword))
(set-face-attribute face nil :inherit 'fixed-pitch :height 0.9)) (set-face-attribute face nil :inherit 'fixed-pitch :height 'unspecified))
;; While we are at it, let’s make sure the code blocks are using my fixed with font: (set-face-attribute 'org-block-begin-line nil :height 0.85)
(set-face-attribute 'org-table nil :height 1.0)
(set-face-attribute 'org-formula nil :height 1.0)
(set-face-attribute 'org-block-begin-line nil :height 0.9)
(set-face-attribute 'org-block-end-line nil :height 0.8) (set-face-attribute 'org-block-end-line nil :height 0.8)
(set-face-attribute 'org-drawer nil :height 0.8) (set-face-attribute 'org-drawer nil :height 0.8)