[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [O] Extract source code /with/ captions
From: |
James Harkins |
Subject: |
Re: [O] Extract source code /with/ captions |
Date: |
Sat, 18 Jan 2014 03:04:09 +0000 (UTC) |
User-agent: |
Loom/3.14 (http://gmane.org/) |
For posterity, this is doing what I want.
It's with some shock that I note, I'm actually starting to understand LISP.
hjh
(defun hjh-get-string-from-nested-thing (thing)
"Peel off 'car's from a nested list until the car is a string."
(while (and thing (not (stringp thing)))
(setq thing (car thing)))
thing
)
(defun hjh-src-blocks-to-string ()
"Iterate src blocks from org-element and add them to a string."
(interactive)
(let ((tree (org-element-parse-buffer))
(string "")
(counter 0))
(org-element-map tree 'src-block
(lambda (element)
(setq element (car (cdr element)))
(let ((caption (hjh-get-string-from-nested-thing (plist-get element
:caption)))
(source (hjh-get-string-from-nested-thing (plist-get element
:value))))
(when caption
(setq counter (1+ counter))
(setq string (concat string (format "/*********
Listing %d. %s
*********/
%s\n\n"
counter
(substring-no-properties caption)
(substring-no-properties
source))))))))
string))
(defun hjh-src-blocks-to-buffer ()
"Put all the captioned source blocks from a buffer into another buffer."
(interactive)
(let* ((contents (hjh-src-blocks-to-string))
(bufpath (buffer-file-name))
(newname (concat (file-name-sans-extension bufpath) ".scd"))
(bufname (file-name-nondirectory newname))
(newbuf (get-buffer-create bufname)))
(with-current-buffer newbuf
(erase-buffer)
(insert contents)
(set-visited-file-name newname))
(switch-to-buffer-other-window newbuf)))
Re: [O] Extract source code /with/ captions, Charles Berry, 2014/01/12