gо
Size: a a a
gо
DL
DL
(defun pueue--marking-action (fn tag)
(funcall fn (tabulated-list-get-id) pueue--marked-ids)
(tabulated-list-put-tag tag t)
(set-buffer-modified-p nil))
(defun pueue-mark ()
"Mark pueue task at point."
(interactive)
(pueue--marking-action cl-pushnew "*"))
(defun pueue-unmark ()
"Unmark pueue taks at point."
(interactive)
(pueue--marking-action (apply-partially cl-callf2 delete) " "))
VL
VL
DL
VL
DL
VL
DL
DL
Aß
#'cl-pushnew
жеDL
Aß
DL
oo
oo
oo