45 lines
1.5 KiB
Org Mode
45 lines
1.5 KiB
Org Mode
#+FILETAGS: @notes/personal-software-foundry.org
|
|
* أغنية التعيين
|
|
:PROPERTIES:
|
|
:ID: 48c9894f-1a08-4fb6-9495-bb4644a0f3c6
|
|
:CREATED: [2009-07-27 Mon 17:12]
|
|
:MODIFIED: [2009-08-01 Sat 19:42]
|
|
:IMPORTED: [2023-02-08 Wed 19:22]
|
|
:END:
|
|
|
|
مربوط على الدرجة الخامسة، و الناس درجات، و مرشح آخد السادسة، غير العلاوات. ما اعرفش لا كدا و لا كدا و لا أروح ببَّات pubs.
|
|
|
|
#+begin_src elisp
|
|
(defun my/org-move-entry-to-daily-notes ()
|
|
"Move the current org-mode headline to the daily notes file based on its :CREATED: property."
|
|
(interactive)
|
|
(let*
|
|
((created-prop (org-entry-get nil "CREATED"))
|
|
(created-date (when created-prop
|
|
(org-parse-time-string created-prop)))
|
|
(year (nth 5 created-date)) ; Extract year (6th element)
|
|
(month (nth 4 created-date)) ; Extract month (5th element)
|
|
(day (nth 3 created-date)) ; Extract day (4th element)
|
|
(target-date (format "%04d-%02d-%02d" year month day)) ; Format date string
|
|
(target-file (org-roam-dailies-goto target-date))
|
|
)
|
|
(when target-file
|
|
(org-cut-subtree)
|
|
(find-file target-file)
|
|
(goto-char (point-max))
|
|
(unless (bolp) (newline))
|
|
(org-paste-subtree)
|
|
)
|
|
)
|
|
)
|
|
#+end_src
|
|
|
|
#+begin_src elisp
|
|
(let*
|
|
((created-date "2009-07-27")
|
|
(org-roam-dailies-capture-date created-date)
|
|
)
|
|
)
|
|
#+end_src
|
|
|