Re: Re: PocketMod for org-mode

[Bastien <bzg@altern.org>]

[-- Attachment #1: Type: text/plain, Size: 430 bytes --]

Christian Egli <christian.egli@novell.com> writes:

>> Should we use `cal-tex.el'-like output (very nice but very specific, and
>> not flexible)? Should we just use a straightforward verbatim display?
>> Should we use sections for agenda with multiple views?
>
> A straightforward verbatim dump of the agenda view is fine for me. In
> fact I was just going to use the ps output in my Makefile.

Try this patch against Org 5.12c:


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: org.el.patch --]
[-- Type: text/x-diff, Size: 1772 bytes --]

diff -u /home/guerry/elisp/testing/org/org.el /home/guerry/elisp/testing/bzg/org.el
--- /home/guerry/elisp/testing/org/org.el	2007-10-12 20:32:10.000000000 +0100
+++ /home/guerry/elisp/testing/bzg/org.el	2007-10-18 13:17:18.000000000 +0100
@@ -17885,7 +17885,8 @@
       (error "Cannot write agenda to file %s" file))
   (cond
    ((string-match "\\.html?\\'" file) (require 'htmlize))
-   ((string-match "\\.ps\\'" file) (require 'ps-print)))
+   ((string-match "\\.ps\\'" file) (require 'ps-print))
+   ((string-match "\\.tex\\'" file) (require 'org-export-latex)))
   (org-let (if nosettings nil org-agenda-exporter-settings)
     '(save-excursion
        (save-window-excursion
@@ -17903,6 +17904,23 @@
 	   (write-file file)
 	   (kill-buffer (current-buffer))
 	   (message "HTML written to %s" file))
+	  ((string-match "\\.tex\\'" file)
+	   (let ((buffer-file-name file))
+	     (set-buffer (org-export-as-latex nil nil nil "*Org LaTeX export*")))
+	   (goto-char (point-min))
+	   (save-excursion
+	     (when (re-search-forward "^[a-zA-Z0-9]" nil t)
+	       (replace-match "\\\\begin{verbatim}\n\\&" t nil))
+	     (while (re-search-forward 
+		     "\\\\\\([a-z]+\\){\\([^}]+\\)}\\(?:{\\([^}]+\\)}\\)?" nil t)
+	       (unless (string-match "begin\\|end" (match-string 1))
+		 (replace-match (or (match-string 3) (match-string 2)) t t))))
+	   (while (re-search-forward "\\[\\\\#" nil t)
+	     (replace-match "[#" t t))
+	   (when (search-forward "\\end{document}" nil t)
+	     (replace-match "\\\\end{verbatim}\n\\&" t nil))
+	   (write-file file)
+	   (message "LaTeX written to %s" file))
 	  ((string-match "\\.ps\\'" file)
 	   (ps-print-buffer-with-faces file)
 	   (message "Postscript written to %s" file))

Diff finished.  Thu Oct 18 13:18:45 2007

[-- Attachment #3: Type: text/plain, Size: 216 bytes --]


This is just a temporary workaround, but it might be enough in most
cases. It performs a few checks on the LaTeX output so that links and
priorities are correctly displayed in the verbatim environment.

-- 
Bastien

[-- Attachment #4: Type: text/plain, Size: 204 bytes --]

_______________________________________________
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode