[Emacs] Update slug regex for CUSTOM_ID, update some CUSTOM_ID

This commit fixes the removal of the `~' character (it needed to be
escaped), add commas and backslashes to the list of characters to be
removed, and updates some `CUSTOM_ID' heading properties accordingly
This commit is contained in:
Lucien Cartier-Tilet 2020-10-22 13:52:14 +02:00
parent 3b865970e4
commit 5096b4f9a6
Signed by: phundrak
GPG Key ID: BD7789E705CB8DCA

View File

@ -1369,7 +1369,7 @@
*** ~with-face~ *** ~with-face~
:PROPERTIES: :PROPERTIES:
:CUSTOM_ID: User_Configuration-Custom_functions,_macros,_and_variables-with-face-60298b14 :CUSTOM_ID: User_Configuration-Custom_functions_macros_and_variables-with-face-60298b14
:END: :END:
~with-face~ is a simple yet very useful macro that allows me to easily ~with-face~ is a simple yet very useful macro that allows me to easily
create strings with faces defined as properties to the string passed as the create strings with faces defined as properties to the string passed as the
@ -1382,7 +1382,7 @@
*** ~phundrak/var-or-if-nill~ *** ~phundrak/var-or-if-nill~
:PROPERTIES: :PROPERTIES:
:CUSTOM_ID: User_Configuration-Custom_functions,_macros,_and_variables-phundrakvar-or-if-nill-0d320f92 :CUSTOM_ID: User_Configuration-Custom_functions_macros_and_variables-phundrakvar-or-if-nill-0d320f92
:END: :END:
This simple macro helps me return either the value ~var~ holds, or if it is This simple macro helps me return either the value ~var~ holds, or if it is
~nil~ it will return the value ~value~ holds (or will return). ~nil~ it will return the value ~value~ holds (or will return).
@ -1435,7 +1435,7 @@
*** ~phundrak/prompt-toggle-abbreviation~ *** ~phundrak/prompt-toggle-abbreviation~
:PROPERTIES: :PROPERTIES:
:CUSTOM_ID: User_Configuration-Custom_functions,_macros,_and_variables-phundrakprompt-toggle-abbreviation-8fcc2389 :CUSTOM_ID: User_Configuration-Custom_functions_macros_and_variables-phundrakprompt-toggle-abbreviation-8fcc2389
:END: :END:
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(defvar phundrak/prompt--abbreviate t (defvar phundrak/prompt--abbreviate t
@ -1544,7 +1544,7 @@
*** ~phundrak/fill-paragraph~ *** ~phundrak/fill-paragraph~
:PROPERTIES: :PROPERTIES:
:CUSTOM_ID: User_Configuration-Custom_functions-~phundrak-fill-paragraph~-ab4ef600 :CUSTOM_ID: User_Configuration-Custom_functions-phundrak-fill-paragraph-ab4ef600
:END: :END:
This function was created in order to bind to another keyboard shortcut the This function was created in order to bind to another keyboard shortcut the
already existing ~C-u M-q~ which I cannot type with evil-mode unless Im in already existing ~C-u M-q~ which I cannot type with evil-mode unless Im in
@ -1597,7 +1597,7 @@
*** ~phundrak/is-dir-a-git-repo~ *** ~phundrak/is-dir-a-git-repo~
:PROPERTIES: :PROPERTIES:
:CUSTOM_ID: User_Configuration-Custom_functions,_macros,_and_variables-phundrakis-dir-a-git-repo-4dc207d7 :CUSTOM_ID: User_Configuration-Custom_functions_macros_and_variables-phundrakis-dir-a-git-repo-4dc207d7
:END: :END:
This function detects if the path passed as an argument points to a git This function detects if the path passed as an argument points to a git
directory or to one of its subdirectories. directory or to one of its subdirectories.
@ -1646,7 +1646,7 @@
*** ~terminal-here-default-terminal-command~ *** ~terminal-here-default-terminal-command~
:PROPERTIES: :PROPERTIES:
:CUSTOM_ID: User_Configuration-Custom_functions-~terminal-here-default-terminal-command~-1916a912 :CUSTOM_ID: User_Configuration-Custom_functions-terminal-here-default-terminal-command-1916a912
:END: :END:
This function is actually an overwrite of the default one which apparently This function is actually an overwrite of the default one which apparently
does not work on my machine. This function is called by does not work on my machine. This function is called by
@ -2110,7 +2110,7 @@
(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) "-"))
(heading (replace-regexp-in-string (heading (replace-regexp-in-string
"/\\|~" "" "/\\|\\~\\|,\\|\\\\" ""
(replace-regexp-in-string (replace-regexp-in-string
" " "_" (if (string= orgpath "") " " "_" (if (string= orgpath "")
(org-get-heading t t t t) (org-get-heading t t t t)