org-mode/contrib/lisp/ob-spice.el

183 lines
7.3 KiB
EmacsLisp

;;; ob-spice.el --- org-babel functions for spice evaluation
;;; -*- coding: utf-8 -*-
;; Author: Tiago Oliveira Weber
;; Maintainer: stardiviner (numbchild@gmail.com)
;; Version: 0.4
;; Package-Requires: ((spice-mode "0.0.1") (org "8"))
;; Homepage: http://tiagoweber.github.io
;; License: GPL v3, or any later version
;;
;; This file is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 3, or (at your option)
;; any later version.
;;
;; This file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;; Org-Babel support for evaluating spice script.
;; Inspired by Ian Yang's org-export-blocks-format-plantuml (http://www.emacswiki.org/emacs/org-export-blocks-format-plantuml.el)
;;; Requirements:
;;
;; - ngspice
;;; Code:
(require 'ob)
(add-to-list 'org-babel-tangle-lang-exts '("spice" . "cir"))
(defun ob-spice-concat (wordlist)
"Concatenate elements of a `WORDLIST' into a string separated by spaces."
;; example of usage
;; (ob-spice-concat '("This" "is" "a" "long" "journey"))
(setq newtext (car wordlist)) ; first word is without space before
(setq wordlist (rest wordlist)) ; exclude the first word from the list
(dolist (word wordlist newtext) ; loop through the list and concatenate the values
(setq newtext (concat newtext " " word))))
(defun org-babel-expand-body:spice (body params)
"Expand BODY according to PARAMS, return the expanded body."
(let* ((vars (mapcar #'cdr (org-babel-get-header params :var))))
(setq newbody "");
(setq bodylinelist (split-string body "\n"))
(dolist (line bodylinelist newbody)
(progn ;loop through list of lines
(setq wordlist (split-string line " "))
(setq firstword 1)
(dolist (word wordlist)
(progn ;loop through the words
(if (string-match "\\$\\(.*\\)\\[\\(.*\\)\\]" word)
(progn
;; if matches a vector variable format
(setq varname (match-string 1 word))
(setq varindex (match-string 2 word))
;; search varname in vars and use the value of varindex to word
(setq newword
(nth (string-to-number varindex)
(car (assoc-default varname vars
(lambda (key candidate)
(string= key candidate))))))
(if (not (eq newword nil))
(if (not (stringp newword))
(setq word (number-to-string newword))
(setq word newword)))
)
) ; end of (if (string-match "\\$\\(.*\\)\\[\\(.*\\)\\]" word))
(if (string-match "\\$\\(.*\\)\\." word) ; if variable has a dot in the end
(progn
;; if matches a non-vector variable format
(setq varname (match-string 1 word))
(setq newword
(assoc-default varname vars
(lambda (key candidate)
(string= key candidate))))
(if (not (eq newword nil))
(progn
(if (not (stringp newword))
(setq newword (number-to-string newword)))
(setq word (replace-match (concat newword ".") nil nil word))
;(setq word word)
)
))
);; end of (if (string-match "\\$\\(.*\\)\\." word)
(if (string-match "\\$\\(.*\\)" word)
(progn
;; if matches a non-vector variable format
(setq varname (match-string 1 word))
(setq newword
(assoc-default varname vars
(lambda (key candidate)
(string= key candidate))))
(if (not (eq newword nil))
(if (not (stringp newword))
(setq word (number-to-string newword))
(setq word newword)
))
)
) ; end of (if (string-match "\\$\\(.*\\)" word)
(setq newbody (concat newbody
(if (not (eq firstword 1)) " ")
word))
(setq firstword 0)
) ; end of (progn
) ; end of (dolist (word wordlist))
(setq newbody (concat newbody "\n"))
) ; end of (progn ;; loop through list of lines ... )
) ; end of (dolist (line bodylinelist) ...function ...)
))
;;;###autoload
(defun org-babel-execute:spice (body params)
"Execute a block of Spice code `BODY' with org-babel and `PARAMS'."
(let ((body (org-babel-expand-body:spice body params))
(vars (mapcar #'cdr (org-babel-get-header params :var))))
;;******************************
;; clean temporary files
(mapc (lambda (pair)
(when (string= (car pair) "file")
(setq textfile (concat (cdr pair) ".txt"))
(setq imagefile (concat (cdr pair) ".png"))
)
)
vars)
;; (if (file-readable-p textfile) (delete-file textfile))
;; (if (file-readable-p imagefile) (delete-file imagefile))
;;*******************************
(org-babel-eval "ngspice -b " body)
;; loop through all pairs (elements) of the list vars and set text and image file if finds "file" var
(mapc (lambda (pair)
(when (string= (car pair) "file")
(setq textfile (concat (cdr pair) ".txt"))
(setq imagefile (concat (cdr pair) ".png"))))
vars)
;; produce results
;; THE FOLLOWING WAS COMMENTED TEMPORARILY
;; (concat
;; (if (file-readable-p textfile)
;; (get-string-from-file textfile))
;; (if (file-readable-p imagefile)
;; (concat '"#+ATTR_HTML: :width 600px \n [[file:./" imagefile "]]")
;; )
;; )
;; ;; Get measurement values from text-file by splitting comma separated values
(if (file-readable-p textfile)
(progn
(setq rawtext (get-string-from-file textfile))
;;(setq rawtext (replace-regexp-in-string "\n" "" rawtext))
(setq rawtext (replace-regexp-in-string "\n" "" rawtext))
(setq result (split-string rawtext ","))))
(if (file-readable-p imagefile)
(progn
;; test if result exist already
;;(if (boundp 'result)
(add-to-list 'result (concat '"[[file:./" imagefile "]]") t) ;; add imagefile to last entry
;;(concat '"[[file:./" imagefile "]]")
;;)
))
result
;; Produce output like '(test test2)
;;'(test test2)
)
)
(provide 'ob-spice)
;;; ob-spice.el ends here