Re: X-Face and depth

[Raymond Scholz <ray-2002@zonix.de>]

Andreas Büsching <crunchy@tzi.de> writes:

> It works very well for me. :-)

It doesn't for me :-(  Same with the original code from Gnus CVS.

Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p nil)
  logand(nil 1)
  (zerop (logand bits mask))
  (if (zerop (logand bits mask)) "0 " "1 ")
  (insert (if (zerop ...) "0 " "1 "))
  (while --dolist-temp--56627 (setq bits (car --dolist-temp--56627)) (insert (if ... "0 " "1 ")) (setq --dolist-temp--56627 (cdr --dolist-temp--56627)))
  (let ((--dolist-temp--56627 bits-list) bits) (while --dolist-temp--56627 (setq bits ...) (insert ...) (setq --dolist-temp--56627 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... bits) (while --dolist-temp--56627 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... bits) (while --dolist-temp--56627 ... ... ...) nil))
  (dolist (bits bits-list) (insert (if ... "0 " "1 ")))
  (save-current-buffer (set-buffer temp-buffer) (insert "P1\n48 48\n") (dolist (bits bits-list) (insert ...)) (shell-command-on-region (point-min) (point-max) "pbmtoicon | sed '/^[ 	]*[*\\\\/]/d; s/[ 	]//g; s/,$//' | tr , '\\012' | tr -d '[:blank:]' | sed 's/^0x//; s/^/0x/' | pr -l1 -t -w22 -3 -s, | sed 's/,*$/,/' | compface" (current-buffer) t) (push (buffer-string) x-faces))
  (with-current-buffer temp-buffer (insert "P1\n48 48\n") (dolist (bits bits-list) (insert ...)) (shell-command-on-region (point-min) (point-max) "pbmtoicon | sed '/^[ 	]*[*\\\\/]/d; s/[ 	]//g; s/,$//' | tr , '\\012' | tr -d '[:blank:]' | sed 's/^0x//; s/^/0x/' | pr -l1 -t -w22 -3 -s, | sed 's/,*$/,/' | compface" (current-buffer) t) (push (buffer-string) x-faces))
  (unwind-protect (with-current-buffer temp-buffer (insert "P1\n48 48\n") (dolist ... ...) (shell-command-on-region ... ... "pbmtoicon | sed '/^[ 	]*[*\\\\/]/d; s/[ 	]//g; s/,$//' | tr , '\\012' | tr -d '[:blank:]' | sed 's/^0x//; s/^/0x/' | pr -l1 -t -w22 -3 -s, | sed 's/,*$/,/' | compface" ... t) (push ... x-faces)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
  (let ((temp-buffer ...)) (unwind-protect (with-current-buffer temp-buffer ... ... ... ...) (and ... ...)))
  (with-temp-buffer (insert "P1\n48 48\n") (dolist (bits bits-list) (insert ...)) (shell-command-on-region (point-min) (point-max) "pbmtoicon | sed '/^[ 	]*[*\\\\/]/d; s/[ 	]//g; s/,$//' | tr , '\\012' | tr -d '[:blank:]' | sed 's/^0x//; s/^/0x/' | pr -l1 -t -w22 -3 -s, | sed 's/,*$/,/' | compface" (current-buffer) t) (push (buffer-string) x-faces))
  (while (< bit-number --dotimes-temp--56626) (setq mask (expt 2 bit-number)) (with-temp-buffer (insert "P1\n48 48\n") (dolist ... ...) (shell-command-on-region ... ... "pbmtoicon | sed '/^[ 	]*[*\\\\/]/d; s/[ 	]//g; s/,$//' | tr , '\\012' | tr -d '[:blank:]' | sed 's/^0x//; s/^/0x/' | pr -l1 -t -w22 -3 -s, | sed 's/,*$/,/' | compface" ... t) (push ... x-faces)) (incf bit-number))
  (let ((--dotimes-temp--56626 depth) (bit-number 0)) (while (< bit-number --dotimes-temp--56626) (setq mask ...) (with-temp-buffer ... ... ... ...) (incf bit-number)) nil)
  (catch (quote --cl-block-nil--) (let (... ...) (while ... ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... ...) (while ... ... ... ...) nil))
  (dotimes (bit-number depth) (setq mask (expt 2 bit-number)) (with-temp-buffer (insert "P1\n48 48\n") (dolist ... ...) (shell-command-on-region ... ... "pbmtoicon | sed '/^[ 	]*[*\\\\/]/d; s/[ 	]//g; s/,$//' | tr , '\\012' | tr -d '[:blank:]' | sed 's/^0x//; s/^/0x/' | pr -l1 -t -w22 -3 -s, | sed 's/,*$/,/' | compface" ... t) (push ... x-faces)))
  (save-current-buffer (set-buffer temp-buffer) (insert (shell-command-to-string ...)) (goto-char (point-min)) (forward-line 3) (while (setq pixel ...) (push ... bits-list)) (setq bits-list (nreverse bits-list)) (dotimes (bit-number depth) (setq mask ...) (with-temp-buffer ... ... ... ...)))
  (with-current-buffer temp-buffer (insert (shell-command-to-string ...)) (goto-char (point-min)) (forward-line 3) (while (setq pixel ...) (push ... bits-list)) (setq bits-list (nreverse bits-list)) (dotimes (bit-number depth) (setq mask ...) (with-temp-buffer ... ... ... ...)))
  (unwind-protect (with-current-buffer temp-buffer (insert ...) (goto-char ...) (forward-line 3) (while ... ...) (setq bits-list ...) (dotimes ... ... ...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
  (let ((temp-buffer ...)) (unwind-protect (with-current-buffer temp-buffer ... ... ... ... ... ...) (and ... ...)))
  (with-temp-buffer (insert (shell-command-to-string ...)) (goto-char (point-min)) (forward-line 3) (while (setq pixel ...) (push ... bits-list)) (setq bits-list (nreverse bits-list)) (dotimes (bit-number depth) (setq mask ...) (with-temp-buffer ... ... ... ...)))
  (progn (with-temp-buffer (insert ...) (goto-char ...) (forward-line 3) (while ... ...) (setq bits-list ...) (dotimes ... ... ...)) (dotimes (i ...) (insert ... ...)))
  (if (file-exists-p file) (progn (with-temp-buffer ... ... ... ... ... ...) (dotimes ... ...)))
  (when (file-exists-p file) (with-temp-buffer (insert ...) (goto-char ...) (forward-line 3) (while ... ...) (setq bits-list ...) (dotimes ... ... ...)) (dotimes (i ...) (insert ... ...)))
  (let* ((mapfile ...) (levels ...) (step ...) color-alist bits bits-list mask pixel x-faces) (with-temp-file mapfile (insert "P3\n") (insert ...) (insert "255\n") (dotimes ... ... ...)) (when (file-exists-p file) (with-temp-buffer ... ... ... ... ... ...) (dotimes ... ...)) (delete-file mapfile))
  gnus-convert-image-to-gray-x-face("~/doomicon.gif" 1)

Cheers, Ray
-- 
It's clear that whoever set up the font colorings for most programming
modes has seen too many Peter Max posters, or did more acid than I did
in the 60's.                     (Charles R. Martin in gnu.emacs.help)