emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[O] Bug: commit a197236bde2e6 breaks one of my agenda views [8.3beta (re


From: Elric Milon
Subject: [O] Bug: commit a197236bde2e6 breaks one of my agenda views [8.3beta (release_8.3beta-530-g31b56b @ /home/whirm/.emacs.d/var/el-get/org-mode/lisp/)]
Date: Tue, 04 Nov 2014 13:49:41 +0100

--

Hi everyone,
I upgradded org-mode to latest master and found out that my "Incoming"
agenda broke, a bisect points the following commit as the culprit:

commit 61a241f0dc07aef5a3a5c2bd037a197236bde2e6
Author: Nicolas Goaziou <address@hidden>
Date:   Tue Oct 14 10:53:29 2014 +0200

    Rewrite setup keywords initialization

    * lisp/org-table.el (org-table-set-constants): Remove function.
    * lisp/org.el (org-set-regexps-and-options): Rewrite function.  Merge
      it with `org-set-regexps-and-options-for-tags'.
    (org-set-regexps-and-options-for-tags): Remove function
    (org--setup-collect-keywords, org--setup-process-tags): New functions.
    (org-mode): Remove `org-set-regexps-and-options-for-tags' call.
    (org-agenda-prepare-buffers): Use optimized setup for tags in all
    cases.  Improve docstring.
    (org-make-options-regexp): Make returned regexp more efficient.


The commands for the agenda that breaks are:

("i" "Incoming" ((tags "REFILE" ((org-agenda-overriding-header "Tasks to 
Refile") (org-tags-match-list-sublevels nil))) (tags-todo 
"address@hidden@address@hidden" ((org-agenda-overriding-header "Tasks with no 
context") (org-tags-match-list-sublevels t)))) nil)

And the stacktrace top:

Debugger entered--Lisp error: (wrong-type-argument listp 
#("-{\\<\\(?:@office\\)\\>}" 0 20 (grouptag t)))
  delete-dups(#("-{\\<\\(?:@office\\)\\>}" 0 20 (grouptag t)))
  (let ((res (copy-sequence list))) (delete-dups res))
  org-uniquify(#("-{\\<\\(?:@office\\)\\>}" 0 20 (grouptag t)))
  (append (org-uniquify rpl) (assoc tag tal))
  (setq rpl (append (org-uniquify rpl) (assoc tag tal)))
  (progn (setq rpl (append (org-uniquify rpl) (assoc tag tal))) (setq rpl 
(concat dir "{\\<" (regexp-opt rpl) "\\>}")) (if (stringp rpl) (org-add-props 
rpl (quote (grouptag t)))) (setq rtnmatch (replace-match rpl t t rtnmatch)))
  ...

Full stacktrace at:

    http://paste.lisp.org/+33BI

Thanks for this amazing piece of software!


=================================================

Emacs  : GNU Emacs 24.4.1 (x86_64-pc-linux-gnu, GTK+ Version 3.14.3)
 of 2014-10-25 on trouble, modified by Debian
Package: Org-mode version 8.3beta (release_8.3beta-530-g31b56b @ 
/home/whirm/.emacs.d/var/el-get/org-mode/lisp/)

current state:
==============
(setq
 org-table-export-default-format "orgtbl-to-csv"
 org-src-lang-modes '(("plantuml" . fundamental) ("ocaml" . tuareg) ("elisp" . 
emacs-lisp) ("ditaa" . artist) ("asymptote" . asy) ("dot" . fundamental) 
("sqlite" . sql) ("calc" . fundamental) ("C" . c) ("cpp" . c++) ("C++" . c++) 
("screen" . shell-script) ("shell" . sh) ("bash" . sh))
 org-agenda-log-mode-items '(closed state)
 org-agenda-tags-todo-honor-ignore-options t
 org-tab-first-hook '(org-hide-block-toggle-maybe 
org-babel-hide-result-toggle-maybe org-babel-header-arg-expand)
 org-show-following-heading t
 org-babel-results-keyword "results"
 org-agenda-clockreport-parameter-plist '(:link t :maxlevel 5 :fileskip0 t 
:compact t :narrow 80)
 org-show-hierarchy-above t
 org-insert-heading-hook '(bh/insert-heading-inactive-timestamp)
 org-speed-command-hook '(org-speed-command-default-hook 
org-babel-speed-command-hook)
 org-export-with-timestamps nil
 org-special-ctrl-k t
 org-agenda-diary-file "diary.org"
 org-id-method 'uuidgen
 org-agenda-skip-timestamp-if-done t
 org-agenda-auto-exclude-function 'bh/org-auto-exclude-function
 org-time-clocksum-format '(:hours "%d" :require-hours t :minutes ":%02d" 
:require-minutes t)
 org-clock-history-length 23
 org-occur-hook '(org-first-headline-recenter)
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-html-format-drawer-function '(lambda (name contents) contents)
 org-log-done 'time
 org-src-window-setup 'current-window
 org-latex-format-inlinetask-function 
'org-latex-format-inlinetask-default-function
 org-confirm-shell-link-function 'yes-or-no-p
 org-id-link-to-org-use-id 'create-if-interactive-and-no-custom-id
 org-finalize-agenda-hook '(bh/org-agenda-to-appt)
 org-columns-default-format "%80ITEM(Task) %10Effort(Effort){:} %10CLOCKSUM"
 org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-default
 org-speed-commands-user '(("0" . ignore) ("1" . ignore) ("2" . ignore) ("3" . 
ignore) ("4" . ignore) ("5" . ignore) ("6" . ignore) ("7" . ignore) ("8" . 
ignore) ("9" . ignore) ("a" . ignore) ("d" . ignore) ("h" . bh/hide-other)
                           ("i" progn (forward-char 1) (call-interactively 
(quote org-insert-heading-respect-content))) ("k" . 
org-kill-note-or-show-branches) ("l" . ignore) ("m" . ignore) ("q" . 
bh/show-org-agenda) ("r" . ignore) ("s" . org-save-all-org-buffers) ("w" . 
org-refile) ("x" . ignore) ("y" . ignore)
                           ("z" . org-add-note) ("A" . ignore) ("B" . ignore) 
("E" . ignore) ("F" . bh/restrict-to-file-or-follow) ("G" . ignore) ("H" . 
ignore) ("J" . org-clock-goto) ("K" . ignore) ("L" . ignore) ("M" . ignore) 
("N" . bh/narrow-to-org-subtree) ("P" . bh/narrow-to-org-project) ("Q" . ignore)
                           ("R" . ignore) ("S" . ignore) ("T" . bh/org-todo) 
("U" . bh/narrow-up-one-org-level) ("V" . ignore) ("W" . bh/widen) ("X" . 
ignore) ("Y" . ignore) ("Z" . ignore))
 org-agenda-sticky t
 org-agenda-restore-windows-after-quit t
 org-file-apps '((auto-mode . emacs) ("\\.mm\\'" . system) ("\\.x?html?\\'" . 
system) ("\\.pdf\\'" . system))
 org-emphasis-alist '(("*" bold "<b>" "</b>") ("/" italic "<i>" "</i>") ("_" 
underline "<span style=\"text-decoration:underline;\">" "</span>") ("=" 
org-code "<code>" "</code>" verbatim) ("~" org-verbatim "<code>" "</code>" 
verbatim))
 org-list-allow-alphabetical t
 org-pretty-entities t
 org-special-ctrl-a/e t
 org-agenda-skip-scheduled-if-done t
 org-font-lock-hook '(org-inlinetask-fontify)
 org-agenda-custom-commands '(("N" "Notes" tags "NOTE" 
((org-agenda-overriding-header "Notes") (org-tags-match-list-sublevels t))) 
("h" "Habits" tags-todo "STYLE=\"habit\"" ((org-agenda-overriding-header 
"Habits") (org-agenda-sorting-strategy (quote (todo-state-down effort-up 
category-keep)))))
                              (" " "Agenda"
                               ((agenda "" nil) (tags "REFILE" 
((org-agenda-overriding-header "Tasks to Refile") 
(org-tags-match-list-sublevels nil)))
                                (tags-todo "-SOMEDAY-CANCELLED/!" 
((org-agenda-overriding-header "Stuck Projects") (org-agenda-skip-function 
(quote bh/skip-non-stuck-projects)) (org-agenda-sorting-strategy (quote 
(category-keep)))))
                                (tags-todo "-HOLD-CANCELLED/!" 
((org-agenda-overriding-header "Projects") (org-agenda-skip-function (quote 
bh/skip-non-projects)) (org-tags-match-list-sublevels (quote indented)) 
(org-agenda-sorting-strategy (quote (category-keep)))))
                                (tags-todo "-CANCELLED/!NEXT"
                                 ((org-agenda-overriding-header (concat 
"Project Next Tasks" (if bh/hide-scheduled-and-waiting-next-tasks "" " 
(including WAITING and SCHEDULED tasks)"))) (org-agenda-skip-function (quote 
bh/skip-projects-and-habits-and-single-tasks)) (org-tags-match-list-sublevels t)
                                  (org-agenda-todo-ignore-scheduled 
bh/hide-scheduled-and-waiting-next-tasks) (org-agenda-todo-ignore-deadlines 
bh/hide-scheduled-and-waiting-next-tasks) (org-agenda-todo-ignore-with-date 
bh/hide-scheduled-and-waiting-next-tasks)
                                  (org-agenda-sorting-strategy (quote 
(todo-state-down effort-up category-keep))))
                                 )
                                (tags-todo 
"-SOMEDAY-REFILE-CANCELLED-WAITING-HOLD/!"
                                 ((org-agenda-overriding-header (concat 
"Standalone Tasks" (if bh/hide-scheduled-and-waiting-next-tasks "" " (including 
WAITING and SCHEDULED tasks)"))) (org-agenda-skip-function (quote 
bh/skip-project-tasks))
                                  (org-agenda-todo-ignore-scheduled 
bh/hide-scheduled-and-waiting-next-tasks) (org-agenda-todo-ignore-deadlines 
bh/hide-scheduled-and-waiting-next-tasks) (org-agenda-todo-ignore-with-date 
bh/hide-scheduled-and-waiting-next-tasks) (org-agenda-sorting-strategy (quote 
(category-keep))))
                                 )
                                (tags-todo "-CANCELLED+WAITING|HOLD/!"
                                 ((org-agenda-overriding-header (concat 
"Waiting and Postponed Tasks" (if bh/hide-scheduled-and-waiting-next-tasks "" " 
(including WAITING and SCHEDULED tasks)"))) (org-agenda-skip-function (quote 
bh/skip-non-tasks)) (org-tags-match-list-sublevels nil)
                                  (org-agenda-todo-ignore-scheduled 
bh/hide-scheduled-and-waiting-next-tasks) (org-agenda-todo-ignore-deadlines 
bh/hide-scheduled-and-waiting-next-tasks))
                                 )
                                (tags "-REFILE/" ((org-agenda-overriding-header 
"Tasks to Archive") (org-agenda-skip-function (quote 
bh/skip-non-archivable-tasks)) (org-tags-match-list-sublevels nil))))
                               nil)
                              ("n" "Next tasks"
                               ((agenda "" nil)
                                (tags-todo "-CANCELLED/!NEXT"
                                 ((org-agenda-overriding-header (concat 
"Project Next Tasks" (if bh/hide-scheduled-and-waiting-next-tasks "" " 
(including WAITING and SCHEDULED tasks)"))) (org-agenda-skip-function (quote 
bh/skip-projects-and-habits-and-single-tasks)) (org-tags-match-list-sublevels t)
                                  (org-agenda-todo-ignore-scheduled 
bh/hide-scheduled-and-waiting-next-tasks) (org-agenda-todo-ignore-deadlines 
bh/hide-scheduled-and-waiting-next-tasks) (org-agenda-todo-ignore-with-date 
bh/hide-scheduled-and-waiting-next-tasks)
                                  (org-agenda-sorting-strategy (quote 
(todo-state-down effort-up category-keep))))
                                 )
                                (tags-todo "-SOMEDAY/!NEXT"
                                 ((org-agenda-overriding-header (concat 
"Standalone Tasks" (if bh/hide-scheduled-and-waiting-next-tasks "" " (including 
WAITING and SCHEDULED tasks)"))) (org-agenda-skip-function (quote 
bh/skip-project-tasks))
                                  (org-agenda-todo-ignore-scheduled 
bh/hide-scheduled-and-waiting-next-tasks) (org-agenda-todo-ignore-deadlines 
bh/hide-scheduled-and-waiting-next-tasks) (org-agenda-todo-ignore-with-date 
bh/hide-scheduled-and-waiting-next-tasks) (org-agenda-sorting-strategy (quote 
(category-keep))))
                                 )
                                (tags-todo "-CANCELLED+WAITING|HOLD/!"
                                 ((org-agenda-overriding-header (concat 
"Waiting and Postponed Tasks" (if bh/hide-scheduled-and-waiting-next-tasks "" " 
(including WAITING and SCHEDULED tasks)"))) (org-agenda-skip-function (quote 
bh/skip-non-tasks)) (org-tags-match-list-sublevels nil)
                                  (org-agenda-todo-ignore-scheduled 
bh/hide-scheduled-and-waiting-next-tasks) (org-agenda-todo-ignore-deadlines 
bh/hide-scheduled-and-waiting-next-tasks))
                                 )
                                )
                               nil)
                              ("i" "Incoming" ((tags "REFILE" 
((org-agenda-overriding-header "Tasks to Refile") 
(org-tags-match-list-sublevels nil))) (tags-todo 
"address@hidden@address@hidden" ((org-agenda-overriding-header "Tasks with no 
context") (org-tags-match-list-sublevels t)))) nil))
 org-use-sub-superscripts nil
 org-export-with-sub-superscripts nil
 org-html-xml-declaration '(("html" . "") ("was-html" . "<?xml version=\"1.0\" 
encoding=\"%s\"?>") ("php" . "<?php echo \"<?xml version=\\\"1.0\\\" 
encoding=\\\"%s\\\" ?>\"; ?>"))
 org-return-follows-link t
 org-latex-format-headline-function 'org-latex-format-headline-default-function
 org-agenda-restriction-lock-highlight-subtree nil
 org-default-notes-file "/var/data/org/notes.org"
 org-clock-in-resume t
 org-todo-keyword-faces '(("TODO" :foreground "red" :weight bold) ("NEXT" 
:foreground "blue" :weight bold) ("DONE" :foreground "forest green" :weight 
bold) ("WAITING" :foreground "orange" :weight bold) ("HOLD" :foreground 
"magenta" :weight bold) ("CANCELLED" :foreground "forest green" :weight bold)
                          ("MEETING" :foreground "forest green" :weight bold) 
("PHONE" :foreground "forest green" :weight bold))
 org-capture-templates '(("t" "todo" entry (file "refile.org") "* TODO 
%?\n%U\n%a\n" :clock-in t :clock-resume t) ("r" "respond" entry (file 
"refile.org") "* NEXT Respond to %:from on %:subject\nSCHEDULED: %t\n%U\n%a\n" 
:clock-in t :clock-resume t :immediate-finish t)
                         ("n" "note" entry (file+datetree "notes.org") "* %? 
:NOTE:\n%U\n%a\n" :clock-in t :clock-resume t) ("j" "Journal" entry 
(file+datetree "diary.org.gpg") "* %?\n%U\n" :clock-in t :clock-resume t) ("w" 
"org-protocol" entry (file "refile.org") "* TODO Review %c\n%U\n" 
:immediate-finish t)
                         ("m" "Meeting" entry (file "refile.org") "* MEETING 
with %? :MEETING:\n%U" :clock-in t :clock-resume t) ("p" "Phone call" entry 
(file "refile.org") "* PHONE %? :PHONE:\n%U" :clock-in t :clock-resume t)
                         ("h" "Habit" entry (file "refile.org") "* NEXT 
%?\n%U\n%a\nSCHEDULED: %(format-time-string \"<%Y-%m-%d %a 
.+1d/3d>\")\n:PROPERTIES:\n:STYLE: habit\n:REPEAT_TO_STATE: NEXT\n:END:\n")
                         ("c" "Checklist habit" entry (file "refile.org") "* 
NEXT %^{description} [/]\n%U\n - [ ] %?\n%a\nSCHEDULED: %(format-time-string 
\"<%Y-%m-%d %a .+1d/3d>\")\n:PROPERTIES:\n:STYLE: habit\n:REPEAT_TO_STATE: 
NEXT\n:RESET_CHECK_BOXES: t\n:END:\n"))
 org-startup-indented t
 org-after-todo-state-change-hook '(org-checklist org-clock-out-if-current 
bh/mark-next-parent-tasks-todo)
 org-latex-format-drawer-function '(lambda (name contents) contents)
 org-from-is-user-regexp "\\<whirm\\>"
 org-src-mode-hook '(org-src-babel-configure-edit-buffer 
org-src-mode-configure-edit-buffer)
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-agenda-clock-consistency-checks '(:max-duration "4:00" :min-duration 0 
:max-gap 0 :gap-ok-around ("4:00"))
 org-babel-pre-tangle-hook '(save-buffer)
 org-global-properties '(("Effort_ALL" . "0:15 0:30 0:45 1:00 2:00 3:00 4:00 
5:00 6:00 0:00") ("STYLE_ALL" . "habit"))
 org-html-head-include-default-style nil
 org-agenda-dim-blocked-tasks nil
 org-mode-hook '(er/add-org-mode-expansions (lambda nil (org-add-hook (quote 
before-save-hook) (quote org-encrypt-entries) nil t)) #[nil "\300\301!\207" 
[abbrev-mode 1] 2] org-clock-load #[nil "\300\301!\207" [org-bullets-mode t] 2]
                 (lambda nil (org-add-hook (quote change-major-mode-hook) 
(quote org-show-block-all) (quote append) (quote local))) (lambda nil 
(org-add-hook (quote change-major-mode-hook) (quote org-babel-show-result-all) 
(quote append) (quote local))) org-babel-result-hide-spec 
org-babel-hide-all-hashes
                 turn-on-flyspell (lambda nil (org-defkey org-mode-map ".[" 
(quote undefined)) (org-defkey org-mode-map ".]" (quote undefined)) (org-defkey 
org-mode-map ".;" (quote undefined)) (org-defkey org-mode-map ".." (quote 
undefined)))
                 #[nil "\300\301\302\"\207" [local-set-key [3 134217839] 
