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"
(let* ((case-fold-search t)
(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_.*"
(ps-file (concat tangle-file ".ps"))
(message "Exporting: %s" ps-file)
(progn (goto-char (car blockp))
(progn (goto-char (cdr blockp))
(narrow-to-region block-start block-end))
(user-error "Not in a block"))
(shell-command (concat "code-xournal " ps-file "&"))