Re: [O] error writing agenda view to html file
Rainer Stengele rainer.steng...@online.de writes: git checkout c6b22d How can I go back to the current development? Go back to the master branch with this command ~$ git checkout master then ~$ git pull to get latest commits. HTH, -- Bastien
Re: [O] error writing agenda view to html file
Am 16.07.2011 19:03, schrieb Bastien: Hi Rainer, Rainer Stengele rainer.steng...@diplan.de writes: In agenda view doing a C-x C-w produces a face related error. I cannot reproduce this. C-x C-w works fine in the agenda views I could test. Can somebody help me out finding the issue in this debug message? Please send a small file.org with the agenda config to reproduce this problem with latest Org. Thanks! Hi Bastien, attached please find a simple smal org file. Bein gin the file I enter C-c a y a and get the error (see dump). I am quite sure it is some misconfiguration in my settings but I just don't know how to find it. Org-mode version 7.6 (release_7.6.88.gd1c9) 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
Re: [O] error writing agenda view to html file
Hi Rainer, Rainer Stengele rainer.steng...@diplan.de writes: I am quite sure it is some misconfiguration in my settings but I just don't know how to find it. If you changed some faces through M-x customize-face RET, then you will have a (custom-set-faces ...) somewhere in your configuration files (either in .emacs.el or some other value of the variable custom-file, which see. Can you send this part of the configuration? Is anybody else able to reproduce this problem? Thanks, -- Bastien
Re: [O] error writing agenda view to html file = SOLVED.
Am 18.07.2011 10:51, schrieb Bastien: Hi Rainer, Rainer Stengele rainer.steng...@diplan.de writes: I am quite sure it is some misconfiguration in my settings but I just don't know how to find it. If you changed some faces through M-x customize-face RET, then you will have a (custom-set-faces ...) somewhere in your configuration files (either in .emacs.el or some other value of the variable custom-file, which see. Can you send this part of the configuration? Is anybody else able to reproduce this problem? Thanks, Hi Bastien, after your hint about the (custom-set-faces ...) I could already imagine where the problem was: The zenburn theme. After updating it to the most recent version found here: https://github.com/dbrock/zenburn-el the export works, tested already for large agenda views. Most excellent! Exported agenda looks perfect! Thanks for helping me solve the problem! Best, - Rainer
Re: [O] error writing agenda view to html file = SOLVED.
Hi Rainer, Rainer Stengele rainer.steng...@diplan.de writes: Thanks for helping me solve the problem! Glad my directions were useful :) Best, -- Bastien
Re: [O] error writing agenda view to html file
Am 16.07.2011 19:04, schrieb Bastien: Jambunathan K kjambunat...@gmail.com writes: +(defface org-default + (org-compatible-face 'default nil) + Face used for default text. + :group 'org-faces) author Bastien Guerry b...@altern.org Wed, 6 Jul 2011 15:25:29 + (17:25 +0200) committerBastien Guerry b...@altern.org Wed, 6 Jul 2011 15:25:29 + (17:25 +0200) commit 7a88eaec295d50a6e27cc1d6b6f1a725ace01076 tree 91e803908793a91bb614a775c599dda172c72385tree | snapshot parent c6b22dee33fa418b344fa68bf36bb496db473a89 Revback your commit to c6b22d level and see if the problem persists. Yes, doing this will also be useful, on top of letting us know how to reproduce the problem. Thanks, release_7.5-584-gc6b22 Org-mode version 7.5 (release_7.5.584.gc6b22) face-attribute: Invalid face problem is still the same. I hope I did the right thing going back to that rev. I am not used using git yet. I did: make clean git checkout c6b22d How can I go back to the current development? Thanks, Rainer
Re: [O] error writing agenda view to html file
Hi Rainer, Rainer Stengele rainer.steng...@diplan.de writes: In agenda view doing a C-x C-w produces a face related error. I cannot reproduce this. C-x C-w works fine in the agenda views I could test. Can somebody help me out finding the issue in this debug message? Please send a small file.org with the agenda config to reproduce this problem with latest Org. Thanks! -- Bastien
Re: [O] error writing agenda view to html file
Jambunathan K kjambunat...@gmail.com writes: +(defface org-default + (org-compatible-face 'default nil) + Face used for default text. + :group 'org-faces) authorBastien Guerry b...@altern.org Wed, 6 Jul 2011 15:25:29 + (17:25 +0200) committer Bastien Guerry b...@altern.org Wed, 6 Jul 2011 15:25:29 + (17:25 +0200) commit7a88eaec295d50a6e27cc1d6b6f1a725ace01076 tree 91e803908793a91bb614a775c599dda172c72385tree | snapshot parentc6b22dee33fa418b344fa68bf36bb496db473a89 Revback your commit to c6b22d level and see if the problem persists. Yes, doing this will also be useful, on top of letting us know how to reproduce the problem. Thanks, -- Bastien
[O] error writing agenda view to html file
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? 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-
Re: [O] error writing agenda view to html file
Rainer Stengele rainer.steng...@diplan.de 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 b...@altern.org Wed, 6 Jul 2011 15:25:29 + (17:25 +0200) committer Bastien Guerry b...@altern.org Wed, 6 Jul 2011 15:25:29 + (17:25 +0200) commit 7a88eaec295d50a6e27cc1d6b6f1a725ace01076 tree91e803908793a91bb614a775c599dda172c72385tree | 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