bh/mail-subtree] 3])
 org-refile-targets '((nil :maxlevel . 9) (org-agenda-files :maxlevel . 9))
 org-agenda-cmp-user-defined 'bh/agenda-sort
 org-export-coding-system 'utf-8
 org-outline-path-complete-in-steps nil
 org-todo-state-tags-triggers '(("CANCELLED" ("CANCELLED" . t)) ("WAITING" 
("WAITING" . t)) ("HOLD" ("WAITING") ("HOLD" . t)) (done ("WAITING") ("HOLD")) 
("TODO" ("WAITING") ("CANCELLED") ("HOLD")) ("NEXT" ("WAITING") ("CANCELLED") 
("HOLD")) ("DONE" ("WAITING") ("CANCELLED") ("HOLD")))
 org-stuck-projects '("" nil nil "")
 org-archive-hook '(org-attach-archive-delete-maybe)
 org-use-speed-commands t
 org-agenda-compact-blocks t
 org-agenda-sorting-strategy '((agenda habit-down time-up user-defined-up 
effort-up category-keep) (todo category-up effort-up) (tags category-up 
effort-up) (search category-up))
 org-ascii-format-drawer-function '(lambda (name contents width) contents)
 org-agenda-time-grid '((daily today remove-match) #("----------------" 0 16 
