#데일리루틴 #조직모드: 리파일 텍스트 밀어넣기

References

Related Notes

History

• [2025-04-14 Mon 15:59] 이 기능은 매우 유용하다. 쑤셔넣기라고 했던가? 아무렴 데일리저널에 기록된 흔적들을 필요한 곳에 밀어 넣는 개념이다.

;;;;; my/refile-to-denote-file
 
;; 2025-04-14
(defun my/refile-heading-to-denote-file (arg)
  "Refile current heading to a particular denote file.
If prefix ARG, move instead of copy.
Adds refile metadata to the heading."
  (interactive "P")
  (org-todo "DONE") ; set time marker
  (org-set-tags "REFILED")
  ;; (org-archive-set-tag) ; hidden
  (let ((selected-file (denote-file-prompt)))
    (when selected-file
      (+org/refile-to-current-file
       (not arg) ; Invert ARG for org-refile: nil means move, non-nil means copy
       selected-file)
      (org-set-property "REFILED" (format-time-string "%Y-%m-%d %H:%M:%S"))
      (org-set-property "REFILED_TO" selected-file))))