emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[O] how to select a source code block and print it to a postscript file


From: dmg
Subject: [O] how to select a source code block and print it to a postscript file
Date: Sat, 9 Sep 2017 02:25:15 -0700

hi everybody,

I teach programming and I have been using org-mode for a couple years to do it. I absolutely love it.
Lately I have been thinking that I would like to be able to draw on the source code using xournal
(using a tablet)

To do that, I need to generate a pdf. But I don't want to generate the PDF of the entire file,
just of the block I am currently positioned at. I wrote the following code, but it feels clumsy, and
I am not a very good emacs-lisp programmer. I put it together by extracting code here and there.

Is there a better way to run ps-print-buffer (or ps-print-region) on the current block?
I am currently using the :tangle parameter as a filename to be created (adding the extension .ps)

the script I am running takes the postscript file, generate a pdf, and then runs xournal on it.

thank you in advance for any suggestions,

(defun org-src-xournal ()
  "show the source code in xournal as a PDF"
  (interactive)
  (save-restriction
    (save-excursion
      (let* ((case-fold-search t)
            (tangle-file
             (or (cdr (assq :tangle (nth 2 (org-babel-get-src-block-info 'light))))
                 (user-error "Point is not in a source code block or it does not have a tangle name")))
            (blockp (org-between-regexps-p "^[ \t]*#\\+begin_.*"
                                           "^[ \t]*#\\+end_.*"))
            (ps-file (concat tangle-file ".ps"))
            )
        
        (message "Exporting: %s" ps-file)
        (if blockp
            (let ((block-start 
                    (progn (goto-char (car blockp))
                        (next-line)
                        (point)
                      ))
                  (block-end
                    (progn (goto-char (cdr blockp))
                        (previous-line)
                        (point)
                      ))
                  )
              (narrow-to-region block-start block-end))
          (user-error "Not in a block"))
        (ps-print-buffer-with-faces ps-file)
        (shell-command (concat "code-xournal " ps-file "&"))
        )
      )))


--
--dmg

---
Daniel M. German
http://turingmachine.org

reply via email to

[Prev in Thread] Current Thread [Next in Thread]