(org-heading t)) (900 1100 1300 1500 1700))
 org-clock-persist t
 org-yank-adjusted-subtrees t
 org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point 
org-babel-execute-safely-maybe)
 org-refile-use-outline-path t
 org-agenda-persistent-filter t
 org-clock-in-switch-to-state 'bh/clock-in-to-next
 org-directory "/var/data/org/"
 org-enforce-todo-dependencies t
 org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers 
org-cycle-hide-inline-tasks org-cycle-show-empty-lines 
org-optimize-window-after-visibility-change)
 org-tags-exclude-from-inheritance '("crypt")
 org-agenda-tags-column -102
 org-plantuml-jar-path "~/java/plantuml.jar"
 org-archive-location "%s_archive::* Archived Tasks"
 org-clone-delete-id t
 org-read-date-prefer-future 'time
 org-bullets-bullet-list '("⎈" "◉" "○" "∙" "∘")
 org-agenda-finalize-hook '(bh/org-agenda-to-appt)
 org-agenda-text-search-extra-files '(agenda-archives)
 org-agenda-insert-diary-extract-time t
 org-clock-persist-query-resume nil
 org-crypt-key "F0B66B40"
 org-refile-allow-creating-parent-nodes 'confirm
 org-blank-before-new-entry '((heading) (plain-list-item . auto))
 org-todo-keywords '((sequence "TODO(t)" "NEXT(n)" "|" "DONE(d)") (sequence 
