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

6
ha-programming.org
View file

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