riyyi/dotfiles
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add regexp for org-roam title slugs

Browse Source
This commit is contained in:
Riyyi
2021-05-14 12:48:58 +02:00
parent cad390e771
commit a3ef78c8ff
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
.config/emacs/config.org
+1
View File
@@ -1382,6 +1382,7 @@ If point is on:
"Convert TITLE to a filename-suitable slug, strip out common words." "Convert TITLE to a filename-suitable slug, strip out common words."
(let* ((common-words '("a" "an" "and" "as" "at" "by" "is" "it" "of" "the" "to")) (let* ((common-words '("a" "an" "and" "as" "at" "by" "is" "it" "of" "the" "to"))
(title (replace-regexp-in-string "\\(c\\+\\+\\)" "cpp" title)) (title (replace-regexp-in-string "\\(c\\+\\+\\)" "cpp" title))
(title (replace-regexp-in-string "\\(c\\#\\)" "cs" title))
(words (split-string (org-roam--title-to-slug title) "\_"))) (words (split-string (org-roam--title-to-slug title) "\_")))
(string-join (seq-remove (lambda (element) (member element common-words)) words) "_"))) (string-join (seq-remove (lambda (element) (member element common-words)) words) "_")))
#+END_SRC #+END_SRC