yogsototh/org-roam
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(feat) conditionally pluralize heading in org-roam-buffer (#521)

Browse source
This commit is contained in:
Leo Vivier 2020-04-26 11:51:32 +02:00 committed by GitHub
parent 265a3054be
commit bd3c97bb30
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 16 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
org-roam-buffer.el
View file

@ -100,6 +100,16 @@ When non-nil, the window will not be closed when deleting other windows."
'font-lock-face
'org-document-title)))
(defun org-roam--pluralize (string number)
"Conditionally pluralize STRING if NUMBER is above 1."
(let ((l (pcase number
((pred (listp)) (length number))
((pred (integerp)) number)
(wrong-type (signal 'wrong-type-argument
`((listp integerp)
,wrong-type))))))
(format "%s%s" string (if (> l 1) "s" ""))))
(defun org-roam-buffer--insert-citelinks ()
"Insert citation backlinks for the current buffer."
(if-let* ((roam-key (with-temp-buffer
@ -108,8 +118,9 @@ When non-nil, the window will not be closed when deleting other windows."
(key-backlinks (org-roam--get-backlinks (s-chop-prefix "cite:" roam-key)))
(grouped-backlinks (--group-by (nth 0 it) key-backlinks)))
(progn
(insert (format "\n\n* %d Cite backlinks\n"
(length key-backlinks)))
(insert (let ((l (length key-backlinks)))
(format "\n\n* %d %s\n"
l (org-roam--pluralize "Cite backlink" l))))
(dolist (group grouped-backlinks)
(let ((file-from (car group))
(bls (cdr group)))
@ -133,8 +144,9 @@ When non-nil, the window will not be closed when deleting other windows."
(backlinks (org-roam--get-backlinks file-path))
(grouped-backlinks (--group-by (nth 0 it) backlinks)))
(progn
(insert (format "\n\n* %d Backlinks\n"
(length backlinks)))
(insert (let ((l (length backlinks)))
(format "\n\n* %d %s\n"
l (org-roam--pluralize "Backlink" l))))
(dolist (group grouped-backlinks)
(let ((file-from (car group))
(bls (cdr group)))