Right way to add special processing to images?

Right way to add special processing to images?

[Kaushal Modi]

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

Hello,

I have this elisp function that I run in org-export-before-processing-hook
that coverts a pdf to png where that png file is already linked in the org
file. Just that the png file did not exist to begin with; it is converted
from pdf at the time of exporting. [Code is at the end of this email.]

But for that you work, need to add my special keyword "convertfrompdf t"
and I chose "#+HEADER" just before the image link to do that.

Here is my MWE:
=====
#+TITLE: PDF Image
#+NAME: fig:unicorn
# Below HEADER is required where the pdf version of the referenced png file
exists.
#+HEADER: :convertfrompdf t
# The below caption line is optional
#+CAPTION: Org-mode Unicorn Logo
[[./org-mode-unicorn-logo.png]]
=====

So the question is: Is using #+HEADER for this a good idea? Would the org
devs just a better way to do the same? I basically need to be able to
control per image link if that linked image foo.png needs to be converted
from a foo.pdf.

Thanks.

=====

(defun modi/org-include-img-from-pdf (&rest _)
  "Convert the pdf files to image files.

Only looks at #+HEADER: lines that have \":convertfrompdf t\"."
  (interactive)
  (when (derived-mode-p 'org-mode)
    (save-excursion
      (goto-char (point-min))
      (while (search-forward-regexp
              "^\\s-*#\\+HEADER:.*\\s-:convertfrompdf\\s-+t"
              nil 'noerror)
        (let* (filenoext imgext imgfile pdffile cmd)
          ;; Keep on going on to the next line till it finds a line with
          ;; `[[FILE]]'
          (while (progn
                   (forward-line 1)
                   (not (looking-at "\\[\\[\\(.*\\)\\.\\(.*\\)\\]\\]"))))
          (when (looking-at "\\[\\[\\(.*\\)\\.\\(.*\\)\\]\\]")
            (setq filenoext (match-string-no-properties 1))
            (setq imgext (match-string-no-properties 2))
            (setq imgfile (expand-file-name (concat filenoext "." imgext)))
            (setq pdffile (expand-file-name (concat filenoext "." "pdf")))
            (setq cmd (concat "convert -density 96 -quality 85 "
                              pdffile " " imgfile))
            (when (file-newer-than-file-p pdffile imgfile)
              ;; This block is executed only if pdffile is newer than
imgfile
              ;; or if imgfile does not exist
              ;;
https://www.gnu.org/software/emacs/manual/html_node/elisp/Testing-Accessibility.html
              (message "%s" cmd)
              (shell-command cmd))))))))
=====

If interested, here is the code and MWE on my github repo:
https://github.com/kaushalmodi/.emacs.d/tree/master/elisp/org-include-img-from-pdf

-- 

Kaushal Modi

[-- Attachment #2: Type: text/html, Size: 3838 bytes --]

Re: Right way to add special processing to images?

[Nicolas Goaziou]

Hello,

Kaushal Modi <kaushal.modi@gmail.com> writes:

> I have this elisp function that I run in org-export-before-processing-hook
> that coverts a pdf to png where that png file is already linked in the org
> file. Just that the png file did not exist to begin with; it is converted
> from pdf at the time of exporting. [Code is at the end of this email.]
>
> But for that you work, need to add my special keyword "convertfrompdf t"
> and I chose "#+HEADER" just before the image link to do that.
>

[...]

> So the question is: Is using #+HEADER for this a good idea? Would the org
> devs just a better way to do the same? I basically need to be able to
> control per image link if that linked image foo.png needs to be converted
> from a foo.pdf.

I would simply use a comment with some specific pattern instead of
messing with Org syntax.

For example, I use the following comments

  # © Author "title" licence

just before image links so as to mark them, collect them and build some
special page at the end of a slide with the information.


Regards,

-- 
Nicolas Goaziou

Re: Right way to add special processing to images?

[Kaushal Modi]

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

On Thu, Jan 12, 2017 at 2:59 PM Nicolas Goaziou <mail@nicolasgoaziou.fr>
wrote:

> I would simply use a comment with some specific pattern instead of
> messing with Org syntax.
>
> For example, I use the following comments
>
>   # © Author "title" licence
>
> just before image links so as to mark them, collect them and build some
> special page at the end of a slide with the information.
>

Thank you. That looks like a simple and safe idea. I will do that.
-- 

Kaushal Modi

[-- Attachment #2: Type: text/html, Size: 1040 bytes --]