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

Fix minor issue in Markdown render

Browse source
This commit is contained in:
Howard Abrams 2024-07-07 11:43:46 -07:00
parent 7b4e7c4ab3
commit 0de35fbac9
1 changed files with 10 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
ha-programming.org
View file

@ -1184,16 +1184,16 @@ With the =markdown-header-scaling= set, we no longer need to color the headers i
:foreground (face-attribute 'font-lock-comment-face :foreground))
(set-face-attribute 'markdown-header-face nil
:font ha-variable-header-font
:foreground default-color))
(when window-system
(dolist (level '(1 2 3 4))
(let ((md-level (make-face (make-symbol (format "markdown-header-face-%d" level))))
(org-level (nth (1- level) org-level-faces)))
(message "Setting %s size %.1f to %s" org-level (face-attribute org-level :height) md-level)
(print `(set-face-attribute ,md-level nil
:height ,(face-attribute org-level :height)))
(set-face-attribute md-level nil
:height (face-attribute org-level :height))))))
:foreground default-color)
(when window-system
(dolist (level '(1 2 3 4))
(let ((md-level (make-face (make-symbol (format "markdown-header-face-%d" level))))
(org-level (nth (1- level) org-level-faces)))
(message "Setting %s size %.1f to %s" org-level (face-attribute org-level :height) md-level)
(print `(set-face-attribute ,md-level nil
:height ,(face-attribute org-level :height)))
(set-face-attribute md-level nil :foreground default-color
:height (face-attribute org-level :height)))))))
#+end_src