|
|
@ -78,8 +78,8 @@ When ANYWHERE is non-nil, search beyond the preamble." |
|
|
|
t) |
|
|
|
t) |
|
|
|
(point))))) |
|
|
|
(point))))) |
|
|
|
|
|
|
|
|
|
|
|
(defun dot/org-set-file-time-property (property value) |
|
|
|
(defun dot/org-set-file-property (property value) |
|
|
|
"Set the file time PROPERTY in the preamble." |
|
|
|
"Set the file PROPERTY in the preamble." |
|
|
|
(when-let ((pos (dot/org-find-file-property property))) |
|
|
|
(when-let ((pos (dot/org-find-file-property property))) |
|
|
|
(save-excursion |
|
|
|
(save-excursion |
|
|
|
(goto-char pos) |
|
|
|
(goto-char pos) |
|
|
@ -92,8 +92,8 @@ When ANYWHERE is non-nil, search beyond the preamble." |
|
|
|
(defun dot/org-set-last-modified () |
|
|
|
(defun dot/org-set-last-modified () |
|
|
|
"Update the LAST_MODIFIED file property in the preamble." |
|
|
|
"Update the LAST_MODIFIED file property in the preamble." |
|
|
|
(when (derived-mode-p 'org-mode) |
|
|
|
(when (derived-mode-p 'org-mode) |
|
|
|
(dot/org-set-file-time-property "LAST_MODIFIED" |
|
|
|
(dot/org-set-file-property "LAST_MODIFIED" |
|
|
|
(format-time-string "[%Y-%m-%d %a %H:%M]"))))))) |
|
|
|
(format-time-string "[%Y-%m-%d %a %H:%M]"))))))) |
|
|
|
|
|
|
|
|
|
|
|
;; Org agenda. |
|
|
|
;; Org agenda. |
|
|
|
|
|
|
|
|
|
|
|