Add local variables to ensure consistent formatting

Also edit formatting of comments and docstring to respect said
variables
This commit is contained in:
Lucien Cartier-Tilet 2022-08-24 02:51:22 +02:00
parent 5d94c667db
commit c303340523
Signed by: phundrak
GPG Key ID: BD7789E705CB8DCA
2 changed files with 12 additions and 7 deletions

5
.dir-locals.el Normal file
View File

@ -0,0 +1,5 @@
;;; Directory Local Variables
;;; For more information see (info "(emacs) Directory Variables")
((emacs-lisp-mode . ((sentence-end-double-space . t)
(indent-tabs-mode . nil))))

View File

@ -32,7 +32,7 @@
;; ;;
;; It will generate a unique ID for each headers in an org file based ;; It will generate a unique ID for each headers in an org file based
;; on the headers name plus a random short string in order to be sure ;; on the headers name plus a random short string in order to be sure
;; to make it unique. This ID will be inserted in each headers ;; to make it unique. This ID will be inserted in each headers
;; properties as a custom ID. ;; properties as a custom ID.
;; ;;
;; [1] https://blog.phundrak.com/better-custom-ids-orgmode/ ;; [1] https://blog.phundrak.com/better-custom-ids-orgmode/
@ -79,11 +79,11 @@ the variable `org-unique-id-prefix'."
(defun org-unique-id-get (&optional pom create prefix) (defun org-unique-id-get (&optional pom create prefix)
"Get the CUSTOM_ID property of the entry at point-or-marker POM. "Get the CUSTOM_ID property of the entry at point-or-marker POM.
If POM is nil, refer to the entry at point. If the entry does not If POM is nil, refer to the entry at point. If the entry does
have an CUSTOM_ID, the function returns nil. However, when CREATE not have an CUSTOM_ID, the function returns nil. However, when
is non nil, create a CUSTOM_ID if none is present already. PREFIX CREATE is non nil, create a CUSTOM_ID if none is present already.
will be passed through to `org-unique-id--new'. In any case, the PREFIX will be passed through to `org-unique-id--new'. In any
CUSTOM_ID of the entry is returned." case, the CUSTOM_ID of the entry is returned."
(interactive) (interactive)
(org-with-point-at pom (org-with-point-at pom
(let* ((orgpath (mapconcat #'identity (org-get-outline-path) "-")) (let* ((orgpath (mapconcat #'identity (org-get-outline-path) "-"))
@ -113,7 +113,7 @@ CUSTOM_ID of the entry is returned."
"Add a CUSTOM_ID to all headers missing one. "Add a CUSTOM_ID to all headers missing one.
Only adds ids if the `auto-id' option is set to t in the file Only adds ids if the `auto-id' option is set to t in the file
somewhere. ie, #+OPTIONS: auto-id:t" somewhere, i.e. #+OPTIONS: auto-id:t"
(interactive) (interactive)
(save-excursion (save-excursion
(widen) (widen)