Re: Graphic files displayed in buffer?

[Rasmus <rasmus@gmx.us>]

Hello,

> OK, so I made the file self-contained by transferring to it all the code
> it uses in my library of Babel.

At least that's nice in itself...  (I now keep common config data in a git
submodule that I clone and load at export time with Make).

> Then, I opened with emacs -q, answered "yes" to all the questions about
> running code, and when that was done discovered that the images aren't
> displayed, which is what I want!

OK.

> When I open the same file in my usual emacs, the images are displayed
> inline.

Damn.

> So, it must be my configuration, right?

It would seem so.  Unless if you perhaps did not load your org-git version
in the "emacs -q" setup.  But at least on my system the recent Org is
loaded with "-q" (I keep org in the system-wide site-lisp).

> I use Eric Schulte's starter kit, so my configuration is spread out over
> several *.el files in two directories.  When I grep for "inline" or
> "overlay" in *.el I get no hits.  But grepping for "image" gets this:


> custom.el: '(emms-mode-line-icon-image-cache
> custom.el:    (image :type xpm :ascent center :data "/* XPM */
> custom.el: '(gnus-mode-line-image-cache
> custom.el:    (image :type xpm :ascent center :data "/* XPM */
> custom.el: '(mu4e-view-show-images nil)

This should be completely orthogonal.

> td.el:(setq mu4e-view-show-images t)
> td.el:(when (fboundp 'imagemagick-register-types)
> td.el:  (imagemagick-register-types))
> td.el:                :base-directory "/Users/dk/org/tsdye/employees/software/images/"

Same...

> None of which looks too suspicious to me, though some of it is old and
> might be pruned away.  Does anything look suspicious to you?

Nope.

> Can you suggest some other terms I might grep?  I'm keen to get to the
> bottom of this.

Hmm, I'm thinking out loud here, but perhaps you could try deploy
something like the following to detect *where* org-display-inline-images
is called.

#+BEGIN_SRC emacs-lisp
  (defun a-pix-is-worth-a-1000-words (&optional &rest args)
    (with-temp-file "/tmp/backtrace.txt"
      (goto-char (point-max))
      (insert (format-time-string "++++ %s ++++\n"))
      (let ((standard-output (current-buffer))) (backtrace))))

  (add-function :before (symbol-function 'org-display-inline-images)
                #'a-pix-is-worth-a-1000-words)
#+END_SRC

Rasmus

-- 
m-mm-mmm-mmmm bacon!