ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ob: canonical presentation of header arguments when hashing 

* lisp/ob.el (org-babel-sha1-hash): Sort list values to header
  arguments, and sort the words in strings.
This commit is contained in:
Eric Schulte 2011-02-27 09:35:51 -07:00
parent 76137b16fa
commit dd31a84af6
1 changed files with 23 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lisp/ob.el
View File

@ -711,8 +711,8 @@ the current subtree."
(setf (nth 2 info)
(sort (copy-sequence (nth 2 info))
(lambda (a b) (string< (car a) (car b)))))
(let ((hash (sha1
(format "%s-%s"
((lambda (hash) (when (interactive-p) (message hash)) hash)
(sha1 (format "%s-%s"
(mapconcat
#'identity
(delq nil
@ -722,11 +722,18 @@ the current subtree."
(when (and v (not (and (sequencep v)
(not (consp v))
(= (length v) 0))))
(format "%S" v))))
((lambda (el) (format "%S" el))
(cond
((and (listp v) ; lists are sorted
(member (car arg) '(:result-params)))
(sort v #'string<))
((and (stringp v) ; strings are sorted
(member (car arg) '(:results :exports)))
(mapconcat #'identity (sort (split-string v)
#'string<) " "))
(t v)))))) ; atomic are left untouched
(nth 2 info))) ":")
(nth 1 info)))))
(when (interactive-p) (message hash))
hash)))
(nth 1 info))))))
(defun org-babel-result-hash (&optional info)
"Return the in-buffer hash associated with INFO."