league (owner)

Revisions

gist: 138770 Download_button fork
public
Public Clone URL: git://gist.github.com/138770.git
Embed All Files: show embed
org-age.el #
raw 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66

;;; sorting org-mode tasks by age
 
(defconst org-age-property "CREATED")
 
(defun org-age-set-to-today-if-missing ()
  (interactive)
  (or (org-entry-get (point) org-age-property)
      (let ((d (format-time-string "%Y-%m-%d" (current-time))))
        (org-entry-put (point) org-age-property d)
        d)))
 
(defconst org-date-regexp "\\b[0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}\\b")
 
(defun org-age-set-from-vc-if-missing ()
  (interactive)
  (or (org-entry-get (point) org-age-property)
      (let ((current-line (count-lines (point-min) (point)))
            date-string)
        (save-window-excursion
          (vc-annotate buffer-file-name (vc-workfile-version buffer-file-name))
          (if (search-forward-regexp org-date-regexp
                                     (point-at-eol) t)
              (setq date-string (match-string 0)))
          (kill-buffer nil)) ;; otherwise next annotation may be wrong
        (when date-string
          (org-entry-put (point) org-age-property date-string)
          (basic-save-buffer)) ;; otherwise next annotation may be wrong
        date-string)))
 
(defvar org-age-todo-match "/TODO|PROJECT|MAYBE|WAIT")
 
(defun org-age-set-all (setf)
  (let ((rs (org-map-entries setf org-age-todo-match 'agenda)))
    rs))
 
(defun org-age-set-all-to-today ()
  (interactive)
  (org-age-set-all 'org-age-set-to-today-if-missing))
(org-age-set-all-to-today)
 
(defun org-age-set-all-from-vc ()
  (interactive)
  (org-age-set-all 'org-age-set-from-vc-if-missing))
 
(defun org-age-compare (a b)
  (let* ((ma (get-text-property 1 'org-marker a))
         (mb (get-text-property 1 'org-marker b))
         (da (with-current-buffer (marker-buffer ma)
               (goto-char (marker-position ma))
               (org-age-set-to-today-if-missing)))
         (db (with-current-buffer (marker-buffer mb)
               (goto-char (marker-position mb))
               (org-age-set-to-today-if-missing))))
    (cond
     ((string< da db) -1)
     ((string= da db) nil)
     (t +1))))
 
(setq org-agenda-cmp-user-defined 'org-age-compare)
 
(setq org-agenda-custom-commands
      '(("z" "description"
         todo "TODO"
         ((org-agenda-sorting-strategy '(user-defined-up))
          (org-agenda-archives-mode nil)))))