Re: [Orgmode] Printing Multiple Lines For Agenda Export

[David Maus]

Andre Powell wrote: >I have some task that have/need more descriptive
text, but I am not able to get the text to show up when I export the
view. I have set the command : Org Agenda Add Entry Text Maxlines to
display more than 0, but then the program hangs and I have to force it
to quit.

I can confirm this for

Org-mode version 7.01trans (release_7.01h.88.gb8a0)

on

GNU Emacs 23.2.1 (i486-pc-linux-gnu, GTK+ Version 2.20.1) of
2010-08-06 on murphy, modified by Debian

Setting debug-on-quit to non-nil and quitting the hang gives this
backtrace:

Debugger entered--Lisp error: (quit)
  (if org-agenda-add-entry-text-descriptive-links (progn (goto-char ...) (while 
... ...)))
  (when org-agenda-add-entry-text-descriptive-links (goto-char (point-min)) 
(while (org-activate-bracket-links ...) (add-text-properties ... ... ...)))
  (progn (insert txt) (when org-agenda-add-entry-text-descriptive-links 
(goto-char ...) (while ... ...)) (goto-char (point-min)) (while 
(re-search-forward org-bracket-link-regexp ... t) (set-text-properties ... ... 
nil)) (goto-char (point-min)) (while (re-search-forward drawer-re nil t) 
(delete-region ... ...)) (unless (member ... keep) (goto-char ...) (while ... 
...)) (goto-char (point-min)) (when org-agenda-entry-text-exclude-regexps (let 
... ...)) (goto-char (point-max)) (skip-chars-backward "   \n") (if (looking-at 
"[         \n]+\\'") (replace-match "")) (goto-char (point-min)) (untabify 
(point-min) (point-max)) (setq ind (org-get-indentation)) (while (not ...) 
(unless ... ...) (beginning-of-line 2)) (goto-char (point-min)) (while (not 
...) (unless ... ... ...) (beginning-of-line 2)) (run-hooks (quote 
org-agenda-entry-text-cleanup-hook)) (goto-char (point-min)) (when indent 
(while ... ...)) (goto-char (point-min)) (while (looking-at "[      ]*\n") 
(replace-match "")) (goto-char (poi
 nt-max)) (when (> ... n-lines) (org-goto-line ...) (backward-char 1)) (setq 
txt (buffer-substring ... ...)))
  (unwind-protect (progn (insert txt) (when 
org-agenda-add-entry-text-descriptive-links ... ...) (goto-char ...) (while ... 
...) (goto-char ...) (while ... ...) (unless ... ... ...) (goto-char ...) (when 
org-agenda-entry-text-exclude-regexps ...) (goto-char ...) (skip-chars-backward 
"   \n") (if ... ...) (goto-char ...) (untabify ... ...) (setq ind ...) (while 
... ... ...) (goto-char ...) (while ... ... ...) (run-hooks ...) (goto-char 
...) (when indent ...) (goto-char ...) (while ... ...) (goto-char ...) (when 
... ... ...) (setq txt ...)) (and (buffer-name temp-buffer) (kill-buffer 
temp-buffer)))
  (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ... 
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... 
... ... ... ...) (and ... ...)))
  (with-current-buffer temp-buffer (unwind-protect (progn ... ... ... ... ... 
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... 
...) (and ... ...)))
  (let ((temp-buffer ...)) (with-current-buffer temp-buffer (unwind-protect ... 
...)))
  (with-temp-buffer (insert txt) (when 
org-agenda-add-entry-text-descriptive-links (goto-char ...) (while ... ...)) 
(goto-char (point-min)) (while (re-search-forward org-bracket-link-regexp ... 
t) (set-text-properties ... ... nil)) (goto-char (point-min)) (while 
(re-search-forward drawer-re nil t) (delete-region ... ...)) (unless (member 
... keep) (goto-char ...) (while ... ...)) (goto-char (point-min)) (when 
org-agenda-entry-text-exclude-regexps (let ... ...)) (goto-char (point-max)) 
(skip-chars-backward "        \n") (if (looking-at "[         \n]+\\'") 
(replace-match "")) (goto-char (point-min)) (untabify (point-min) (point-max)) 
(setq ind (org-get-indentation)) (while (not ...) (unless ... ...) 
(beginning-of-line 2)) (goto-char (point-min)) (while (not ...) (unless ... ... 
...) (beginning-of-line 2)) (run-hooks (quote 
org-agenda-entry-text-cleanup-hook)) (goto-char (point-min)) (when indent 
(while ... ...)) (goto-char (point-min)) (while (looking-at "[      ]*\n") 
(replace-match "")) (got
 o-char (point-max)) (when (> ... n-lines) (org-goto-line ...) (backward-char 
1)) (setq txt (buffer-substring ... ...)))
  (save-restriction (widen) (goto-char marker) (end-of-line 1) (setq txt 
(buffer-substring ... ...) drawer-re org-drawer-regexp kwd-time-re (concat "^[  
       ]*" org-keyword-time-regexp ".*\n?")) (with-temp-buffer (insert txt) 
(when org-agenda-add-entry-text-descriptive-links ... ...) (goto-char ...) 
(while ... ...) (goto-char ...) (while ... ...) (unless ... ... ...) (goto-char 
...) (when org-agenda-entry-text-exclude-regexps ...) (goto-char ...) 
(skip-chars-backward "    \n") (if ... ...) (goto-char ...) (untabify ... ...) 
(setq ind ...) (while ... ... ...) (goto-char ...) (while ... ... ...) 
(run-hooks ...) (goto-char ...) (when indent ...) (goto-char ...) (while ... 
...) (goto-char ...) (when ... ... ...) (setq txt ...)))
  (save-excursion (save-restriction (widen) (goto-char marker) (end-of-line 1) 
(setq txt ... drawer-re org-drawer-regexp kwd-time-re ...) (with-temp-buffer 
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... 
... ... ... ... ... ...)))
  (if (not (org-mode-p)) (setq txt "") (save-excursion (save-restriction ... 
... ... ... ...)))
  (save-current-buffer (set-buffer (marker-buffer marker)) (if (not ...) (setq 
txt "") (save-excursion ...)))
  (with-current-buffer (marker-buffer marker) (if (not ...) (setq txt "") 
(save-excursion ...)))
  (save-excursion (with-current-buffer (marker-buffer marker) (if ... ... ...)))
  (let (txt drawer-re kwd-time-re ind) (save-excursion (with-current-buffer ... 
...)) txt)
  org-agenda-get-some-entry-text(#<marker at 1 in inbox.org> 3 "    > ")
  (setq txt (org-agenda-get-some-entry-text m 
org-agenda-add-entry-text-maxlines "    > "))
  (if (not (setq m ...)) (beginning-of-line 2) (setq txt 
(org-agenda-get-some-entry-text m org-agenda-add-entry-text-maxlines "    > ")) 
(end-of-line 1) (if (string-match "\\S-" txt) (insert "\n" txt)))
  (while (not (eobp)) (if (not ...) (beginning-of-line 2) (setq txt ...) 
(end-of-line 1) (if ... ...)))
  (let (m txt) (goto-char (point-min)) (while (not ...) (if ... ... ... ... 
...)))
  (progn (let (m txt) (goto-char ...) (while ... ...)))
  (if (and (> org-agenda-add-entry-text-maxlines 0) (not ...)) (progn (let ... 
... ...)))
  (when (and (> org-agenda-add-entry-text-maxlines 0) (not ...)) (let (m txt) 
(goto-char ...) (while ... ...)))
  org-agenda-add-entry-text()
  run-hooks(org-agenda-before-write-hook)
  (progn (insert bs) (org-agenda-remove-marked-text (quote org-filtered)) 
(while (setq beg ...) (delete-region beg ...)) (run-hooks (quote 
org-agenda-before-write-hook)) (cond (... ...) (... ... ... ... ... ...) (... 
... t ...) (... ... t ... ...) (... ... ...) (t ...)))
  (unwind-protect (progn (insert bs) (org-agenda-remove-marked-text ...) (while 
... ...) (run-hooks ...) (cond ... ... ... ... ... ...)) (and (buffer-name 
temp-buffer) (kill-buffer temp-buffer)))
  (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ... 
... ... ...) (and ... ...)))
  (with-current-buffer temp-buffer (unwind-protect (progn ... ... ... ... ...) 
(and ... ...)))
  (let ((temp-buffer ...)) (with-current-buffer temp-buffer (unwind-protect ... 
...)))
  (with-temp-buffer (insert bs) (org-agenda-remove-marked-text (quote 
org-filtered)) (while (setq beg ...) (delete-region beg ...)) (run-hooks (quote 
org-agenda-before-write-hook)) (cond (... ...) (... ... ... ... ... ...) (... 
... t ...) (... ... t ... ...) (... ... ...) (t ...)))
  (let ((bs ...) beg) (org-agenda-unmark-filtered-text) (with-temp-buffer 
(insert bs) (org-agenda-remove-marked-text ...) (while ... ...) (run-hooks ...) 
(cond ... ... ... ... ... ...)))
  (save-window-excursion (org-agenda-mark-filtered-text) (let (... beg) 
(org-agenda-unmark-filtered-text) (with-temp-buffer ... ... ... ... ...)))
  (save-excursion (save-window-excursion (org-agenda-mark-filtered-text) (let 
... ... ...)))
  (let nil (save-excursion (save-window-excursion ... ...)) #<buffer *Org 
Agenda*>)
  eval((let nil (save-excursion (save-window-excursion ... ...)) #<buffer *Org 
Agenda*>))
  org-let(nil (save-excursion (save-window-excursion 
(org-agenda-mark-filtered-text) (let ... ... ...))) #<buffer *Org Agenda*>)
  org-write-agenda("~/code/org-mode/test.pdf" nil)
  call-interactively(org-write-agenda nil nil)


HTH,
  -- David
--
OpenPGP... 0x99ADB83B5A4478E6
Jabber.... address@hidden
Email..... address@hidden

pgpmJQCTCxyZj.pgp
Description: PGP signature