diff --git a/README.org b/README.org index fb27a9f..751fd56 100644 --- a/README.org +++ b/README.org @@ -622,7 +622,8 @@ should be used depending on the source block language by setting, When `org-fontify-quote-and-verse-blocks' is not nil, text inside verse and quote blocks are fontified using the `org-verse' and -`org-quote' faces, which inherit from `org-block'.") +`org-quote' faces, which inherit from `org-block'." + :group 'org-faces) (defface org-table ;; https://emacs.stackexchange.com/a/9604 answers: @@ -635,7 +636,8 @@ verse and quote blocks are fontified using the `org-verse' and :inherit (fixed-pitch) ,@(and (>= emacs-major-version 27) '(:extend t)) :background "#FFFFD0")) - "My face for tables.")) + "My face for tables." + :group 'org-faces)) #+end_src #+caption[Shadow Emacs font-lock faces to improve the readability]: @@ -651,7 +653,8 @@ verse and quote blocks are fontified using the `org-verse' and (:foreground "magenta")) (t (:weight bold))) - "My face to show a here-document.")) + "My face to show a here-document." + :group 'sh-indentation)) (require 'org) #+end_src @@ -3067,7 +3070,7 @@ the user-friendliness of this facility to a level acceptable for my workflow: (ensure-package-installation 'engrave-faces) (defun org-latex-engraved-source-block-filter (data _backend _info) - "Replace \"Code\" with \"Breakable\" in non-floating environments. + "Replace \"Code\" with \"Breakable\" in non-floating DATA environments. Set `org-latex-engraved-preamble' to define a Breakable (non-floating) environment and an unbreakable Code (floating) environment." @@ -3382,7 +3385,7 @@ The following posts provide programming information: #+begin_src emacs-lisp -n :results silent ;; https://bitspook.in/blog/extending-org-mode-to-handle-youtube-paths/ (defun org-yt-emms-open (path) - "Open an \"YouTube\" link with `emms' using \"mpv\"." + "Open an \"YouTube\" PATH link with `emms' using \"mpv\"." (let ((url (format "https://www.youtube.com/watch?v=%s" path))) (require 'emms nil 'noerror) (emms-add-url url) @@ -3392,12 +3395,12 @@ The following posts provide programming information: (emms-playlist-mode-play-current-track))))) (defun org-yt-url-browse-open (path) - "Open an \"YouTube\" link with `url-browse'." + "Open an \"YouTube\" PATH link with `url-browse'." (let ((url (format "https://www.youtube.com/watch?v=%s" path))) (browse-url url))) (defun org-yt-export (path desc backend _) - "Export an \"YouTube\" link." + "Export an \"YouTube\" PATH link according to DESC and BACKEND." (pcase backend (`html (format "