ND
ну так это процедура ж просто
Size: a a a
2021 August 31
ND
оно как раз из тега и тянет
𝘎(
Что за тема?
D
doom moonlight
A
тыц. Вчера починил правильное положение now в time-grid при учете org-extend-today-until
𝘎(
A
(defun aragaer/org-agenda-set-now-string-date (agenda-items)
(let ((m (regexp-quote org-agenda-current-time-string)))
(mapcar
(lambda (item)
(when (string-match m item)
(org-add-props item nil 'date (calendar-current-date)))
item)
agenda-items)))
(advice-add 'org-agenda-add-time-grid-maybe
:filter-return #'aragaer/org-agenda-set-now-string-date)
A
вот я опять же не знаю -- найти один элемент в списке и модифицировать его -- можно ж не через mapcar, а как-то разумнее, да?
a
Для начала, string-match модифицирует match-data, если ты ее не используешь, надо string-match-p.
Aß
а зачем вообще регексп?
A
там строка имеет вид 10.34 now - - - - -
A
где now - - - - живет в переменной org-agenda-current-time-string
A
а 10.34 это текущее время на момент сборки этого списка
a
Ты модифицируешь строку, но возвращаешь новый список; я не знаю, что из этого желанное поведение, а что нет.
Aß
string-suffix-p должно быть достаточно, наверно
A
возможно
A
в принципе можно наверно повесить адвайс на org-agenda-format-item
A
что когда второй аргумент это org-agenda-current-time-string, то добавить ему еще один проп
A
но тогда получится так, что я на add-time-grid-maybe повешу адвайс, чтобы внутри него адвайс на org-agenda-format-item адвайс сначала вешался, а потом снимался