bth/um-mode
Watch
1
Fork
You've already forked um-mode
 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

um-tag-regexp

Browse source
This commit is contained in:
bth 2026-06-04 21:05:52 -07:00
commit 2608b6d479
1 changed files with 3 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
um.el
View file

@ -93,7 +93,7 @@ ISO8601."
:group 'um :group 'um
) )
(defconst um-tag-re "^\\+ \\([[:alpha:]\\_\\-]+$\\)" (defconst um-tag-regexp "^\\+ \\([[:alpha:]\\_\\-]+\\)$"
"um tag regexp. Allows hypens and underscores within the tag.") "um tag regexp. Allows hypens and underscores within the tag.")
(defface font-lock-um-date-face (defface font-lock-um-date-face
@ -127,14 +127,14 @@ ISO8601."
`( `(
(,um-date-re 1 'font-lock-um-date-face) (,um-date-re 1 'font-lock-um-date-face)
(,um-locale-re 0 'font-lock-um-locale-face) (,um-locale-re 0 'font-lock-um-locale-face)
(,um-tag-re 1 'font-lock-um-tag-face) (,um-tag-regexp 1 'font-lock-um-tag-face)
)) ))
(defvar um-minor-mode-keywords (defvar um-minor-mode-keywords
`( `(
(,um-date-re 1 'font-lock-um-date-face) (,um-date-re 1 'font-lock-um-date-face)
(,um-locale-re 0 'font-lock-um-locale-face) (,um-locale-re 0 'font-lock-um-locale-face)
(,um-tag-re 1 'font-lock-um-tag-face) (,um-tag-regexp 1 'font-lock-um-tag-face)
)) ))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -235,8 +235,6 @@ ISO8601."
(defvar um-tags-history nil "History of inserted or searched for tags. Populates (defvar um-tags-history nil "History of inserted or searched for tags. Populates
`completing-read'.") `completing-read'.")
(defconst um-tag-regexp "^\\+ \\(.*\\)$")
(defun um-header-current-buffer () (defun um-header-current-buffer ()
(car (split-string (buffer-substring-no-properties (point-min) (point-max)) (car (split-string (buffer-substring-no-properties (point-min) (point-max))
"\n\n" t "\n\n" t