org: Jak sortować nagłówki według TODO, a następnie według priorytetu?

Często mam taką listę:

* 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

Najpierw chciałbym posortować je według słowa zadania „DO ZROBIENIA”. Następnie elementy wewnątrz posortowanego TODO chciałbym posortować według priorytetu. (byłoby wtedy miło posortować według „Wysiłku”).

Mam na myśli, że obecnie mogę kliknąć główny nagłówek i posortować dzieci według priorytetu lub według słowa kluczowego do zrobienia, ale nie obu.

Czy sortowanie według obu jest możliwe jak strategia sortowania?

Obecnie mam dwa nagłówki

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

Problem z tym podejściem polega jednak na tym, że muszę ciągle tasować zadania po ich zakończeniu.

[EDYCJA]
Jest to trochę podobne do tego z tym wyjątkiem, że nie mogłem zrozumieć jego odpowiedzi, aby przenieść ją na moje potrzeby?

Byłoby wspaniale, gdyby coś takiego org-agenda-sorting-stratagydziałało org-sort-entries, ale wydaje się, że tak nie jest. Możemy to sfałszować, ponieważ org-sort-entriesmożemy wziąć argument określający funkcję przypisującą klawisz (ciąg lub cyfrę) do każdego nagłówka, który będzie używany do sortowania wpisów, gdy ?fpodany zostanie typ sortowania. Wszystko, co musimy zrobić, to uzyskać ciąg właściwości TODO i PRIORYTET. Chodzi o to, że chcemy posortować właściwość TODO według jej pozycji org-todo-keywords, a nie alfabetycznie.

(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-entriesposortuje według słowa kluczowego TODO i zerwie więzi z PRIORYTETEM (używając, org-default-prioritygdy nie zostanie podany żaden priorytet). To się zepsuje, jeśli masz więcej niż 1000 słów kluczowych TODO, co jest dobrym powodem, aby tego nie robić.

Dodaj następujące elementy do pliku:

#+ARCHIVE: :: * Completed.

I tasowanie staje się archiwizacją

Zamiast posortować wpisy, co powiesz na posortowany widok?

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

Ogranicz go do bieżącego pliku za pomocą <. Możesz oznaczyć GOTOWE i zarchiwizować z posortowanego widoku.

Możesz także zdefiniować org-agenda-cmp-user-definedfunkcję i dodać ją do org-agenda-sorting-strategy. To ten, który stworzyłem jako przykład.

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

Możesz skorzystać z utworzonej przeze mnie biblioteki: https://github.com/felipelalli/org-sort-tasks

Używa scalania Sortuj algo, pytając użytkownika, czy zadanie A jest ważniejsze niż B, a następnie buduje posortowaną listę.