"WAITING(w@/!)" "HOLD(h@/!)" "|" "CANCELLED(c@/!)" "PHONE" "MEETING"))
 org-time-stamp-rounding-minutes '(1 1)
 org-modules '(org-bbdb org-bibtex org-crypt org-gnus org-id org-info 
org-jsinfo org-habit org-inlinetask org-irc org-mew org-mhe org-protocol 
org-rmail org-vm org-wl org-w3m)
 org-agenda-window-setup 'current-window
 org-clock-report-include-clocking-task t
 org-agenda-span 'day
 org-catch-invisible-edits 'error
 org-deadline-warning-days 30
 org-babel-tangle-lang-exts '(("latex" . "tex") ("clojure" . "clj") ("ruby" . 
"rb") ("python" . "py") ("awk" . "awk") ("emacs-lisp" . "el") ("elisp" . "el"))
 org-confirm-elisp-link-function 'yes-or-no-p
 org-edit-src-content-indentation 0
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-log-into-drawer t
 org-crypt-disable-auto-save nil
 org-babel-after-execute-hook '(bh/display-inline-images)
 org-latex-listings t
 org-checklist-export-function 'org-export-as-ascii
 org-html-head-extra "<link rel=\"stylesheet\" 
href=\"http://doc.norang.ca/org.css\"; type=\"text/css\" />"
 org-treat-S-cursor-todo-selection-as-state-change nil
 org-show-siblings '((default))
 org-ditaa-jar-path "~/git/org-mode/contrib/scripts/ditaa.jar"
 org-list-demote-modify-bullet '(("+" . "-") ("*" . "-") ("1." . "-") ("1)" . 
"-") ("A)" . "-") ("B)" . "-") ("a)" . "-") ("b)" . "-") ("A." . "-") ("B." . 
"-") ("a." . "-") ("b." . "-"))
 org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent)
 org-agenda-skip-deadline-if-done t
 org-html-format-headline-function 'org-html-format-headline-default-function
 org-structure-template-alist '(("s" "#+begin_src ?\n\n#+end_src" "<src 
lang=\"?\">\n\n</src>") ("e" "#+begin_example\n?\n#+end_example" 
"<example>\n?\n</example>") ("q" "#+begin_quote\n?\n#+end_quote" 
"<quote>\n?\n</quote>") ("v" "#+begin_verse\n?\n#+end_verse" 
"<verse>\n?\n</verse>")
                                ("c" "#+begin_center\n?\n#+end_center" 
"<center>\n?\n</center>") ("l" "#+begin_latex\n?\n#+end_latex" "<literal 
style=\"latex\">\n?\n</literal>") ("L" "#+latex: " "<literal 
style=\"latex\">?</literal>") ("h" "#+begin_html\n?\n#+end_html" "<literal 
style=\"html\">\n?\n</literal>")
                                ("H" "#+html: " "<literal 
style=\"html\">?</literal>") ("a" "#+begin_ascii\n?\n#+end_ascii") ("A" 
"#+ascii: ") ("i" "#+index: ?" "#+index: ?") ("I" "#+include %file ?" "<include 
file=%file markup=\"?\">"))
 org-mobile-directory "**********"
 org-cycle-separator-lines 0
 org-indirect-buffer-display 'current-window
 org-babel-load-languages '((awk . t) (emacs-lisp . t) (dot . t) (ditaa . t) (R 
