tec
/
org-glossary
1
0
Fork 0
Code Issues 1 Pull Requests Releases Activity

Implement sentence case capitalisation

This commit is contained in:
TEC 2022-07-24 12:53:27 +08:00
parent 9861c636b1
commit 061b950203
Signed by: tec
GPG Key ID: 779591AFDB81F06C
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
org-glossary.el
View File

@ -1098,7 +1098,8 @@ optional arguments:
(push (cons ?K (number-to-string (plist-get canonical-term :key-nonce)))
parameters))
(when (string-match-p "%t" template)
(push (cons ?t (funcall (if capitalized-p #'capitalize #'identity)
(push (cons ?t (funcall (if capitalized-p #'org-glossary--sentance-case
#'identity)
(plist-get term-entry
(if plural-p :term-plural :term))))
parameters))
@ -1113,7 +1114,8 @@ optional arguments:
(push (cons ?v
(let ((value-str
(org-export-data (plist-get canonical-term :value) info)))
(funcall (if capitalized-p #'capitalize #'identity)
(funcall (if capitalized-p #'org-glossary--sentance-case
#'identity)
(if plural-p
(let ((components (split-string value-str)))
(setf (car (last components))
@ -1140,6 +1142,10 @@ optional arguments:
parameters))
(format-spec template (nreverse parameters))))
(defun org-glossary--sentance-case (s)
"Return a sentance-cased version of S."
(concat (string (upcase (aref s 0))) (substring s 1)))
;;; Export used term definitions
(defun org-glossary--print-terms (backend terms &optional types level duplicate-mentions)
@ -1463,7 +1469,7 @@ the :consume parameter extracted from KEYWORD."
(and (stringp description)
`((?t . ,(if (string= description org-glossary--index-stub-description)
"" description)))))
(funcall (if capitalized-p #'capitalize #'identity)
(funcall (if capitalized-p #'org-glossary--sentance-case #'identity)
(funcall (if plural-p org-glossary-plural-function #'identity)
trm))))