gav451/emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Move `defface' forms to toplevel

Browse Source
This commit is contained in:
Gerard Vermeulen 2024-06-09 11:54:44 +02:00
parent cbbc3cf3aa
commit 686ac23749
1 changed files with 37 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
README.org
View File

@ -506,7 +506,6 @@ Scale all other faces with a height that is a real number."
#+caption: Shadow Org font-lock faces to improve the readability. #+caption: Shadow Org font-lock faces to improve the readability.
#+name: lst:shadow-org-font-lock-faces #+name: lst:shadow-org-font-lock-faces
#+begin_src emacs-lisp -n #+begin_src emacs-lisp -n
(with-eval-after-load 'emacs
;; Shadow two definitions in org-faces.el: ;; Shadow two definitions in org-faces.el:
(defface org-block (defface org-block
;; https://emacs.stackexchange.com/a/9604 answers: ;; https://emacs.stackexchange.com/a/9604 answers:
@ -542,14 +541,13 @@ verse and quote blocks are fontified using the `org-verse' and
,@(and (>= emacs-major-version 27) '(:extend t)) ,@(and (>= emacs-major-version 27) '(:extend t))
:background "#FFFFD0")) :background "#FFFFD0"))
"My face for tables." "My face for tables."
:group 'org-faces)) :group 'org-faces)
#+end_src #+end_src
#+caption[Shadow Emacs font-lock faces to improve the readability]: #+caption[Shadow Emacs font-lock faces to improve the readability]:
#+caption: Shadow Emacs font-lock faces to improve the readability. #+caption: Shadow Emacs font-lock faces to improve the readability.
#+name: lst:shadow-emacs-font-lock-faces #+name: lst:shadow-emacs-font-lock-faces
#+begin_src emacs-lisp -n #+begin_src emacs-lisp -n
(with-eval-after-load 'emacs
;; Shadow one definition in sh-script.el: ;; Shadow one definition in sh-script.el:
(defface sh-heredoc (defface sh-heredoc
'((((class color) (background dark)) '((((class color) (background dark))
@ -559,7 +557,7 @@ verse and quote blocks are fontified using the `org-verse' and
(t (t
(:weight bold))) (:weight bold)))
"My face to show a here-document." "My face to show a here-document."
:group 'sh-indentation)) :group 'sh-indentation)
(require 'org) (require 'org)
#+end_src #+end_src