memex/notes/2009-07-27-أغنية-التعيين.org

• أغنية التعيين

أغنية التعيين

مربوط على الدرجة الخامسة، و الناس درجات، و مرشح آخد السادسة، غير العلاوات. ما اعرفش لا كدا و لا كدا و لا أروح ببَّات pubs.

  (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)
        )
      )
  )

  (let*
      ((created-date "2009-07-27")
       (org-roam-dailies-capture-date created-date)
       )
    )