org: วิธีเรียงลำดับส่วนหัวตาม TODO แล้วตามลำดับความสำคัญได้อย่างไร

ฉันมักจะมีรายการเช่นนี้:

* Main heading
** TODO [#A] Make world better
** TODO [#B] Make Emacs better 
** TODO [#B] Customize emacs 
** DONE [#C] some task
** TODO [#A] Launch rocket to mars

ฉันต้องการเรียงลำดับตาม taskword ของ 'คำแรก' จากนั้นรายการต่าง ๆ ใน TODO เรียงฉันต้องการเรียงลำดับความสำคัญ (จากนั้นจะเป็นการดีหากต้องการจัดเรียงเพิ่มเติมโดย "Effort")

และฉันหมายถึงในปัจจุบันฉันสามารถคลิกที่หัวข้อหลักและเรียงลำดับเด็ก ๆ ได้ตามลำดับความสำคัญหรือตามคำหลักที่ต้องทำ

การเรียงลำดับเป็นไปได้ทั้งสองอย่างเช่นการจัดเรียงกลยุทธ์หรือไม่?

ปัจจุบันฉันมีสองหัว

* Tasks
** TODO [#A] meh
** TODO [#B] meh2
* Completed.
** DONE [#B] meh3.

แต่ปัญหาของวิธีนี้คือฉันต้องสลับงานอย่างต่อเนื่องเมื่อฉันทำมันเสร็จ

[แก้ไข]
มันคล้ายกับนี้ยกเว้นว่าฉันไม่เข้าใจคำตอบของเขาที่จะถ่ายโอนไปยังความต้องการของฉัน?

มันจะดีถ้ามีบางอย่างorg-agenda-sorting-stratagyที่เคยทำงานด้วยorg-sort-entriesแต่ดูเหมือนจะไม่เป็นเช่นนั้น เราสามารถปลอมมันได้เพราะorg-sort-entriesสามารถโต้แย้งที่ระบุฟังก์ชั่นการกำหนดคีย์ (สตริงหรือตัวเลข) ให้กับแต่ละส่วนหัวซึ่งจะใช้ในการเรียงลำดับรายการเมื่อ?fได้รับประเภทการเรียงลำดับ สิ่งที่เราต้องทำคือรับสตริงสำหรับคุณสมบัติ TODO และ PRIORITY เคล็ดลับคือเราต้องการเรียงลำดับคุณสมบัติสิ่งที่ต้องทำตามตำแหน่งorg-todo-keywordsไม่ใช่ตามลำดับตัวอักษร

(require 'cl)
(require 'dash)

(defun todo-to-int (todo)
    (first (-non-nil
            (mapcar (lambda (keywords)
                      (let ((todo-seq
                             (-map (lambda (x) (first (split-string  x "(")))
                                   (rest keywords)))) 
                        (cl-position-if (lambda (x) (string= x todo)) todo-seq)))
                    org-todo-keywords))))

(defun my/org-sort-key ()
  (let* ((todo-max (apply #'max (mapcar #'length org-todo-keywords)))
         (todo (org-entry-get (point) "TODO"))
         (todo-int (if todo (todo-to-int todo) todo-max))
         (priority (org-entry-get (point) "PRIORITY"))
         (priority-int (if priority (string-to-char priority) org-default-priority)))
    (format "%03d %03d" todo-int priority-int)
    ))

(defun my/org-sort-entries ()
  (interactive)
  (org-sort-entries nil ?f #'my/org-sort-key))

M-x my/org-sort-entriesจะจัดเรียงตามคำสำคัญสิ่งที่ต้องทำและทำลายความสัมพันธ์กับorg-default-priorityความสำคัญ(ใช้เมื่อไม่มีการให้ความสำคัญ) สิ่งนี้จะพังหากคุณมีคำหลักสิ่งที่ต้องทำมากกว่า 1,000 คำซึ่งเป็นเหตุผลที่ดีที่จะไม่ทำเช่นนั้น

เพิ่มสิ่งต่อไปนี้ในไฟล์ของคุณ:

#+ARCHIVE: :: * Completed.

และการสับจะกลายเป็นการเก็บถาวร

แทนที่จะเรียงลำดับรายการวิธีการเกี่ยวกับมุมมองเรียง?

(setq org-agenda-custom-commands
      '(("cx" "TODOs sorted by state, priority, effort"
         todo "*"
         ((org-agenda-overriding-header "\nTODOs sorted by state, priority, effort")
          (org-agenda-sorting-strategy '(todo-state-down priority-down effort-up))))))

จำกัด <ไปยังแฟ้มปัจจุบันด้วย คุณสามารถทำเครื่องหมาย DONE และเก็บถาวรจากมุมมองที่เรียงลำดับ

คุณสามารถกำหนดorg-agenda-cmp-user-definedฟังก์ชั่นและเพิ่มเข้าไปorg-agenda-sorting-strategyได้ นี่คือสิ่งที่ฉันสร้างขึ้นเป็นตัวอย่าง

(setq org-todo-sort-order '("WAIT" "TODO" "DOING" "CANCELED" "DONE"))

(defun my:user-todo-sort (a b)
  "Sort todo based on which I want to see first"
  (when-let ((state-a (get-text-property 14 'todo-state a))
             (state-b (get-text-property 14 'todo-state b))
             (cmp (--map (cl-position-if (lambda (x)
                                           (equal x it))
                                         org-todo-sort-order)
                         (list state-a state-b))))
    (cond ((apply '> cmp) 1)
          ((apply '< cmp) -1)
          (t nil))))
(setq org-agenda-cmp-user-defined 'my:user-todo-sort)

คุณสามารถใช้ห้องสมุดนี้โดยฉัน: https://github.com/felipelalli/org-sort-tasks

มันใช้ Merge Sort algo โดยถามผู้ใช้ว่างาน A สำคัญกว่า B หรือไม่แล้วสร้างรายการที่เรียงลำดับ