From mboxrd@z Thu Jan 1 00:00:00 1970 From: David Maus Subject: Re: Printing Multiple Lines For Agenda Export Date: Sun, 08 Aug 2010 13:52:09 +0200 Message-ID: <87k4o1jp92.wl%dmaus@ictsoc.de> References: Mime-Version: 1.0 (generated by SEMI 1.14.6 - "Maruoka") Content-Type: multipart/mixed; boundary="===============2120739775==" Return-path: Received: from [140.186.70.92] (port=51252 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Oi90O-0002Fm-ET for emacs-orgmode@gnu.org; Sun, 08 Aug 2010 12:45:55 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1Oi4RY-0002qv-9o for emacs-orgmode@gnu.org; Sun, 08 Aug 2010 07:53:34 -0400 Received: from mysql1.xlhost.de ([213.202.242.106]:60398) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1Oi4RX-0000hD-KN for emacs-orgmode@gnu.org; Sun, 08 Aug 2010 07:53:32 -0400 In-Reply-To: List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Andre Powell Cc: emacs-orgmode@gnu.org --===============2120739775== Content-Type: multipart/signed; boundary="pgp-sign-Multipart_Sun_Aug__8_13:52:09_2010-1"; micalg=pgp-sha256; protocol="application/pgp-signature" Content-Transfer-Encoding: 7bit --pgp-sign-Multipart_Sun_Aug__8_13:52:09_2010-1 Content-Type: text/plain; charset=US-ASCII 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-hoo ks (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(# 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 ... ...)) #) eval((let nil (save-excursion (save-window-excursion ... ...)) #)) org-let(nil (save-excursion (save-window-excursion (org-agenda-mark-filtered-text) (let ... ... ...))) #) org-write-agenda("~/code/org-mode/test.pdf" nil) call-interactively(org-write-agenda nil nil) HTH, -- David -- OpenPGP... 0x99ADB83B5A4478E6 Jabber.... dmjena@jabber.org Email..... dmaus@ictsoc.de --pgp-sign-Multipart_Sun_Aug__8_13:52:09_2010-1 Content-Type: application/pgp-signature Content-Transfer-Encoding: 7bit -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.10 (GNU/Linux) iF4EABEIAAYFAkxemmkACgkQma24O1pEeOaIgQD/b3bQ7ZBIkRImc6sK2dBuwA5n Fbc6+7HE3bHGUrwdN4EBAIe7MVEp1rRK3DnV0cMH7me2bkd5GDDmAJvmovOnCtqY =YNDJ -----END PGP SIGNATURE----- --pgp-sign-Multipart_Sun_Aug__8_13:52:09_2010-1-- --===============2120739775== Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode --===============2120739775==--