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

Match displayed substitution capitalisation

This commit is contained in:
TEC 2022-07-24 12:54:04 +08:00
parent 061b950203
commit df3536ffd3
Signed by: tec
GPG Key ID: 779591AFDB81F06C
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
org-glossary.el
View File

@ -1695,7 +1695,8 @@ This should only be run as an export hook."
(defun org-glossary--fontify-term ()
"Fontify the matched term."
(let ((term-entry (org-glossary--quicklookup (match-string 0))))
(let ((term-entry (org-glossary--quicklookup (match-string 0)))
case-fold-search)
(add-text-properties
(match-beginning 0) (match-end 0)
(nconc
@ -1706,10 +1707,14 @@ This should only be run as an export hook."
help-echo org-glossary--help-echo-from-textprop
mouse-face org-glossary-substitution-term
display
,(string-trim
(substring-no-properties
(org-element-interpret-data
(plist-get term-entry :value)))))
,(funcall
(if (string-match-p "^[[:upper:]][^[:upper:]]+$"
(match-string 0))
#'org-glossary--sentance-case #'identity)
(string-trim
(substring-no-properties
(org-element-interpret-data
(plist-get term-entry :value))))))
'(face org-glossary-substitution-term)))
(type `(face ,(or (alist-get type org-glossary-fontify-type-faces)
'org-glossary-term))))