From mboxrd@z Thu Jan 1 00:00:00 1970 From: Jambunathan K Subject: Re: error writing agenda view to html file Date: Sat, 16 Jul 2011 00:00:05 +0530 Message-ID: <81hb6n1jo2.fsf@gmail.com> References: Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from eggs.gnu.org ([140.186.70.92]:53940) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Qhn9O-000726-4c for emacs-orgmode@gnu.org; Fri, 15 Jul 2011 14:30:14 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Qhn9I-0008UZ-CS for emacs-orgmode@gnu.org; Fri, 15 Jul 2011 14:30:09 -0400 Received: from mail-pv0-f169.google.com ([74.125.83.169]:49165) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Qhn9H-0008T2-KP for emacs-orgmode@gnu.org; Fri, 15 Jul 2011 14:30:04 -0400 Received: by pvc12 with SMTP id 12so1660497pvc.0 for ; Fri, 15 Jul 2011 11:30:00 -0700 (PDT) In-Reply-To: (Rainer Stengele's message of "Fri, 15 Jul 2011 18:46:02 +0200") 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: Rainer Stengele Cc: emacs-orgmode@gnu.org Rainer Stengele writes: > Hi all! > > In agenda view doing a C-x C-w produces a face related error. > Can somebody help me out finding the issue in this debug message? > Which font shoudl I change/correct? Possible candidates are one of these faces --8<---------------cut here---------------start------------->8--- htmlize-make-face-map((default org-link org-table org-agenda-date-weekend org-agenda-current-time org-time-grid org-agenda-date-today (:foreground "purple" :weight bold :underline nil) (:foreground "dark orange" :weight bold :underline nil) (:foreground "light green" :weight normal :underline nil) org-tag (:foreground "red" :weight bold :underline nil) org-agenda-done org-agenda-date)) --8<---------------cut here---------------end--------------->8--- A cursory look and a programmer's gut feeling suggests that it is the `default' face. I remember Bastien adding a org-default face that inherits the default face. --8<---------------cut here---------------start------------->8--- +(defface org-default + (org-compatible-face 'default nil) + "Face used for default text." + :group 'org-faces) --8<---------------cut here---------------end--------------->8--- author Bastien Guerry Wed, 6 Jul 2011 15:25:29 +0000 (17:25 +0200) committer Bastien Guerry Wed, 6 Jul 2011 15:25:29 +0000 (17:25 +0200) commit 7a88eaec295d50a6e27cc1d6b6f1a725ace01076 tree 91e803908793a91bb614a775c599dda172c72385 tree | snapshot parent c6b22dee33fa418b344fa68bf36bb496db473a89 Revback your commit to c6b22d level and see if the problem persists. Warning: I could be wrong. I have not done a thorough analysis. The stack trace is quite a windowful. The crash is in htmlize. > > Thanks, > - Rainer > > > Debugger entered--Lisp error: (error "Invalid face") > internal-get-lisp-face-attribute(nil :height nil) > face-attribute(nil :height) > (setq h (face-attribute f :height)) > (while (progn (setq f (if --cl-var-- face (face-attribute f > :inherit))) (not (eq f (quote unspecified)))) (setq h (face-attribute > f :height)) (push (if (eq h (quote unspecified)) nil h) --cl-var--) > (setq --cl-var-- nil)) > (let* ((f nil) (h nil) (--cl-var-- nil) (--cl-var-- t)) (while > (progn (setq f (if --cl-var-- face (face-attribute f :inherit))) (not > (eq f (quote unspecified)))) (setq h (face-attribute f :height)) (push > (if (eq h (quote unspecified)) nil > h) --cl-var--) (setq --cl-var-- nil)) (nreverse --cl-var--)) > (catch (quote --cl-block-nil--) (let* ((f nil) (h nil) (--cl-var-- > nil) (--cl-var-- t)) (while (progn (setq f (if --cl-var-- face > (face-attribute f :inherit))) (not (eq f (quote unspecified)))) (setq > h (face-attribute f :height)) (push > (if (eq h (quote unspecified)) nil h) --cl-var--) (setq --cl-var-- > nil)) (nreverse --cl-var--))) > (cl-block-wrapper (catch (quote --cl-block-nil--) (let* ((f nil) (h > nil) (--cl-var-- nil) (--cl-var-- t)) (while (progn (setq f (if > --cl-var-- face (face-attribute f :inherit))) (not (eq f (quote > unspecified)))) (setq h (face-attribute f > :height)) (push (if (eq h (quote unspecified)) nil h) --cl-var--) > (setq --cl-var-- nil)) (nreverse --cl-var--)))) > (block nil (let* ((f nil) (h nil) (--cl-var-- nil) (--cl-var-- t)) > (while (progn (setq f (if --cl-var-- face (face-attribute f > :inherit))) (not (eq f (quote unspecified)))) (setq h (face-attribute > f :height)) (push (if (eq h (quote > unspecified)) nil h) --cl-var--) (setq --cl-var-- nil)) (nreverse --cl-var--))) > (loop for f = face then (face-attribute f :inherit) until (eq f > (quote unspecified)) for h = (face-attribute f :height) collect (if > (eq h (quote unspecified)) nil h)) > (let ((size-list (loop for f = face then (face-attribute f :inherit) > until (eq f (quote unspecified)) for h = (face-attribute f :height) > collect (if (eq h (quote unspecified)) nil h)))) (reduce (quote > htmlize-merge-size) (cons nil > size-list))) > htmlize-face-size(default) > (let ((size (htmlize-face-size face))) (unless (eql size 1.0) (setf > (htmlize-fstruct-size fstruct) size))) > (cond (htmlize-running-xemacs (let* ((font-instance > (face-font-instance face)) (props (font-instance-properties > font-instance))) (when (equalp (cdr (assq (quote WEIGHT_NAME) props)) > "bold") (setf (htmlize-fstruct-boldp fstruct) t)) (when > (or (equalp (cdr (assq ... props)) "i") (equalp (cdr (assq ... props)) > "o")) (setf (htmlize-fstruct-italicp fstruct) t)) (setf > (htmlize-fstruct-strikep fstruct) (face-strikethru-p face)) (setf > (htmlize-fstruct-underlinep fstruct) > (face-underline-p face)))) ((fboundp (quote face-attribute)) (dolist > (attr (quote (:weight :slant :underline :overline :strike-through))) > (let ((value (if (>= emacs-major-version 22) (face-attribute face attr > nil t) (let ... ... ...)))) > (when (and value (not (eq value ...))) (htmlize-face-emacs21-attr > fstruct attr value)))) (let ((size (htmlize-face-size face))) (unless > (eql size 1.0) (setf (htmlize-fstruct-size fstruct) size)))) (t (when > (fboundp (quote face-bold-p)) > (setf (htmlize-fstruct-boldp fstruct) (face-bold-p face))) (when > (fboundp (quote face-italic-p)) (setf (htmlize-fstruct-italicp > fstruct) (face-italic-p face))) (setf (htmlize-fstruct-underlinep > fstruct) (face-underline-p face)))) > (let ((fstruct (make-htmlize-fstruct :foreground > (htmlize-color-to-rgb (htmlize-face-foreground face)) :background > (htmlize-color-to-rgb (htmlize-face-background face))))) (cond > (htmlize-running-xemacs (let* ((font-instance > (face-font-instance face)) (props (font-instance-properties > font-instance))) (when (equalp (cdr (assq ... props)) "bold") (setf > (htmlize-fstruct-boldp fstruct) t)) (when (or (equalp (cdr ...) "i") > (equalp (cdr ...) "o")) (setf > (htmlize-fstruct-italicp fstruct) t)) (setf (htmlize-fstruct-strikep > fstruct) (face-strikethru-p face)) (setf (htmlize-fstruct-underlinep > fstruct) (face-underline-p face)))) ((fboundp (quote face-attribute)) > (dolist (attr (quote (:weight > :slant :underline :overline :strike-through))) (let ((value (if > ... ... ...))) (when (and value (not ...)) (htmlize-face-emacs21-attr > fstruct attr value)))) (let ((size (htmlize-face-size face))) (unless > (eql size 1.0) (setf > (htmlize-fstruct-size fstruct) size)))) (t (when (fboundp (quote > face-bold-p)) (setf (htmlize-fstruct-boldp fstruct) (face-bold-p > face))) (when (fboundp (quote face-italic-p)) (setf > (htmlize-fstruct-italicp fstruct) (face-italic-p face))) > (setf (htmlize-fstruct-underlinep fstruct) (face-underline-p face)))) > (setf (htmlize-fstruct-css-name fstruct) (let ((name (downcase > (symbol-name face)))) (when (string-match "\\`font-lock-" name) (setq > name (replace-match "" t t name))) > (when (string-match "-face\\'" name) (setq name (replace-match "" t t > name))) (while (string-match "[^-a-zA-Z0-9]" name) (setq name > (replace-match "X" t t name))) (when (string-match "\\`[-0-9]" name) > (setq name (concat "X" name))) (when > (equal name "") (setq name "face")) (setq name (concat > htmlize-css-name-prefix name)) name)) fstruct) > htmlize-face-to-fstruct(default) > (if (symbolp face) (htmlize-face-to-fstruct face) > (htmlize-attrlist-to-fstruct face)) > (let ((fstruct (if (symbolp face) (htmlize-face-to-fstruct face) > (htmlize-attrlist-to-fstruct face)))) (setf (gethash face face-map) > fstruct) (let* ((css-name (htmlize-fstruct-css-name fstruct)) > (new-name css-name) (i 0)) (while (member > new-name css-names) (setq new-name (format "%s-%s" css-name (incf > i)))) (unless (equal new-name css-name) (setf > (htmlize-fstruct-css-name fstruct) new-name)) (push new-name > css-names))) > (if (gethash face face-map) nil (let ((fstruct (if (symbolp face) > (htmlize-face-to-fstruct face) (htmlize-attrlist-to-fstruct face)))) > (setf (gethash face face-map) fstruct) (let* ((css-name > (htmlize-fstruct-css-name fstruct)) (new-name > css-name) (i 0)) (while (member new-name css-names) (setq new-name > (format "%s-%s" css-name (incf i)))) (unless (equal new-name css-name) > (setf (htmlize-fstruct-css-name fstruct) new-name)) (push new-name > css-names)))) > (unless (gethash face face-map) (let ((fstruct (if (symbolp face) > (htmlize-face-to-fstruct face) (htmlize-attrlist-to-fstruct face)))) > (setf (gethash face face-map) fstruct) (let* ((css-name > (htmlize-fstruct-css-name fstruct)) (new-name > css-name) (i 0)) (while (member new-name css-names) (setq new-name > (format "%s-%s" css-name (incf i)))) (unless (equal new-name css-name) > (setf (htmlize-fstruct-css-name fstruct) new-name)) (push new-name > css-names)))) > (while --cl-dolist-temp-- (setq face (car --cl-dolist-temp--)) > (unless (gethash face face-map) (let ((fstruct (if (symbolp face) > (htmlize-face-to-fstruct face) (htmlize-attrlist-to-fstruct face)))) > (setf (gethash face face-map) fstruct) > (let* ((css-name (htmlize-fstruct-css-name fstruct)) (new-name > css-name) (i 0)) (while (member new-name css-names) (setq new-name > (format "%s-%s" css-name (incf i)))) (unless (equal new-name css-name) > (setf (htmlize-fstruct-css-name > fstruct) new-name)) (push new-name css-names)))) (setq > --cl-dolist-temp-- (cdr --cl-dolist-temp--))) > (let ((--cl-dolist-temp-- faces) face) (while --cl-dolist-temp-- > (setq face (car --cl-dolist-temp--)) (unless (gethash face face-map) > (let ((fstruct (if (symbolp face) (htmlize-face-to-fstruct face) > (htmlize-attrlist-to-fstruct face)))) > (setf (gethash face face-map) fstruct) (let* ((css-name > (htmlize-fstruct-css-name fstruct)) (new-name css-name) (i 0)) (while > (member new-name css-names) (setq new-name (format "%s-%s" css-name > ...))) (unless (equal new-name css-name) (setf > (htmlize-fstruct-css-name fstruct) new-name)) (push new-name > css-names)))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--))) nil) > (catch (quote --cl-block-nil--) (let ((--cl-dolist-temp-- faces) > face) (while --cl-dolist-temp-- (setq face (car --cl-dolist-temp--)) > (unless (gethash face face-map) (let ((fstruct (if ... ... ...))) > (setf (gethash face face-map) fstruct) > (let* ((css-name ...) (new-name css-name) (i 0)) (while (member > new-name css-names) (setq new-name ...)) (unless (equal new-name > css-name) (setf ... new-name)) (push new-name css-names)))) (setq > --cl-dolist-temp-- (cdr --cl-dolist-temp--))) > nil)) > (cl-block-wrapper (catch (quote --cl-block-nil--) (let > ((--cl-dolist-temp-- faces) face) (while --cl-dolist-temp-- (setq face > (car --cl-dolist-temp--)) (unless (gethash face face-map) (let > ((fstruct ...)) (setf (gethash face face-map) > fstruct) (let* (... ... ...) (while ... ...) (unless ... ...) (push > new-name css-names)))) (setq --cl-dolist-temp-- (cdr > --cl-dolist-temp--))) nil))) > (block nil (let ((--cl-dolist-temp-- faces) face) (while > --cl-dolist-temp-- (setq face (car --cl-dolist-temp--)) (unless > (gethash face face-map) (let ((fstruct (if ... ... ...))) (setf > (gethash face face-map) fstruct) (let* ((css-name > ...) (new-name css-name) (i 0)) (while (member new-name css-names) > (setq new-name ...)) (unless (equal new-name css-name) (setf > ... new-name)) (push new-name css-names)))) (setq --cl-dolist-temp-- > (cdr --cl-dolist-temp--))) nil)) > (dolist (face faces) (unless (gethash face face-map) (let ((fstruct > (if (symbolp face) (htmlize-face-to-fstruct face) > (htmlize-attrlist-to-fstruct face)))) (setf (gethash face face-map) > fstruct) (let* ((css-name (htmlize-fstruct-css-name > fstruct)) (new-name css-name) (i 0)) (while (member new-name > css-names) (setq new-name (format "%s-%s" css-name (incf i)))) (unless > (equal new-name css-name) (setf (htmlize-fstruct-css-name fstruct) > new-name)) (push new-name css-names))))) > (let ((face-map (make-hash-table :test (quote equal))) css-names) > (dolist (face faces) (unless (gethash face face-map) (let ((fstruct > (if (symbolp face) (htmlize-face-to-fstruct face) > (htmlize-attrlist-to-fstruct face)))) (setf (gethash > face face-map) fstruct) (let* ((css-name (htmlize-fstruct-css-name > fstruct)) (new-name css-name) (i 0)) (while (member new-name > css-names) (setq new-name (format "%s-%s" css-name ...))) (unless > (equal new-name css-name) (setf > (htmlize-fstruct-css-name fstruct) new-name)) (push new-name css-names))))) face-map) > htmlize-make-face-map((default org-link org-table > org-agenda-date-weekend org-agenda-current-time org-time-grid > org-agenda-date-today (:foreground "purple" :weight bold :underline > nil) (:foreground "dark orange" :weight bold :underline > nil) (:foreground "light green" :weight normal :underline nil) org-tag > (:foreground "red" :weight bold :underline nil) org-agenda-done > org-agenda-date)) > (let* ((buffer-faces (htmlize-faces-in-buffer)) (face-map > (htmlize-make-face-map (adjoin (quote default) buffer-faces))) > (htmlbuf (generate-new-buffer (if (buffer-file-name) > (htmlize-make-file-name (file-name-nondirectory > (buffer-file-name))) "*html*"))) (places (quote (nil nil))) (title (if > (buffer-file-name) (file-name-nondirectory (buffer-file-name)) > (buffer-name)))) (with-current-buffer htmlbuf (buffer-disable-undo) > (insert (htmlize-method doctype) 10 > (format "\n" htmlize-version > htmlize-output-type) "\n ") (plist-put places (quote head-start) > (point-marker)) (insert "\n" " " (htmlize-protect-string > title) "\n" (if > htmlize-html-charset (format (concat " http-equiv=\"Content-Type\" " "content=\"text/html; charset=%s\">\n") > htmlize-html-charset) "") htmlize-head-tags) (htmlize-method > insert-head buffer-faces face-map) (insert " ") > (plist-put places (quote head-end) (point-marker)) (insert "\n ") > (plist-put places (quote body-start) (point-marker)) (insert > (htmlize-method body-tag face-map) "\n ") (plist-put places (quote > content-start) (point-marker)) (insert > "
\n")) (let ((insert-text-method (htmlize-method-function (quote
> insert-text))) next-change text face-list fstruct-list
> trailing-ellipsis) (goto-char (point-min)) (while (not (eobp)) (setq
> next-change (htmlize-next-change (point)
> (quote face))) (setq face-list (htmlize-faces-at-point) fstruct-list
> (delq nil (mapcar (lambda (f) (gethash f face-map)) face-list))) (setq
> text (htmlize-buffer-substring-no-invisible (point) next-change))
> (when trailing-ellipsis (setq text
> (htmlize-trim-ellipsis text))) (when (> (length text) 0) (setq
> trailing-ellipsis (get-text-property (1- (length text)) (quote
> htmlize-ellipsis) text))) (setq text (htmlize-untabify text
> (current-column))) (setq text (htmlize-protect-string
> text)) (when (> (length text) 0) (funcall insert-text-method text
> fstruct-list htmlbuf)) (goto-char next-change))) (with-current-buffer
> htmlbuf (insert "
") (plist-put places (quote content-end) > (point-marker)) (insert "\n ") > (plist-put places (quote body-end) (point-marker)) (insert > "\n\n") (when htmlize-generate-hyperlinks > (htmlize-make-hyperlinks)) (htmlize-defang-local-variables) (when > htmlize-replace-form-feeds (goto-char (point-min)) (let ((source > (htmlize-protect-string "\n\f")) (replacement (if (stringp > htmlize-replace-form-feeds) htmlize-replace-form-feeds "
/>
"))) (while (search-forward source nil t) (replace-match
> replacement t t)))) (goto-char (point-min)) (when
> htmlize-html-major-mode (funcall htmlize-html-major-mode)) (set
> (make-local-variable (quote htmlize-buffer-places)) places) (run-hooks
> (quote htmlize-after-hook)) (buffer-enable-undo)) htmlbuf)
>   (save-excursion (save-excursion (run-hooks (quote
> htmlize-before-hook))) (htmlize-ensure-fontified) (clrhash
> htmlize-extended-character-cache) (clrhash htmlize-memoization-table)
> (let* ((buffer-faces (htmlize-faces-in-buffer)) (face-map
> (htmlize-make-face-map (adjoin (quote default) buffer-faces)))
> (htmlbuf (generate-new-buffer (if (buffer-file-name)
> (htmlize-make-file-name (file-name-nondirectory ...)) "*html*")))
> (places (quote (nil nil))) (title (if (buffer-file-name)
> (file-name-nondirectory (buffer-file-name)) (buffer-name))))
> (with-current-buffer htmlbuf (buffer-disable-undo) (insert
> (htmlize-method doctype) 10 (format "\n" htmlize-version htmlize-output-type)
> "\n ") (plist-put places (quote head-start) (point-marker))
> (insert "\n" " " (htmlize-protect-string title)
> "\n" (if htmlize-html-charset (format (concat "  http-equiv=\"Content-Type\" "
> "content=\"text/html; charset=%s\">\n") htmlize-html-charset) "")
> htmlize-head-tags) (htmlize-method insert-head buffer-faces face-map)
> (insert " ") (plist-put places (quote head-end) (point-marker))
> (insert "\n ") (plist-put
> places (quote body-start) (point-marker)) (insert (htmlize-method
> body-tag face-map) "\n ") (plist-put places (quote content-start)
> (point-marker)) (insert "
\n")) (let ((insert-text-method
> (htmlize-method-function (quote
> insert-text))) next-change text face-list fstruct-list
> trailing-ellipsis) (goto-char (point-min)) (while (not (eobp)) (setq
> next-change (htmlize-next-change (point) (quote face))) (setq
> face-list (htmlize-faces-at-point) fstruct-list (delq
> nil (mapcar (lambda ... ...) face-list))) (setq text
> (htmlize-buffer-substring-no-invisible (point) next-change)) (when
> trailing-ellipsis (setq text (htmlize-trim-ellipsis text))) (when (>
> (length text) 0) (setq trailing-ellipsis
> (get-text-property (1- ...) (quote htmlize-ellipsis) text))) (setq
> text (htmlize-untabify text (current-column))) (setq text
> (htmlize-protect-string text)) (when (> (length text) 0) (funcall
> insert-text-method text fstruct-list htmlbuf))
> (goto-char next-change))) (with-current-buffer htmlbuf (insert
> "
") (plist-put places (quote content-end) (point-marker))
> (insert "\n ") (plist-put places (quote body-end)
> (point-marker)) (insert "\n\n") (when
> htmlize-generate-hyperlinks (htmlize-make-hyperlinks))
> (htmlize-defang-local-variables) (when htmlize-replace-form-feeds
> (goto-char (point-min)) (let ((source (htmlize-protect-string "\n\f"))
> (replacement (if ... htmlize-replace-form-feeds
> "
"))) (while (search-forward source nil t)
> (replace-match replacement t t)))) (goto-char (point-min)) (when
> htmlize-html-major-mode (funcall htmlize-html-major-mode)) (set
> (make-local-variable (quote htmlize-buffer-places))
> places) (run-hooks (quote htmlize-after-hook)) (buffer-enable-undo)) htmlbuf))
>   htmlize-buffer-1()
>   (save-current-buffer (set-buffer (or buffer (current-buffer))) (htmlize-buffer-1))
>   (with-current-buffer (or buffer (current-buffer)) (htmlize-buffer-1))
>   (let ((htmlbuf (with-current-buffer (or buffer (current-buffer))
> (htmlize-buffer-1)))) (when (interactive-p) (switch-to-buffer
> htmlbuf)) htmlbuf)
>   htmlize-buffer(#)
>   (set-buffer (htmlize-buffer (current-buffer)))
>   (cond ((org-bound-and-true-p org-mobile-creating-agendas)
> (org-mobile-write-agenda-for-mobile file)) ((string-match
> "\\.html?\\'" file) (require (quote htmlize)) (set-buffer
> (htmlize-buffer (current-buffer))) (when (and
> org-agenda-export-html-style (string-match "")) (insert
> org-agenda-export-html-style)) (write-file file)
> (kill-buffer (current-buffer)) (message "HTML written to %s" file))
> ((string-match "\\.ps\\'" file) (require (quote ps-print))
> (ps-print-buffer-with-faces file) (message "Postscript written to %s"
> file)) ((string-match "\\.pdf\\'" file)
> (require (quote ps-print)) (ps-print-buffer-with-faces (concat
> (file-name-sans-extension file) ".ps")) (call-process "ps2pdf" nil nil
> nil (expand-file-name (concat (file-name-sans-extension file) ".ps"))
> (expand-file-name file))
> (delete-file (concat (file-name-sans-extension file) ".ps")) (message
> "PDF written to %s" file)) ((string-match "\\.ics\\'" file) (require
> (quote org-icalendar)) (let ((org-agenda-marker-table
> (org-create-marker-find-array
> (org-agenda-collect-markers))) (org-icalendar-verify-function (quote
> org-check-agenda-marker-table)) (org-combined-agenda-icalendar-file
> file)) (apply (quote org-export-icalendar) (quote combine)
> (org-agenda-files nil (quote ifmode))))) (t
> (let ((bs (buffer-string))) (find-file file) (erase-buffer) (insert
> bs) (save-buffer 0) (kill-buffer (current-buffer)) (message "Plain
> text written to %s" file))))
>   (progn (rename-buffer "Agenda View" t) (set-buffer-modified-p nil)
> (insert bs) (org-agenda-remove-marked-text (quote org-filtered))
> (while (setq beg (text-property-any (point-min) (point-max) (quote
> org-filtered) t)) (delete-region beg
> (or (next-single-property-change beg (quote org-filtered))
> (point-max)))) (run-hooks (quote org-agenda-before-write-hook)) (cond
> ((org-bound-and-true-p org-mobile-creating-agendas)
> (org-mobile-write-agenda-for-mobile file)) ((string-match
> "\\.html?\\'" file) (require (quote htmlize)) (set-buffer
> (htmlize-buffer (current-buffer))) (when (and
> org-agenda-export-html-style (string-match "")) (insert
> org-agenda-export-html-style)) (write-file file) (kill-buffer
> (current-buffer)) (message "HTML written to %s" file)) ((string-match
> "\\.ps\\'" file) (require (quote
> ps-print)) (ps-print-buffer-with-faces file) (message "Postscript
> written to %s" file)) ((string-match "\\.pdf\\'" file) (require (quote
> ps-print)) (ps-print-buffer-with-faces (concat
> (file-name-sans-extension file) ".ps")) (call-process
> "ps2pdf" nil nil nil (expand-file-name (concat
> (file-name-sans-extension file) ".ps")) (expand-file-name file))
> (delete-file (concat (file-name-sans-extension file) ".ps")) (message
> "PDF written to %s" file)) ((string-match "\\.ics\\'"
> file) (require (quote org-icalendar)) (let ((org-agenda-marker-table
> (org-create-marker-find-array (org-agenda-collect-markers)))
> (org-icalendar-verify-function (quote org-check-agenda-marker-table))
> (org-combined-agenda-icalendar-file
> file)) (apply (quote org-export-icalendar) (quote combine)
> (org-agenda-files nil (quote ifmode))))) (t (let ((bs
> (buffer-string))) (find-file file) (erase-buffer) (insert bs)
> (save-buffer 0) (kill-buffer (current-buffer)) (message "Plain
> text written to %s" file)))))
>   (unwind-protect (progn (rename-buffer "Agenda View" t)
> (set-buffer-modified-p nil) (insert bs) (org-agenda-remove-marked-text
> (quote org-filtered)) (while (setq beg (text-property-any (point-min)
> (point-max) (quote org-filtered) t))
> (delete-region beg (or (next-single-property-change beg (quote
> org-filtered)) (point-max)))) (run-hooks (quote
> org-agenda-before-write-hook)) (cond ((org-bound-and-true-p
> org-mobile-creating-agendas) (org-mobile-write-agenda-for-mobile
> file)) ((string-match "\\.html?\\'" file) (require (quote htmlize))
> (set-buffer (htmlize-buffer (current-buffer))) (when (and
> org-agenda-export-html-style (string-match "")) (insert org-agenda-export-html-style)) (write-file file)
> (kill-buffer (current-buffer)) (message "HTML written to %s" file))
> ((string-match "\\.ps\\'" file) (require
> (quote ps-print)) (ps-print-buffer-with-faces file) (message
> "Postscript written to %s" file)) ((string-match "\\.pdf\\'" file)
> (require (quote ps-print)) (ps-print-buffer-with-faces (concat
> (file-name-sans-extension file) ".ps"))
> (call-process "ps2pdf" nil nil nil (expand-file-name (concat
> (file-name-sans-extension file) ".ps")) (expand-file-name file))
> (delete-file (concat (file-name-sans-extension file) ".ps")) (message
> "PDF written to %s" file)) ((string-match
> "\\.ics\\'" file) (require (quote org-icalendar)) (let
> ((org-agenda-marker-table (org-create-marker-find-array ...))
> (org-icalendar-verify-function (quote org-check-agenda-marker-table))
> (org-combined-agenda-icalendar-file file)) (apply
> (quote org-export-icalendar) (quote combine) (org-agenda-files nil
> (quote ifmode))))) (t (let ((bs (buffer-string))) (find-file file)
> (erase-buffer) (insert bs) (save-buffer 0) (kill-buffer
> (current-buffer)) (message "Plain text written to
> %s" file))))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
>   (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
> (rename-buffer "Agenda View" t) (set-buffer-modified-p nil) (insert
> bs) (org-agenda-remove-marked-text (quote org-filtered)) (while (setq
> beg (text-property-any
> (point-min) (point-max) (quote org-filtered) t)) (delete-region beg
> (or (next-single-property-change beg (quote org-filtered))
> (point-max)))) (run-hooks (quote org-agenda-before-write-hook)) (cond
> ((org-bound-and-true-p
> org-mobile-creating-agendas) (org-mobile-write-agenda-for-mobile
> file)) ((string-match "\\.html?\\'" file) (require (quote htmlize))
> (set-buffer (htmlize-buffer (current-buffer))) (when (and
> org-agenda-export-html-style (string-match
> "")) (insert
> org-agenda-export-html-style)) (write-file file) (kill-buffer
> (current-buffer)) (message "HTML written to %s"
> file)) ((string-match "\\.ps\\'" file) (require (quote ps-print))
> (ps-print-buffer-with-faces file) (message "Postscript written to %s"
> file)) ((string-match "\\.pdf\\'" file) (require (quote ps-print))
> (ps-print-buffer-with-faces (concat
> (file-name-sans-extension file) ".ps")) (call-process "ps2pdf" nil nil
> nil (expand-file-name (concat ... ".ps")) (expand-file-name file))
> (delete-file (concat (file-name-sans-extension file) ".ps")) (message
> "PDF written to %s" file))
> ((string-match "\\.ics\\'" file) (require (quote org-icalendar)) (let
> ((org-agenda-marker-table ...) (org-icalendar-verify-function ...)
> (org-combined-agenda-icalendar-file file)) (apply (quote
> org-export-icalendar) (quote combine)
> (org-agenda-files nil ...)))) (t (let ((bs ...)) (find-file file)
> (erase-buffer) (insert bs) (save-buffer 0) (kill-buffer
> (current-buffer)) (message "Plain text written to %s" file))))) (and
> (buffer-name temp-buffer) (kill-buffer
> temp-buffer))))
>   (with-current-buffer temp-buffer (unwind-protect (progn
> (rename-buffer "Agenda View" t) (set-buffer-modified-p nil) (insert
> bs) (org-agenda-remove-marked-text (quote org-filtered)) (while (setq
> beg (text-property-any (point-min)
> (point-max) (quote org-filtered) t)) (delete-region beg (or
> (next-single-property-change beg (quote org-filtered)) (point-max))))
> (run-hooks (quote org-agenda-before-write-hook)) (cond
> ((org-bound-and-true-p org-mobile-creating-agendas)
> (org-mobile-write-agenda-for-mobile file)) ((string-match
> "\\.html?\\'" file) (require (quote htmlize)) (set-buffer
> (htmlize-buffer (current-buffer))) (when (and
> org-agenda-export-html-style (string-match "")) (insert
> org-agenda-export-html-style)) (write-file file) (kill-buffer
> (current-buffer)) (message "HTML written to %s" file))
> ((string-match "\\.ps\\'" file) (require (quote ps-print))
> (ps-print-buffer-with-faces file) (message "Postscript written to %s"
> file)) ((string-match "\\.pdf\\'" file) (require (quote ps-print))
> (ps-print-buffer-with-faces (concat
> (file-name-sans-extension file) ".ps")) (call-process "ps2pdf" nil nil
> nil (expand-file-name (concat ... ".ps")) (expand-file-name file))
> (delete-file (concat (file-name-sans-extension file) ".ps")) (message
> "PDF written to %s" file))
> ((string-match "\\.ics\\'" file) (require (quote org-icalendar)) (let
> ((org-agenda-marker-table ...) (org-icalendar-verify-function ...)
> (org-combined-agenda-icalendar-file file)) (apply (quote
> org-export-icalendar) (quote combine)
> (org-agenda-files nil ...)))) (t (let ((bs ...)) (find-file file)
> (erase-buffer) (insert bs) (save-buffer 0) (kill-buffer
> (current-buffer)) (message "Plain text written to %s" file))))) (and
> (buffer-name temp-buffer) (kill-buffer
> temp-buffer))))
>   (let ((temp-buffer (generate-new-buffer " *temp*")))
> (with-current-buffer temp-buffer (unwind-protect (progn (rename-buffer
> "Agenda View" t) (set-buffer-modified-p nil) (insert bs)
> (org-agenda-remove-marked-text (quote org-filtered))
> (while (setq beg (text-property-any (point-min) (point-max) (quote
> org-filtered) t)) (delete-region beg (or (next-single-property-change
> beg ...) (point-max)))) (run-hooks (quote
> org-agenda-before-write-hook)) (cond ((org-bound-and-true-p
> org-mobile-creating-agendas) (org-mobile-write-agenda-for-mobile
> file)) ((string-match "\\.html?\\'" file) (require (quote htmlize))
> (set-buffer (htmlize-buffer ...)) (when (and
> org-agenda-export-html-style ...) (goto-char ...) (kill-region
> ... ...) (insert org-agenda-export-html-style)) (write-file file)
> (kill-buffer (current-buffer)) (message "HTML written to %s" file))
> ((string-match "\\.ps\\'" file) (require (quote ps-print))
> (ps-print-buffer-with-faces file) (message
> "Postscript written to %s" file)) ((string-match "\\.pdf\\'" file)
> (require (quote ps-print)) (ps-print-buffer-with-faces (concat
> ... ".ps")) (call-process "ps2pdf" nil nil nil (expand-file-name ...)
> (expand-file-name file)) (delete-file
> (concat ... ".ps")) (message "PDF written to %s" file)) ((string-match
> "\\.ics\\'" file) (require (quote org-icalendar)) (let (... ... ...)
> (apply ... ... ...))) (t (let (...) (find-file file) (erase-buffer)
> (insert bs) (save-buffer 0)
> (kill-buffer ...) (message "Plain text written to %s" file))))) (and
> (buffer-name temp-buffer) (kill-buffer temp-buffer)))))
>   (with-temp-buffer (rename-buffer "Agenda View" t)
> (set-buffer-modified-p nil) (insert bs) (org-agenda-remove-marked-text
> (quote org-filtered)) (while (setq beg (text-property-any (point-min)
> (point-max) (quote org-filtered) t))
> (delete-region beg (or (next-single-property-change beg (quote
> org-filtered)) (point-max)))) (run-hooks (quote
> org-agenda-before-write-hook)) (cond ((org-bound-and-true-p
> org-mobile-creating-agendas) (org-mobile-write-agenda-for-mobile
> file)) ((string-match "\\.html?\\'" file) (require (quote htmlize))
> (set-buffer (htmlize-buffer (current-buffer))) (when (and
> org-agenda-export-html-style (string-match "")) (insert org-agenda-export-html-style)) (write-file file)
> (kill-buffer (current-buffer)) (message "HTML written to %s" file))
> ((string-match "\\.ps\\'" file) (require
> (quote ps-print)) (ps-print-buffer-with-faces file) (message
> "Postscript written to %s" file)) ((string-match "\\.pdf\\'" file)
> (require (quote ps-print)) (ps-print-buffer-with-faces (concat
> (file-name-sans-extension file) ".ps"))
> (call-process "ps2pdf" nil nil nil (expand-file-name (concat
> (file-name-sans-extension file) ".ps")) (expand-file-name file))
> (delete-file (concat (file-name-sans-extension file) ".ps")) (message
> "PDF written to %s" file)) ((string-match
> "\\.ics\\'" file) (require (quote org-icalendar)) (let
> ((org-agenda-marker-table (org-create-marker-find-array
> (org-agenda-collect-markers))) (org-icalendar-verify-function (quote
> org-check-agenda-marker-table))
> (org-combined-agenda-icalendar-file file)) (apply (quote
> org-export-icalendar) (quote combine) (org-agenda-files nil (quote
> ifmode))))) (t (let ((bs (buffer-string))) (find-file file)
> (erase-buffer) (insert bs) (save-buffer 0) (kill-buffer
> (current-buffer)) (message "Plain text written to %s" file)))))
>   (let ((bs (copy-sequence (buffer-string))) beg)
> (org-agenda-unmark-filtered-text) (with-temp-buffer (rename-buffer
> "Agenda View" t) (set-buffer-modified-p nil) (insert bs)
> (org-agenda-remove-marked-text (quote org-filtered)) (while (setq
> beg (text-property-any (point-min) (point-max) (quote org-filtered)
> t)) (delete-region beg (or (next-single-property-change beg (quote
> org-filtered)) (point-max)))) (run-hooks (quote
> org-agenda-before-write-hook)) (cond
> ((org-bound-and-true-p org-mobile-creating-agendas)
> (org-mobile-write-agenda-for-mobile file)) ((string-match
> "\\.html?\\'" file) (require (quote htmlize)) (set-buffer
> (htmlize-buffer (current-buffer))) (when (and
> org-agenda-export-html-style (string-match "")) (insert
> org-agenda-export-html-style)) (write-file file)
> (kill-buffer (current-buffer)) (message "HTML written to %s" file))
> ((string-match "\\.ps\\'" file) (require (quote ps-print))
> (ps-print-buffer-with-faces file) (message "Postscript written to %s"
> file)) ((string-match "\\.pdf\\'" file)
> (require (quote ps-print)) (ps-print-buffer-with-faces (concat
> (file-name-sans-extension file) ".ps")) (call-process "ps2pdf" nil nil
> nil (expand-file-name (concat (file-name-sans-extension file) ".ps"))
> (expand-file-name file))
> (delete-file (concat (file-name-sans-extension file) ".ps")) (message
> "PDF written to %s" file)) ((string-match "\\.ics\\'" file) (require
> (quote org-icalendar)) (let ((org-agenda-marker-table
> (org-create-marker-find-array ...))
> (org-icalendar-verify-function (quote org-check-agenda-marker-table))
> (org-combined-agenda-icalendar-file file)) (apply (quote
> org-export-icalendar) (quote combine) (org-agenda-files nil (quote
> ifmode))))) (t (let ((bs (buffer-string)))
> (find-file file) (erase-buffer) (insert bs) (save-buffer 0)
> (kill-buffer (current-buffer)) (message "Plain text written to %s"
> file))))))
>   (save-window-excursion (org-agenda-mark-filtered-text) (let ((bs
> (copy-sequence (buffer-string))) beg)
> (org-agenda-unmark-filtered-text) (with-temp-buffer (rename-buffer
> "Agenda View" t) (set-buffer-modified-p nil) (insert bs)
> (org-agenda-remove-marked-text (quote org-filtered)) (while (setq beg
> (text-property-any (point-min) (point-max) (quote org-filtered) t))
> (delete-region beg (or (next-single-property-change beg (quote
> org-filtered)) (point-max))))
> (run-hooks (quote org-agenda-before-write-hook)) (cond
> ((org-bound-and-true-p org-mobile-creating-agendas)
> (org-mobile-write-agenda-for-mobile file)) ((string-match
> "\\.html?\\'" file) (require (quote htmlize)) (set-buffer
> (htmlize-buffer
> (current-buffer))) (when (and org-agenda-export-html-style
> (string-match ""))
> (insert org-agenda-export-html-style)) (write-file
> file) (kill-buffer (current-buffer)) (message "HTML written to %s"
> file)) ((string-match "\\.ps\\'" file) (require (quote ps-print))
> (ps-print-buffer-with-faces file) (message "Postscript written to %s"
> file)) ((string-match "\\.pdf\\'"
> file) (require (quote ps-print)) (ps-print-buffer-with-faces (concat
> (file-name-sans-extension file) ".ps")) (call-process "ps2pdf" nil nil
> nil (expand-file-name (concat ... ".ps")) (expand-file-name file))
> (delete-file (concat
> (file-name-sans-extension file) ".ps")) (message "PDF written to %s"
> file)) ((string-match "\\.ics\\'" file) (require (quote
> org-icalendar)) (let ((org-agenda-marker-table ...)
> (org-icalendar-verify-function ...)
> (org-combined-agenda-icalendar-file file)) (apply (quote
> org-export-icalendar) (quote combine) (org-agenda-files nil ...)))) (t
> (let ((bs ...)) (find-file file) (erase-buffer) (insert bs)
> (save-buffer 0) (kill-buffer (current-buffer))
> (message "Plain text written to %s" file)))))))
>   (save-excursion (save-window-excursion
> (org-agenda-mark-filtered-text) (let ((bs (copy-sequence
> (buffer-string))) beg) (org-agenda-unmark-filtered-text)
> (with-temp-buffer (rename-buffer "Agenda View" t)
> (set-buffer-modified-p nil) (insert
> bs) (org-agenda-remove-marked-text (quote org-filtered)) (while (setq
> beg (text-property-any (point-min) (point-max) (quote org-filtered)
> t)) (delete-region beg (or (next-single-property-change beg ...)
> (point-max)))) (run-hooks (quote
> org-agenda-before-write-hook)) (cond ((org-bound-and-true-p
> org-mobile-creating-agendas) (org-mobile-write-agenda-for-mobile
> file)) ((string-match "\\.html?\\'" file) (require (quote htmlize))
> (set-buffer (htmlize-buffer ...)) (when (and
> org-agenda-export-html-style ...) (goto-char ...) (kill-region
> ... ...) (insert org-agenda-export-html-style)) (write-file file)
> (kill-buffer (current-buffer)) (message "HTML written to %s" file))
> ((string-match "\\.ps\\'" file) (require
> (quote ps-print)) (ps-print-buffer-with-faces file) (message
> "Postscript written to %s" file)) ((string-match "\\.pdf\\'" file)
> (require (quote ps-print)) (ps-print-buffer-with-faces (concat
> ... ".ps")) (call-process "ps2pdf" nil nil nil
> (expand-file-name ...) (expand-file-name file)) (delete-file (concat
> ... ".ps")) (message "PDF written to %s" file)) ((string-match
> "\\.ics\\'" file) (require (quote org-icalendar)) (let (... ... ...)
> (apply ... ... ...))) (t (let (...)
> (find-file file) (erase-buffer) (insert bs) (save-buffer 0)
> (kill-buffer ...) (message "Plain text written to %s" file))))))))
>   (let nil (save-excursion (save-window-excursion
> (org-agenda-mark-filtered-text) (let ((bs (copy-sequence
> (buffer-string))) beg) (org-agenda-unmark-filtered-text)
> (with-temp-buffer (rename-buffer "Agenda View" t)
> (set-buffer-modified-p
> nil) (insert bs) (org-agenda-remove-marked-text (quote org-filtered))
> (while (setq beg (text-property-any ... ... ... t)) (delete-region beg
> (or ... ...))) (run-hooks (quote org-agenda-before-write-hook)) (cond
> ((org-bound-and-true-p
> org-mobile-creating-agendas) (org-mobile-write-agenda-for-mobile
> file)) ((string-match "\\.html?\\'" file) (require ...) (set-buffer
> ...) (when ... ... ... ...) (write-file file) (kill-buffer ...)
> (message "HTML written to %s" file))
> ((string-match "\\.ps\\'" file) (require ...)
> (ps-print-buffer-with-faces file) (message "Postscript written to %s"
> file)) ((string-match "\\.pdf\\'" file) (require ...)
> (ps-print-buffer-with-faces ...) (call-process "ps2pdf" nil nil nil
> ... ...) (delete-file ...) (message "PDF written to %s" file))
> ((string-match "\\.ics\\'" file) (require ...) (let ... ...)) (t (let
> ... ... ... ... ... ... ...))))))) #)
>   eval((let nil (save-excursion (save-window-excursion
> (org-agenda-mark-filtered-text) (let ((bs (copy-sequence
> (buffer-string))) beg) (org-agenda-unmark-filtered-text)
> (with-temp-buffer (rename-buffer "Agenda View" t)
> (set-buffer-modified-p nil) (insert bs) (org-agenda-remove-marked-text
> (quote org-filtered)) (while (setq beg (text-property-any
> ... ... ... t)) (delete-region beg (or ... ...))) (run-hooks (quote
> org-agenda-before-write-hook)) (cond
> ((org-bound-and-true-p org-mobile-creating-agendas)
> (org-mobile-write-agenda-for-mobile file)) ((string-match
> "\\.html?\\'" file) (require ...) (set-buffer ...) (when
> ... ... ... ...) (write-file file) (kill-buffer ...) (message "HTML
> written to %s" file)) ((string-match "\\.ps\\'" file) (require ...)
> (ps-print-buffer-with-faces file) (message "Postscript written to %s"
> file)) ((string-match "\\.pdf\\'" file) (require ...)
> (ps-print-buffer-with-faces ...) (call-process
> "ps2pdf" nil nil nil ... ...) (delete-file ...) (message "PDF written
> to %s" file)) ((string-match "\\.ics\\'" file) (require ...) (let
> ... ...)) (t (let ... ... ... ... ... ... ...))))))) # Agenda*>))
>   org-let(nil (save-excursion (save-window-excursion
> (org-agenda-mark-filtered-text) (let ((bs (copy-sequence
> (buffer-string))) beg) (org-agenda-unmark-filtered-text)
> (with-temp-buffer (rename-buffer "Agenda View" t)
> (set-buffer-modified-p
> nil) (insert bs) (org-agenda-remove-marked-text (quote org-filtered))
> (while (setq beg (text-property-any (point-min) (point-max) (quote
> org-filtered) t)) (delete-region beg (or (next-single-property-change
> beg ...) (point-max))))
> (run-hooks (quote org-agenda-before-write-hook)) (cond
> ((org-bound-and-true-p org-mobile-creating-agendas)
> (org-mobile-write-agenda-for-mobile file)) ((string-match
> "\\.html?\\'" file) (require (quote htmlize)) (set-buffer
> (htmlize-buffer
> ...)) (when (and org-agenda-export-html-style ...) (goto-char ...)
> (kill-region ... ...) (insert org-agenda-export-html-style))
> (write-file file) (kill-buffer (current-buffer)) (message "HTML
> written to %s" file)) ((string-match "\\.ps\\'"
> file) (require (quote ps-print)) (ps-print-buffer-with-faces file)
> (message "Postscript written to %s" file)) ((string-match "\\.pdf\\'"
> file) (require (quote ps-print)) (ps-print-buffer-with-faces (concat
> ... ".ps")) (call-process "ps2pdf"
> nil nil nil (expand-file-name ...) (expand-file-name file))
> (delete-file (concat ... ".ps")) (message "PDF written to %s" file))
> ((string-match "\\.ics\\'" file) (require (quote org-icalendar)) (let
> (... ... ...) (apply ... ... ...))) (t
> (let (...) (find-file file) (erase-buffer) (insert bs) (save-buffer 0)
> (kill-buffer ...) (message "Plain text written to %s" file))))))))
> #)
>   org-write-agenda(#("~/agenda.html" 8 9 (rear-nonsticky t)) nil)
>   call-interactively(org-write-agenda nil nil)
>
>
>
>

--