From mboxrd@z Thu Jan 1 00:00:00 1970 From: Elric Milon Subject: 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 Message-ID: <87r3xj9llm.fsf@whirm.eu> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:33712) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XleBH-0004dj-MN for emacs-orgmode@gnu.org; Tue, 04 Nov 2014 08:30:02 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1XleBA-0007BA-OM for emacs-orgmode@gnu.org; Tue, 04 Nov 2014 08:29:55 -0500 Received: from 94-23-84-203.ovh.net ([94.23.84.203]:36734 helo=mx1.whirm.eu) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XleBA-0007B2-Ao for emacs-orgmode@gnu.org; Tue, 04 Nov 2014 08:29:48 -0500 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org -- 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 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 "-SOMEDAY-NOTES= -@office-@home-@errands" ((org-agenda-overriding-header "Tasks with no co= ntext") (org-tags-match-list-sublevels t)))) nil) And the stacktrace top: Debugger entered--Lisp error: (wrong-type-argument listp #("-{\\<\\(?:@of= fice\\)\\>}" 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-p= rops rpl (quote (grouptag t)))) (setq rtnmatch (replace-match rpl t t rtn= match))) ... Full stacktrace at: http://paste.lisp.org/+33BI Thanks for this amazing piece of software! =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D 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/wh= irm/.emacs.d/var/el-get/org-mode/lisp/) current state: =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D (setq org-table-export-default-format "orgtbl-to-csv" org-src-lang-modes '(("plantuml" . fundamental) ("ocaml" . tuareg) ("eli= sp" . emacs-lisp) ("ditaa" . artist) ("asymptote" . asy) ("dot" . fundame= ntal) ("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-t= oggle-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-defaul= t-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){:} %10CLOCKS= UM" org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-defaul= t 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/hid= e-other) ("i" progn (forward-char 1) (call-interactivel= y (quote org-insert-heading-respect-content))) ("k" . org-kill-note-or-sh= ow-branches) ("l" . ignore) ("m" . ignore) ("q" . bh/show-org-agenda) ("r= " . ignore) ("s" . org-save-all-org-buffers) ("w" . org-refile) ("x" . ig= nore) ("y" . ignore) ("z" . org-add-note) ("A" . ignore) ("B" . ign= ore) ("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-projec= t) ("Q" . ignore) ("R" . ignore) ("S" . ignore) ("T" . bh/org-to= do) ("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 "" "") ("/" italic "" "") (= "_" underline "" "") = ("=3D" org-code "" "" verbatim) ("~" org-verbatim "" "= " 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-overr= iding-header "Notes") (org-tags-match-list-sublevels t))) ("h" "Habits" t= ags-todo "STYLE=3D\"habit\"" ((org-agenda-overriding-header "Habits") (or= g-agenda-sorting-strategy (quote (todo-state-down effort-up category-keep= ))))) (" " "Agenda" ((agenda "" nil) (tags "REFILE" ((org-agen= da-overriding-header "Tasks to Refile") (org-tags-match-list-sublevels ni= l))) (tags-todo "-SOMEDAY-CANCELLED/!" ((org-a= genda-overriding-header "Stuck Projects") (org-agenda-skip-function (quot= e bh/skip-non-stuck-projects)) (org-agenda-sorting-strategy (quote (categ= ory-keep))))) (tags-todo "-HOLD-CANCELLED/!" ((org-agen= da-overriding-header "Projects") (org-agenda-skip-function (quote bh/skip= -non-projects)) (org-tags-match-list-sublevels (quote indented)) (org-age= nda-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 "" " (in= cluding WAITING and SCHEDULED tasks)"))) (org-agenda-skip-function (quote = bh/skip-projects-and-habits-and-single-tasks)) (org-tags-match-list-suble= vels t) (org-agenda-todo-ignore-scheduled bh/hi= de-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 (to= do-state-down effort-up category-keep)))) ) (tags-todo "-SOMEDAY-REFILE-CANCELLED-WAI= TING-HOLD/!" ((org-agenda-overriding-header (concat "= Standalone Tasks" (if bh/hide-scheduled-and-waiting-next-tasks "" " (incl= uding WAITING and SCHEDULED tasks)"))) (org-agenda-skip-function (quote b= h/skip-project-tasks)) (org-agenda-todo-ignore-scheduled bh/hi= de-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 (q= uote (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-functio= n (quote bh/skip-non-tasks)) (org-tags-match-list-sublevels nil) (org-agenda-todo-ignore-scheduled bh/hi= de-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-a= rchivable-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 "" " (in= cluding WAITING and SCHEDULED tasks)"))) (org-agenda-skip-function (quote = bh/skip-projects-and-habits-and-single-tasks)) (org-tags-match-list-suble= vels t) (org-agenda-todo-ignore-scheduled bh/hi= de-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 (to= do-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 "" " (incl= uding WAITING and SCHEDULED tasks)"))) (org-agenda-skip-function (quote b= h/skip-project-tasks)) (org-agenda-todo-ignore-scheduled bh/hi= de-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 (q= uote (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-functio= n (quote bh/skip-non-tasks)) (org-tags-match-list-sublevels nil) (org-agenda-todo-ignore-scheduled bh/hi= de-scheduled-and-waiting-next-tasks) (org-agenda-todo-ignore-deadlines bh= /hide-scheduled-and-waiting-next-tasks)) ) ) nil) ("i" "Incoming" ((tags "REFILE" ((org-agend= a-overriding-header "Tasks to Refile") (org-tags-match-list-sublevels nil= ))) (tags-todo "-SOMEDAY-NOTES-@office-@home-@errands" ((org-agenda-overr= iding-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" . "") ("php" . "\"; ?>")) org-return-follows-link t org-latex-format-headline-function 'org-latex-format-headline-default-fu= nction 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" :weig= ht bold) ("WAITING" :foreground "orange" :weight bold) ("HOLD" :foregroun= d "magenta" :weight bold) ("CANCELLED" :foreground "forest green" :weight = bold) ("MEETING" :foreground "forest green" :weight b= old) ("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 "refi= le.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 (f= ile+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" :im= mediate-finish t) ("m" "Meeting" entry (file "refile.org") "* MEET= ING 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-res= ume t) ("h" "Habit" entry (file "refile.org") "* NEXT %= ?\n%U\n%a\nSCHEDULED: %(format-time-string \"<%Y-%m-%d %a .+1d/3d>\")\n:P= ROPERTIES:\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_T= O_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-curren= t bh/mark-next-parent-tasks-todo) org-latex-format-drawer-function '(lambda (name contents) contents) org-from-is-user-regexp "\\" org-src-mode-hook '(org-src-babel-configure-edit-buffer org-src-mode-con= figure-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 (qu= ote 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-bulle= ts-mode t] 2] (lambda nil (org-add-hook (quote change-major-mode-hook) = (quote org-show-block-all) (quote append) (quote local))) (lambda nil (or= g-add-hook (quote change-major-mode-hook) (quote org-babel-show-result-al= l) (quote append) (quote local))) org-babel-result-hide-spec org-babel-hi= de-all-hashes turn-on-flyspell (lambda nil (org-defkey org-mode-map ".= [" (quote undefined)) (org-defkey org-mode-map ".]" (quote undefined)) (o= rg-defkey org-mode-map ".;" (quote undefined)) (org-defkey org-mode-map "= .=18." (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 e= ffort-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-safel= y-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-windo= w-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 '("=E2=8E=88" "=E2=97=89" "=E2=97=8B" "=E2=88=99= " "=E2=88=98") 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)") (sequen= ce "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") ("rub= y" . "rb") ("python" . "py") ("awk" . "awk") ("emacs-lisp" . "el") ("elis= p" . "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 "" 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-func= tion org-structure-template-alist '(("s" "#+begin_src ?\n\n#+end_src" "\n\n") ("e" "#+begin_example\n?\n#+end_example" "\n?\n") ("q" "#+begin_quote\n?\n#+end_quote" "\n?\n") ("v" "#+begin_verse\n?\n#+end_verse" "\n?\n") ("c" "#+begin_center\n?\n#+end_center" "<= center>\n?\n") ("l" "#+begin_latex\n?\n#+end_latex" "\n?\n") ("L" "#+latex: " "?") ("h" "#+begin_html\n?\n#+end_html" "\n?\n") ("H" "#+html: " "?") ("a" "#+begin_ascii\n?\n#+end_ascii") ("A" "#+ascii: ") (= "i" "#+index: ?" "#+index: ?") ("I" "#+include %file ?" "")) 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-p= omodoro))) 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-retu= rn] org-pomodoro] 3] (lambda nil (org-defkey org-agenda-mode-map "W" (lam= bda 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-mod= e-map ".=18<" (quote bh/set-agenda-restriction-lock))) (lambda nil (hl-li= ne-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-ne= ws) (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) ("@ho= me" . 72) (:endgroup) ("WAITING" . 119) ("HOLD" . 104) ("PERSONAL" . 80) = ("WORK" . 87) ("COMPUTER" . 99) ("crypt" . 69) ("NOTE" . 110) ("CANCELLED= " . 67) ("FLAGGED" . 58)) ) -- Elric PGP: 3939C2B494084E2F