A
Size: a a a
A
a
(defun aragaer-org-agenda-set-now-string-date (agenda-items)
(let ((m (regexp-quote org-agenda-current-time-string)))
(dolist (item agenda-items agenda-items)
(when (string-match-p m item)
(org-add-props item nil 'date (calendar-current-date))))))
Aß
Aß
a
A
A
a
string-match-p
работает, и ничего после - - -
нету, то (defun aragaer-org-agenda-set-now-string-date (agenda-items)
(dolist (item agenda-items agenda-items)
(when (string-suffix-p org-agenda-current-time-string item)
(org-add-props item nil 'date (calendar-current-date)))))
Aß
a
A
A
EZ
mapcar
мусор создаёт в данном случаеEZ
mapc
есть, но он тоже будет хуже чем dolist
, т.к. лямбда там¥
Aß
LL