. t) (python . t) (ruby . t) (gnuplot . t) (clojure . t) (sh . t) (ledger . t) 
(org . t) (plantuml . t) (latex . t))
 org-clock-sound "/usr/local/lib/tngchime.wav"
 org-clock-in-hook '((lambda nil (if (not org-timer-current-timer) 
(org-pomodoro))) bh/mark-next-parent-tasks-todo)
 org-reveal-start-hook '(org-decrypt-entry)
 org-html-format-inlinetask-function 
'org-html-format-inlinetask-default-function
 org-agenda-mode-hook '(#[nil "\300\301\302\"\207" [local-set-key [S-return] 
org-pomodoro] 3] (lambda nil (org-defkey org-agenda-mode-map "W" (lambda nil 
(interactive) (setq bh/hide-scheduled-and-waiting-next-tasks t) (bh/widen))))
                        (lambda nil (org-defkey org-agenda-mode-map "F" (quote 
bh/restrict-to-file-or-follow))) (lambda nil (org-defkey org-agenda-mode-map 
"N" (quote bh/narrow-to-subtree))) (lambda nil (org-defkey org-agenda-mode-map 
"U" (quote bh/narrow-up-one-level)))
                        (lambda nil (org-defkey org-agenda-mode-map "P" (quote 
bh/narrow-to-project))) (lambda nil (org-defkey org-agenda-mode-map "V" (quote 
bh/view-next-project))) (lambda nil (org-defkey org-agenda-mode-map ".<" 
(quote bh/set-agenda-restriction-lock))) (lambda nil (hl-line-mode 1)))
 org-habit-graph-column 50
 org-agenda-files '("/var/data/org/gtd.org" "/var/data/org/refile.org" 
"/var/data/org/someday.org" "/var/data/org/mobile.org" 
"/var/data/org/notes.org")
 org-clock-out-hook '(org-clock-remove-empty-clock-drawer 
bh/remove-empty-drawer-on-clock-out bh/clock-out-maybe)
 org-link-frame-setup '((vm . vm-visit-folder) (gnus . org-gnus-no-new-news) 
(file . find-file))
 org-mobile-inbox-for-pull "/var/data/org//mobile.org"
 org-export-headline-levels 6
 org-agenda-skip-additional-timestamps-same-entry t
 org-clock-out-remove-zero-time-clocks t
 org-refile-target-verify-function 'bh/verify-refile-target
  org-tag-alist '((:startgroup) ("@errand" . 101) ("@office" . 111) ("@home" . 
72) (:endgroup) ("WAITING" . 119) ("HOLD" . 104) ("PERSONAL" . 80) ("WORK" . 
87) ("COMPUTER" . 99) ("crypt" . 69) ("NOTE" . 110) ("CANCELLED" . 67) 
("FLAGGED" . 58))
 )

--
Elric
PGP: 3939C2B494084E2F



reply via email to

[Prev in Thread] Current Thread [Next in Thread]