ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Allow limited length prefix format specifier %n.mc

This commit is contained in:
Carsten Dominik 2009-10-06 11:59:27 +02:00
parent 174f53cad8
commit e409fbeff9
2 changed files with 29 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2009-10-06 Carsten Dominik <carsten.dominik@gmail.com>
* org-agenda.el (org-prefix-category-max-length): New variable.
(org-format-agenda-item): Use `org-prefix-category-max-length'.
(org-compile-prefix-format): Set `org-prefix-category-max-length'.
2009-10-03 Carsten Dominik <carsten.dominik@gmail.com> 2009-10-03 Carsten Dominik <carsten.dominik@gmail.com>
* org-mobile.el (org-mobile-create-index-file): Improve the * org-mobile.el (org-mobile-create-index-file): Improve the

19
lisp/org-agenda.el
View File

@ -4468,6 +4468,8 @@ The flag is set if the currently compiled format contains a `%T'.")
The flag is set if the currently compiled format contains a `%e'.") The flag is set if the currently compiled format contains a `%e'.")
(defvar org-prefix-category-length nil (defvar org-prefix-category-length nil
"Used by `org-compile-prefix-format' to remember the category field widh.") "Used by `org-compile-prefix-format' to remember the category field widh.")
(defvar org-prefix-category-max-length nil
"Used by `org-compile-prefix-format' to remember the category field widh.")
(defun org-format-agenda-item (extra txt &optional category tags dotime (defun org-format-agenda-item (extra txt &optional category tags dotime
noprefix remove-re) noprefix remove-re)
@ -4585,7 +4587,8 @@ Any match of REMOVE-RE will be removed from TXT."
(t "")) (t ""))
extra (or extra "") extra (or extra "")
category (if (symbolp category) (symbol-name category) category)) category (if (symbolp category) (symbol-name category) category))
(when (string-match org-bracket-link-regexp category) (if (string-match org-bracket-link-regexp category)
(progn
(setq l (if (match-end 3) (setq l (if (match-end 3)
(- (match-end 3) (match-beginning 3)) (- (match-end 3) (match-beginning 3))
(- (match-end 1) (match-beginning 1)))) (- (match-end 1) (match-beginning 1))))
@ -4594,6 +4597,9 @@ Any match of REMOVE-RE will be removed from TXT."
(org-add-props category nil (org-add-props category nil
'extra-space (make-string 'extra-space (make-string
(- org-prefix-category-length l 1) ?\ )))) (- org-prefix-category-length l 1) ?\ ))))
(if (and org-prefix-category-max-length
(>= (length category) org-prefix-category-max-length))
(setq category (substring category 0 (1- org-prefix-category-max-length)))))
;; Evaluate the compiled format ;; Evaluate the compiled format
(setq rtn (concat (eval org-prefix-format-compiled) txt))) (setq rtn (concat (eval org-prefix-format-compiled) txt)))
@ -4701,10 +4707,15 @@ The resulting form is returned and stored in the variable
(if (equal var 'time) (setq org-prefix-has-time t)) (if (equal var 'time) (setq org-prefix-has-time t))
(if (equal var 'tag) (setq org-prefix-has-tag t)) (if (equal var 'tag) (setq org-prefix-has-tag t))
(if (equal var 'effort) (setq org-prefix-has-effort t)) (if (equal var 'effort) (setq org-prefix-has-effort t))
(if (equal var 'category)
(setq org-prefix-category-length
(abs (string-to-number (match-string 2 s)))))
(setq f (concat "%" (match-string 2 s) "s")) (setq f (concat "%" (match-string 2 s) "s"))
(when (equal var 'category)
(setq org-prefix-category-length
(floor (abs (string-to-number (match-string 2 s)))))
(setq org-prefix-category-max-length
(let ((x (match-string 2 s)))
(save-match-data
(if (string-match "\\.[0-9]+" x)
(string-to-number (substring (match-string 0 x) 1)))))))
(if opt (if opt
(setq varform (setq varform
`(if (equal "" ,var) `(if (equal "" ,var)