From mboxrd@z Thu Jan 1 00:00:00 1970 From: swflint@flintfam.org (Samuel W. Flint) Subject: Bug: org-babel-tangle error. org-babel-get-header undefined [8.3.2 (release_8.3.2-317-gbd921f @ /home/swflint/.emacs.d/org-mode/lisp/)] Date: Thu, 12 Nov 2015 12:24:35 -0500 Message-ID: <87si4bt9kc.fsf@turing.flintfam.org> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:47729) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZwvcM-0005TW-20 for emacs-orgmode@gnu.org; Thu, 12 Nov 2015 12:25:06 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ZwvcH-0006jG-Sv for emacs-orgmode@gnu.org; Thu, 12 Nov 2015 12:25:02 -0500 Received: from flintfam.org ([50.116.25.174]:50015 helo=mail.flintfam.org) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZwvcH-0006jA-Ha for emacs-orgmode@gnu.org; Thu, 12 Nov 2015 12:24:57 -0500 Received: from turing.flintfam.org.flintfam.org (dhcp84-235.calvin.edu [153.106.84.235]) (Authenticated sender: swflint@flintfam.org) by mail.flintfam.org (Postfix) with ESMTPSA id 316D48455 for ; Thu, 12 Nov 2015 17:25:35 +0000 (UTC) List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org --=-=-= Content-Type: multipart/signed; boundary="==-=-="; micalg=pgp-sha1; protocol="application/pgp-signature" --==-=-= Content-Type: text/plain Hey all! In an attempt to keep my config file organized, I've been using org. As of a fairly recent update, when I tangle the document (C-c C-v C-t), I get the following error "Symbol's function definition is void: org-babel-get-header". I have no idea why this is happening. I've attached a backtrace. TIA, Sam --==-=-= Content-Type: application/pgp-signature; name="signature.asc" -----BEGIN PGP SIGNATURE----- Version: GnuPG v1 iQIcBAEBAgAGBQJWRMtTAAoJEGjlMY4mZZb0cFAP/2TJH1D6Wn78mRjYnMDcX4yo 5IDq/N/1t4Q2/I1uUNSw6d51JvFhoc4gnq/Hd/JDnD7NUpofc1YNfYbl4KQgSksh LnPO9PWk4WS+/+ktWICsHw81uj99WCdRA160sDTylgdWX63TeJ6hcylGBPcP/gHr KdZbdBFfbqJvqDWtAzjUrQF06BxJ1WiIzY7nXMB9g9wE6AzRgK01saQrcYofDcvJ qsK/1cGbTE2ye2OlxiUN/rAa5ohDdQbJ6VosLSgp/TxtTTkoIXZ7jGujY69/Nk17 vp8mTS9LP9e9Jh/deSsFiEp2nyNtD0Vmr5klGd4DBFIjNpRuKxfV0hGfRa94lDpu +9BxZ1gbb/Xfl73Ifu2D1jeI4pW5ewM5H9EbqoePoQGDoTjuaHU7n9J6f40yGDE9 upUAY/9ZD/SQXZkPK9mg5JsL7bb3O4A4RvK7XWPNSe/LL+tRqUdzW5/3DVCPNDHx 97K+lppNV8zwjt0bj/zf96FNATcNgt4iYoU0Ggjt3NWMm7RQyM0jeVZxNpNrMfOY 7MnYceGe48XppSeWU3uPN47n7bLUUeSYFwJSvIniPrieSivZ3ebZcALJPPPUXSzC 8Ao7wCiuoMkVWHehnUJhMOktobYIpJkb5d2YPnHTXGzP8uBCJFX2uNif1DtJg6rF mDY7Y2U9VXaCgF7O1DtL =+jDF -----END PGP SIGNATURE----- --==-=-=-- --=-=-= Content-Type: text/plain Content-Disposition: attachment; filename=backtrace.txt Content-Transfer-Encoding: quoted-printable Content-Description: Backtrace Debugger entered--Lisp error: (void-function org-babel-get-header) (org-babel-get-header params :var) (mapcar (function cdr) (org-babel-get-header params :var)) (mapcar (function (lambda (pair) (format "%s=3D%s" (car pair) (org-babel-= sh-var-to-sh (cdr pair) sep)))) (mapcar (function cdr) (org-babel-get-heade= r params :var))) (let ((sep (cdr (assoc :separator params)))) (mapcar (function (lambda (p= air) (format "%s=3D%s" (car pair) (org-babel-sh-var-to-sh (cdr pair) sep)))= ) (mapcar (function cdr) (org-babel-get-header params :var)))) org-babel-variable-assignments:sh(((:colname-names) (:rowname-names) (:re= sult-params "replace") (:result-type . value) (:comments . "noweb") (:sheba= ng . "#!/bin/zsh") (:cache . "no") (:padline . "") (:noweb . "tangle") (:ta= ngle . "~/bin/ediff") (:exports . "code") (:results . "replace") (:tangle-m= ode . 493) (:hlines . "no") (:session . "none"))) funcall(org-babel-variable-assignments:sh ((:colname-names) (:rowname-nam= es) (:result-params "replace") (:result-type . value) (:comments . "noweb")= (:shebang . "#!/bin/zsh") (:cache . "no") (:padline . "") (:noweb . "tangl= e") (:tangle . "~/bin/ediff") (:exports . "code") (:results . "replace") (:= tangle-mode . 493) (:hlines . "no") (:session . "none"))) (and (fboundp assignments-cmd) (funcall assignments-cmd params)) (org-babel-expand-body:generic body params (and (fboundp assignments-cmd)= (funcall assignments-cmd params))) (if (fboundp expand-cmd) (funcall expand-cmd body params) (org-babel-expa= nd-body:generic body params (and (fboundp assignments-cmd) (funcall assignm= ents-cmd params)))) (if (assoc :no-expand params) body (if (fboundp expand-cmd) (funcall expa= nd-cmd body params) (org-babel-expand-body:generic body params (and (fbound= p assignments-cmd) (funcall assignments-cmd params))))) (let* ((body (if (org-babel-noweb-p params :tangle) (org-babel-expand-now= eb-references info) (nth 1 info))) (body (if (assoc :no-expand params) body= (if (fboundp expand-cmd) (funcall expand-cmd body params) (org-babel-expan= d-body:generic body params (and (fboundp assignments-cmd) (funcall assignme= nts-cmd params))))))) (let ((temp-buffer (generate-new-buffer " *temp*"))) = (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (inser= t body) (if (string-match "-r" extra) (progn (goto-char ...) (while ... ...= ))) (run-hooks (quote org-babel-tangle-body-hook)) (buffer-string)) (and (b= uffer-name temp-buffer) (kill-buffer temp-buffer)))))) (let* ((info (org-babel-get-src-block-info)) (start-line (save-restrictio= n (widen) (+ 1 (line-number-at-pos (point))))) (file (buffer-file-name (buf= fer-base-buffer))) (src-lang (nth 0 info)) (params (nth 2 info)) (extra (nt= h 3 info)) (cref-fmt (or (and (string-match "-l \"\\(.+\\)\"" extra) (match= -string 1 extra)) org-coderef-label-format)) (link (let ((link (org-no-prop= erties (org-store-link nil)))) (and (string-match org-bracket-link-regexp l= ink) (match-string 1 link)))) (source-name (intern (or (nth 4 info) (format= "%s:%d" (or (condition-case nil ... ...) "No heading") block-counter)))) (= expand-cmd (intern (concat "org-babel-expand-body:" src-lang))) (assignment= s-cmd (intern (concat "org-babel-variable-assignments:" src-lang))) (body (= let* ((body (if (org-babel-noweb-p params :tangle) (org-babel-expand-noweb-= references info) (nth 1 info))) (body (if (assoc :no-expand params) body (i= f ... ... ...)))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (sav= e-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ... ..= . ...) (and ... ...)))))) (comment (if (or (string=3D "both" (cdr (assoc :c= omments params))) (string=3D "org" (cdr (assoc :comments params)))) (progn = (funcall org-babel-process-comment-text (buffer-substring (max ... ...) (po= int)))))) (result (list start-line file link source-name params body commen= t))) (if only-this-block (list (cons src-lang (list result))) result)) org-babel-tangle-single-block(1) (let ((by-lang (assoc src-lang blocks)) (block (org-babel-tangle-single-b= lock counter))) (if by-lang (setcdr by-lang (cons block (cdr by-lang))) (se= tq blocks (cons (cons src-lang (list block)) blocks)))) (if (or (string=3D (cdr (assq :tangle (nth 2 info))) "no") (and tangle-fi= le (not (equal tangle-file src-tfile))) (and language (not (string=3D langu= age src-lang)))) nil (let ((by-lang (assoc src-lang blocks)) (block (org-ba= bel-tangle-single-block counter))) (if by-lang (setcdr by-lang (cons block = (cdr by-lang))) (setq blocks (cons (cons src-lang (list block)) blocks))))) (let* ((info (org-babel-get-src-block-info (quote light))) (src-lang (nth= 0 info)) (src-tfile (cdr (assq :tangle (nth 2 info))))) (if (or (string=3D= (cdr (assq :tangle (nth 2 info))) "no") (and tangle-file (not (equal tangl= e-file src-tfile))) (and language (not (string=3D language src-lang)))) nil= (let ((by-lang (assoc src-lang blocks)) (block (org-babel-tangle-single-bl= ock counter))) (if by-lang (setcdr by-lang (cons block (cdr by-lang))) (set= q blocks (cons (cons src-lang (list block)) blocks)))))) (if (org-in-commented-heading-p) nil (let* ((info (org-babel-get-src-bloc= k-info (quote light))) (src-lang (nth 0 info)) (src-tfile (cdr (assq :tangl= e (nth 2 info))))) (if (or (string=3D (cdr (assq :tangle (nth 2 info))) "no= ") (and tangle-file (not (equal tangle-file src-tfile))) (and language (not= (string=3D language src-lang)))) nil (let ((by-lang (assoc src-lang blocks= )) (block (org-babel-tangle-single-block counter))) (if by-lang (setcdr by-= lang (cons block (cdr by-lang))) (setq blocks (cons (cons src-lang ...) blo= cks))))))) (let ((full-block (match-string 0)) (beg-block (match-beginning 0)) (end-= block (match-end 0)) (lang (match-string 2)) (beg-lang (match-beginning 2))= (end-lang (match-end 2)) (switches (match-string 3)) (beg-switches (match-= beginning 3)) (end-switches (match-end 3)) (header-args (match-string 4)) (= beg-header-args (match-beginning 4)) (end-header-args (match-end 4)) (body = (match-string 5)) (beg-body (match-beginning 5)) (end-body (match-end 5))) = (let ((current-heading-pos (save-excursion (save-restriction (widen) (progn= (defvar org-called-with-limited-levels) (defvar org-outline-regexp) (defva= r outline-regexp) (defvar org-outline-regexp-bol) (let* ... ...)))))) (cond= ((eq last-heading-pos current-heading-pos) (setq counter (1+ counter))) ((= =3D counter 1)) (t (setq counter 1)))) (if (org-in-commented-heading-p) nil= (let* ((info (org-babel-get-src-block-info (quote light))) (src-lang (nth = 0 info)) (src-tfile (cdr (assq :tangle (nth 2 info))))) (if (or (string=3D = (cdr (assq :tangle ...)) "no") (and tangle-file (not (equal tangle-file src= -tfile))) (and language (not (string=3D language src-lang)))) nil (let ((by= -lang (assoc src-lang blocks)) (block (org-babel-tangle-single-block counte= r))) (if by-lang (setcdr by-lang (cons block ...)) (setq blocks (cons ... b= locks))))))) (goto-char end-block)) (progn (goto-char (match-beginning 0)) (let ((full-block (match-string 0)= ) (beg-block (match-beginning 0)) (end-block (match-end 0)) (lang (match-st= ring 2)) (beg-lang (match-beginning 2)) (end-lang (match-end 2)) (switches = (match-string 3)) (beg-switches (match-beginning 3)) (end-switches (match-e= nd 3)) (header-args (match-string 4)) (beg-header-args (match-beginning 4))= (end-header-args (match-end 4)) (body (match-string 5)) (beg-body (match-b= eginning 5)) (end-body (match-end 5))) (let ((current-heading-pos (save-exc= ursion (save-restriction (widen) (progn ... ... ... ... ...))))) (cond ((eq= last-heading-pos current-heading-pos) (setq counter (1+ counter))) ((=3D c= ounter 1)) (t (setq counter 1)))) (if (org-in-commented-heading-p) nil (let= * ((info (org-babel-get-src-block-info (quote light))) (src-lang (nth 0 inf= o)) (src-tfile (cdr (assq :tangle ...)))) (if (or (string=3D (cdr ...) "no"= ) (and tangle-file (not ...)) (and language (not ...))) nil (let ((by-lang = ...) (block ...)) (if by-lang (setcdr by-lang ...) (setq blocks ...)))))) (= goto-char end-block))) (if (org-babel-active-location-p) (progn (goto-char (match-beginning 0)) = (let ((full-block (match-string 0)) (beg-block (match-beginning 0)) (end-bl= ock (match-end 0)) (lang (match-string 2)) (beg-lang (match-beginning 2)) (= end-lang (match-end 2)) (switches (match-string 3)) (beg-switches (match-be= ginning 3)) (end-switches (match-end 3)) (header-args (match-string 4)) (be= g-header-args (match-beginning 4)) (end-header-args (match-end 4)) (body (m= atch-string 5)) (beg-body (match-beginning 5)) (end-body (match-end 5))) (l= et ((current-heading-pos (save-excursion (save-restriction ... ...)))) (con= d ((eq last-heading-pos current-heading-pos) (setq counter (1+ counter))) (= (=3D counter 1)) (t (setq counter 1)))) (if (org-in-commented-heading-p) ni= l (let* ((info (org-babel-get-src-block-info ...)) (src-lang (nth 0 info)) = (src-tfile (cdr ...))) (if (or (string=3D ... "no") (and tangle-file ...) (= and language ...)) nil (let (... ...) (if by-lang ... ...))))) (goto-char e= nd-block)))) (while (re-search-forward org-babel-src-block-regexp nil t) (if (org-babe= l-active-location-p) (progn (goto-char (match-beginning 0)) (let ((full-blo= ck (match-string 0)) (beg-block (match-beginning 0)) (end-block (match-end = 0)) (lang (match-string 2)) (beg-lang (match-beginning 2)) (end-lang (match= -end 2)) (switches (match-string 3)) (beg-switches (match-beginning 3)) (en= d-switches (match-end 3)) (header-args (match-string 4)) (beg-header-args (= match-beginning 4)) (end-header-args (match-end 4)) (body (match-string 5))= (beg-body (match-beginning 5)) (end-body (match-end 5))) (let ((current-he= ading-pos (save-excursion ...))) (cond ((eq last-heading-pos current-headin= g-pos) (setq counter ...)) ((=3D counter 1)) (t (setq counter 1)))) (if (or= g-in-commented-heading-p) nil (let* ((info ...) (src-lang ...) (src-tfile .= ..)) (if (or ... ... ...) nil (let ... ...)))) (goto-char end-block))))) (progn (if file (progn (find-file file))) (setq to-be-removed (current-bu= ffer)) (goto-char (point-min)) (while (re-search-forward org-babel-src-bloc= k-regexp nil t) (if (org-babel-active-location-p) (progn (goto-char (match-= beginning 0)) (let ((full-block (match-string 0)) (beg-block (match-beginni= ng 0)) (end-block (match-end 0)) (lang (match-string 2)) (beg-lang (match-b= eginning 2)) (end-lang (match-end 2)) (switches (match-string 3)) (beg-swit= ches (match-beginning 3)) (end-switches (match-end 3)) (header-args (match-= string 4)) (beg-header-args (match-beginning 4)) (end-header-args (match-en= d 4)) (body (match-string 5)) (beg-body (match-beginning 5)) (end-body (mat= ch-end 5))) (let ((current-heading-pos ...)) (cond (... ...) (...) (t ...))= ) (if (org-in-commented-heading-p) nil (let* (... ... ...) (if ... nil ...)= )) (goto-char end-block)))))) (unwind-protect (progn (if file (progn (find-file file))) (setq to-be-rem= oved (current-buffer)) (goto-char (point-min)) (while (re-search-forward or= g-babel-src-block-regexp nil t) (if (org-babel-active-location-p) (progn (g= oto-char (match-beginning 0)) (let ((full-block ...) (beg-block ...) (end-b= lock ...) (lang ...) (beg-lang ...) (end-lang ...) (switches ...) (beg-swit= ches ...) (end-switches ...) (header-args ...) (beg-header-args ...) (end-h= eader-args ...) (body ...) (beg-body ...) (end-body ...)) (let (...) (cond = ... ... ...)) (if (org-in-commented-heading-p) nil (let* ... ...)) (goto-ch= ar end-block)))))) (set-window-configuration wconfig)) (let ((wconfig (current-window-configuration))) (unwind-protect (progn (i= f file (progn (find-file file))) (setq to-be-removed (current-buffer)) (got= o-char (point-min)) (while (re-search-forward org-babel-src-block-regexp ni= l t) (if (org-babel-active-location-p) (progn (goto-char (match-beginning 0= )) (let (... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (let = ... ...) (if ... nil ...) (goto-char end-block)))))) (set-window-configurat= ion wconfig))) (let* ((case-fold-search t) (file (buffer-file-name)) (visited-p (or (nul= l file) (get-file-buffer (expand-file-name file)))) (point (point)) to-be-r= emoved) (let ((wconfig (current-window-configuration))) (unwind-protect (pr= ogn (if file (progn (find-file file))) (setq to-be-removed (current-buffer)= ) (goto-char (point-min)) (while (re-search-forward org-babel-src-block-reg= exp nil t) (if (org-babel-active-location-p) (progn (goto-char ...) (let ..= . ... ... ...))))) (set-window-configuration wconfig))) (if visited-p nil (= kill-buffer to-be-removed)) (goto-char point)) (let ((counter 0) last-heading-pos blocks) (let* ((case-fold-search t) (f= ile (buffer-file-name)) (visited-p (or (null file) (get-file-buffer (expand= -file-name file)))) (point (point)) to-be-removed) (let ((wconfig (current-= window-configuration))) (unwind-protect (progn (if file (progn (find-file f= ile))) (setq to-be-removed (current-buffer)) (goto-char (point-min)) (while= (re-search-forward org-babel-src-block-regexp nil t) (if (org-babel-active= -location-p) (progn ... ...)))) (set-window-configuration wconfig))) (if vi= sited-p nil (kill-buffer to-be-removed)) (goto-char point)) (mapcar (functi= on (lambda (b) (cons (car b) (nreverse (cdr b))))) blocks)) org-babel-tangle-collect-blocks(nil nil) (if (equal arg (quote (4))) (org-babel-tangle-single-block 1 t) (org-babe= l-tangle-collect-blocks lang tangle-file)) (mapc (function (lambda (by-lang) (let* ((lang (car by-lang)) (specs (cdr= by-lang)) (ext (or (cdr ...) lang)) (lang-f (intern (concat ... "-mode")))= she-banged) (mapc (function (lambda (spec) (let ... ...))) specs)))) (if (= equal arg (quote (4))) (org-babel-tangle-single-block 1 t) (org-babel-tangl= e-collect-blocks lang tangle-file))) (let ((block-counter 0) (org-babel-default-header-args (if target-file (o= rg-babel-merge-params org-babel-default-header-args (list (cons :tangle tar= get-file))) org-babel-default-header-args)) (tangle-file (if (equal arg (qu= ote (16))) (progn (or (cdr (assoc :tangle ...)) (user-error "Point is not i= n a source code block"))))) path-collector) (mapc (function (lambda (by-lan= g) (let* ((lang (car by-lang)) (specs (cdr by-lang)) (ext (or ... lang)) (l= ang-f (intern ...)) she-banged) (mapc (function (lambda ... ...)) specs))))= (if (equal arg (quote (4))) (org-babel-tangle-single-block 1 t) (org-babel= -tangle-collect-blocks lang tangle-file))) (message "Tangled %d code block%= s from %s" block-counter (if (=3D block-counter 1) "" "s") (file-name-nondi= rectory (buffer-file-name (or (buffer-base-buffer) (current-buffer))))) (if= org-babel-post-tangle-hook (progn (mapc (function (lambda (file) (let* (..= . ... temp-result temp-file) (org-babel-find-file-noselect-refresh temp-pat= h) (setq temp-file ...) (save-current-buffer ... ...) (if visited-p nil ...= ) temp-result))) (mapcar (function car) path-collector)))) (mapc (function = (lambda (pair) (if (cdr pair) (progn (set-file-modes (car pair) (cdr pair))= )))) path-collector) (mapcar (function car) path-collector)) (save-excursion (if (equal arg (quote (4))) (progn (let ((head (org-babel= -where-is-src-block-head))) (if head (goto-char head) (user-error "Point is= not in a source code block"))))) (let ((block-counter 0) (org-babel-defaul= t-header-args (if target-file (org-babel-merge-params org-babel-default-hea= der-args (list (cons :tangle target-file))) org-babel-default-header-args))= (tangle-file (if (equal arg (quote (16))) (progn (or (cdr ...) (user-error= "Point is not in a source code block"))))) path-collector) (mapc (function= (lambda (by-lang) (let* ((lang ...) (specs ...) (ext ...) (lang-f ...) she= -banged) (mapc (function ...) specs)))) (if (equal arg (quote (4))) (org-ba= bel-tangle-single-block 1 t) (org-babel-tangle-collect-blocks lang tangle-f= ile))) (message "Tangled %d code block%s from %s" block-counter (if (=3D bl= ock-counter 1) "" "s") (file-name-nondirectory (buffer-file-name (or (buffe= r-base-buffer) (current-buffer))))) (if org-babel-post-tangle-hook (progn (= mapc (function (lambda (file) (let* ... ... ... ... ... temp-result))) (map= car (function car) path-collector)))) (mapc (function (lambda (pair) (if (c= dr pair) (progn (set-file-modes ... ...))))) path-collector) (mapcar (funct= ion car) path-collector))) (save-restriction (save-excursion (if (equal arg (quote (4))) (progn (let= ((head (org-babel-where-is-src-block-head))) (if head (goto-char head) (us= er-error "Point is not in a source code block"))))) (let ((block-counter 0)= (org-babel-default-header-args (if target-file (org-babel-merge-params org= -babel-default-header-args (list ...)) org-babel-default-header-args)) (tan= gle-file (if (equal arg (quote ...)) (progn (or ... ...)))) path-collector)= (mapc (function (lambda (by-lang) (let* (... ... ... ... she-banged) (mapc= ... specs)))) (if (equal arg (quote (4))) (org-babel-tangle-single-block 1= t) (org-babel-tangle-collect-blocks lang tangle-file))) (message "Tangled = %d code block%s from %s" block-counter (if (=3D block-counter 1) "" "s") (f= ile-name-nondirectory (buffer-file-name (or (buffer-base-buffer) (current-b= uffer))))) (if org-babel-post-tangle-hook (progn (mapc (function (lambda ..= . ...)) (mapcar (function car) path-collector)))) (mapc (function (lambda (= pair) (if (cdr pair) (progn ...)))) path-collector) (mapcar (function car) = path-collector)))) org-babel-tangle(nil) #(org-babel-tangle nil nil) ad-Advice-call-interactively(# org-babel-tangle = nil nil) apply(ad-Advice-call-interactively # (org-babel-= tangle nil nil)) call-interactively(org-babel-tangle nil nil) command-execute(org-babel-tangle) --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Emacs : GNU Emacs 24.5.1 (x86_64-redhat-linux-gnu, GTK+ Version 3.16.2) of 2015-04-22 on buildhw-10.phx2.fedoraproject.org Package: Org-mode version 8.3.2 (release_8.3.2-317-gbd921f @ /home/swflint/= .emacs.d/org-mode/lisp/) current state: =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D (setq org-capture-prepare-finalize-hook '(gnorb-registry-capture-abort-cleanup gnorb-gnus-capture-abort-cleanup org-id-get-create) org-tree-slide-mode-hook '((lambda nil (text-scale-increase 2))) org-hide-leading-stars t org-footnote-auto-adjust 'sort org-drill-optimal-factor-matrix '((1 (2.36 . 3.86) (2.5 . 4.0) (2.1799999999999997 . 3.72)) (2 (2.2199999999999998 . 2.328) (2.36 . = 2.412)) ) org-tab-first-hook '(org-hide-block-toggle-maybe org-babel-hide-result-toggle-maybe org-babel-header-arg-expand) org-habit-show-all-today t org-latex-classes '(("beamer" "\\documentclass[presentation]{beamer}" ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . "\\subsubsection*{%s}")) ("article" "\\documentclass[11pt]{article}" ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . "\\subsubsection*{%s}") ("\\paragraph{%s}" . "\\paragraph*{%s}") ("\\subparagraph{%s}" . "\\subparagraph*{%s}")) ("report" "\\documentclass[11pt]{report}" ("\\part{%s}" . "\\part*{%s}") ("\\chapter{%s}" . "\\chapter*{%s}") ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . "\\subsubsection*{%s}")) ("book" "\\documentclass[11pt]{book}" ("\\part{%s}" . "\\part*{%s}") ("\\chapter{%s}" . "\\chapter*{%s}") ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . "\\subsubsection*{%s}")) ) org-insert-heading-hook '(org-expiry-insert-created) org-speed-command-hook '(org-speed-command-default-hook org-babel-speed-command-hook) org-agenda-skip-timestamp-if-done t org-download-method 'attach org-ellipsis "=E2=A4=B5" org-occur-hook '(org-first-headline-recenter) org-metaup-hook '(org-babel-load-in-session-maybe) org-agenda-start-on-weekday nil org-html-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"] org-capture-after-finalize-hook '((lambda nil (org-agenda-to-appt t))) org-src-window-setup 'current-window org-latex-format-inlinetask-function 'org-latex-format-inlinetask-default-= function org-babel-tangle-comment-format-beg "%source-name, %file" org-confirm-shell-link-function 'yes-or-no-p org-id-link-to-org-use-id t org-finalize-agenda-hook '((lambda nil (hl-line-mode))) org-after-tags-change-hook '(org-expiry-insert-created) org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-default org-startup-folded nil org-latex-pdf-process '("pdflatex -shell-escape -interaction nonstopmode -= output-directory %o %f" "bibtex %b" "pdflatex -shell-escape -interaction no= nstopmode -output-directory %o %f" "pdflatex -shell-escape -interaction non= stopmode -output-directory %o %f") org-panes-split-overview-horizontally t org-special-ctrl-a/e t org-agenda-custom-commands '(("n" "Agenda + TODOs" ((agenda "" nil) (alltodo "" nil)) nil) ("s" "School Schedule" agenda "" ((org-agenda-tag-filter-preset (quote ("+sch= ool"))) ) ) ("A" "List Assignments" agenda "" ((org-agenda-tag-filter-preset (quote ("+school" "+assignment"))) ) (org-agenda-deadline-warning-days 10)) ) org-use-sub-superscripts '{} org-return-follows-link t org-latex-format-headline-function 'org-latex-format-headline-default-func= tion org-expiry-handler-function 'org-toggle-archive-tag org-tree-slide-stop-hook '((lambda nil (text-scale-decrease 2))) org-default-notes-file "~/org/notes.org" org-capture-templates '(("a" "Create Appointment" entry (file+olp "~/org/agenda.org" "Main Agenda, including diary" "Current") (file "~/.emacs.d/org-capture-templates/appt-template.= org") :empty-lines 1 :prepend nil) ("t" "Add a ToDo Item" entry (file+headline "~/org/main.org" "To Do") (file "~/.emacs.d/org-capture-templates/todo-template.= org") :empty-lines 1) ("i" "Activities Inventory" entry (file+olp "~/org/activities.org" "Activities Inve= ntory") (file "~/.emacs.d/org-capture-templates/acti-template.= org") ) ("W" "Weekly Review Notes" entry (file+datetree "~/org/review.org") (file "~/.emacs.d/org-capture-templates/week-template.= org") ) ("j" "Journal Entry" entry (file+datetree "~/org/journal.org.gpg") (file "~/.emacs.d/org-capture-templates/jrnl-template.= org") ) ("J" "Technical Journal" entry (file+datetree "~/org/notes.org") (file "~/.emacs.d/org-capture-templates/tjnl-template.= org") ) ("n" "Notes Journal" entry (file+datetree "~/org/notes.org") (file "~/.emacs.d/org-capture-templates/njnl-template.= org") ) ("s" "Code Snip" entry (file "~/org/snips.org") (file "~/.emacs.d/org-capture-templates/snip-template.= org") ) ("l" "Add an Entry to the Library" entry (file+olp "library.org" "Books") (file "~/.emacs.d/org-capture-templates/book-template.= org") ) ("A" "Assignment" entry (file "~/org/school.org") (file "~/.emacs.d/org-capture-templates/asgn-template.= org") ) ("D" "Sysadmin Notebook" entry (file "~/org/admin-notes.org") (file "~/.emacs.d/org-capture-templates/admn-template.= org") ) ("c" "calfw2org" entry (file+olp "~/org/agenda.org" "Main Agenda, including diary" "Current") (file "~/.emacs.d/org-capture-templates/clfw-template.= org") ) ("w" "org-protocol" entry (file "~/org/links.org") "* Link %c %U\n%i" :immediate-finish t) ) org-after-todo-state-change-hook '(org-expiry-insert-created org-clock-out-if-current) org-latex-format-drawer-function #[514 "\207" [] 3 "\n\n(fn ## CONTENTS)"] org-capture-mode-hook '(gnorb-registry-capture gnorb-gnus-capture-attach gnorb-org-capture-collect-link) org-disputed-keys '(([(shift up)] . [(meta p)]) ([(shift down)] . [(meta n= )]) ([(shift left)] . [(meta -)]) ([(shift right)] . [(met= a +)]) ([(control shift right)] . [(meta shift +)]) ([(control shift left)] . [(meta shift -)]) ([(control tab)] . [(meta control tab)])) org-src-mode-hook '(org-src-babel-configure-edit-buffer org-src-mode-configure-edit-buffer) org-agenda-before-write-hook '(org-agenda-add-entry-text) org-babel-pre-tangle-hook '(save-buffer) org-font-lock-set-keywords-hook '(org-drill-add-cloze-fontification) org-mode-hook '(ws-butler-mode wc-mode er/add-org-mode-expansions abbrev-m= ode org-bullets-mode (lambda nil (org-indent-mode 1)) visual-line-mode flyspell-mode org-clock-load #[nil "\305\306 >\203=00\307\n\310\311#\210\307=0B\312\313#\21= 0\307=0B\314\315#\210\306 >\203,\307\n\316\317#\210\307\n\320\321#\210\322 = >\203>\307=0B\323\324#\210\307=0B\325\324#\210\326 >\203P\307\n\327\317#\21= 0\307\n\330\321#\210\331 >\203_\332\311\f\333BC\334#\210\335 >\203k\332\311= \336\334#\210\337 >\203w\332\311\340\334#\210\341\342\343\344\311$\210\345\= 342\311\"\210\342\207" [org-mouse-context-menu-function org-mouse-features org-mouse-map org-mode-map org-outline-regexp org-mouse-context-menu context-menu org-defkey [mouse-3] nil [mouse-3] org-mouse-show-context-menu [down-mouse-1] org-mouse-down-mouse [C-drag-mouse-1] org-mouse-move-tree [C-down-mouse-1] org-mouse-move-tree-start yank-link [S-mouse-2] org-mouse-yank-link [drag-mouse-3] move-tree [drag-mouse-3] [down-mouse-3] activate-stars font-lock-add-keywords (0 (\` (face org-link mouse-face highlight keymap (\, org-mouse-map) ) ) (quote prepend) ) t activate-bullets (("^[ ]*\\([-+*]\\|[0-9]+[.)]\\) +" (1 (\` (face org-link keymap (\, org-mouse-map) mouse-face highlight) ) (quote prepend) ) ) ) activate-checkboxes (("^[ ]*\\([-+*]\\|[0-9]+[.)]\\) +\\(\\[[ X]\\]\\)" (2 (\` (face bold keymap (\, org-mouse-map) mouse-face highlight) ) t) ) ) ad-add-advice org-open-at-point (org-mouse-open-at-point nil t (advice lambda nil (let ((context (org-context) = = = = = ) ) (cond ((assq :headline-stars context) (org-cycle) ) ((assq :checkbox context) (org-toggle-checkbox) ) ((assq :item-bullet context) (let ((org-cycle-include-plain-lists t) ) (org-cycle) ) ) ((org-footnote-at-reference-p) nil) (t ad-do-it) ) ) ) ) around ad-activate] 5] #[nil "\300\301\302\303\304$\207" [org-add-hook before-save-hook org-encrypt-entries nil t= ] 5] #[nil "\300\301\302\303\304$\207" [org-add-hook change-major-mode-hook org-show-block-all = append local] 5] #[nil "\300\301\302\303\304$\207" [org-add-hook change-major-mode-hook org-babel-show-resu= lt-all append local] 5] org-babel-result-hide-spec org-babel-hide-all-hashes) org-panes-main-size 80 org-refile-targets '(("/home/swflint/.emacs.d/my-init.org" :maxlevel . 7) ("/home/swflint/org/main.org" :maxlevel . 7) ("/home/swflint/org/agenda.org" :maxlevel . 7) ("/home/swflint/org/snips.org" :maxlevel . 7) ("/home/swflint/org/music-stuff/music-theory-based-ge= neration.org" :maxlevel . 7) ("/home/swflint/org/bookmarks.org" :maxlevel . 7) ("/home/swflint/org/notes.org" :maxlevel . 7) ("/home/swflint/org/school.org_archive" :maxlevel . 7) ("/home/swflint/org/recipes.org" :maxlevel . 7) ("/home/swflint/org/rules-application.org" :maxlevel = . 7) ("/home/swflint/org/school.org" :maxlevel . 7) ("/home/swflint/.emacs.d/my-init.org_archive" :maxlev= el . 7) ("/home/swflint/org/sicp.org" :maxlevel . 7) ("/home/swflint/org/quotes.org" :maxlevel . 7) ("/home/swflint/org/my-notes.org" :maxlevel . 7) ("/home/swflint/org/links.org" :maxlevel . 7) ("/home/swflint/org/library.org" :maxlevel . 7) ("/home/swflint/org/euler.org" :maxlevel . 7) ("/home/swflint/org/esperanto.org" :maxlevel . 7) ("/home/swflint/org/diary.org" :maxlevel . 7) ("/home/swflint/org/derivatives.org" :maxlevel . 7) ("/home/swflint/org/college.org" :maxlevel . 7)) org-download-timestamp "_%Y-%m-%d_%H-%M-%S" org-export-with-tags nil org-archive-hook '(org-attach-archive-delete-maybe) org-use-speed-commands t org-ascii-format-drawer-function #[771 "\207" [] 4 "\n\n(fn NAME CONTENTS = WIDTH)"] org-replace-disputed-keys t org-clock-persist 'history org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point org-babel-execute-safely-= maybe) org-refile-use-outline-path 'file org-directory "~/org/" org-enforce-todo-dependencies t org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers org-cycle-show-empty-lines org-optimize-window-after-visibility-change) org-tags-exclude-from-inheritance '("crypt") org-M-RET-may-split-line '((headline) (item . t) (table)) org-log-refile 'note org-plantuml-jar-path "~/bin/plantuml.jar" org-edit-src-auto-save-idle-delay 5 org-read-date-prefer-future 'time org-agenda-use-time-grid nil org-agenda-finalize-hook '((lambda nil (hl-line-mode))) org-export-before-processing-hook '(esf/remove-lines-with-ignore-heading-t= ag) org-lowest-priority 69 org-crypt-key "266596F4" org-enforce-todo-checkbox-dependencies t org-refile-allow-creating-parent-nodes t org-use-property-inheritance t org-blank-before-new-entry '((heading . t) (plain-list-item . auto)) org-html-infojs-options '((path . "http://flintfam.org/org-info.js") (view . "info") (toc . :with-toc) (ftoc . "0") (tdepth . "max") (sdepth . "max") (mouse . "underline") (buttons . "0") (ltoc . "1= ") (up . :html-link-up) (home . :html-link-home)) org-todo-keywords '((sequence "TODO(t)" "WORKING(w)" "|" "DONE(d)") (sequence "REPORT(r)" "BUG(b)" "KNOWNCAUSE(k)" "|" "FIXED(f)") (sequence "RESEARCH(s)" "OUTLINE(o)" "WRITE(e)" "PROOF= (p)" "|" "TURNIN(i)") (sequence "|" "CANCLED(c)")) org-modules '(org-bbdb org-bibtex org-crypt org-docview org-gnus org-habit org-id org-info org-irc org-mouse org-w3m org-annotate-file org-bookmark org-drill org-eshell org-invoice org-secretary org-expiry org-panel jsinfo org-license) org-link-abbrev-alist '(("ddg" . "https://duckduckgo.com/?q=3D%s")) org-agenda-span 14 org-latex-packages-alist '(("" "lmodern" nil) ("" "natbib" nil) ("nottoc,numbib" "tocbibind" nil) ("" "csquotes= " nil) ("" "color" nil) ("" "listings" nil) ("" "color= " nil) ("UTF8" "inputenc" nil)) org-babel-tangle-lang-exts '(("python" . "py") ("perl" . "pl") ("ocaml" . = "ml") ("maxima" . "max") ("lisp" . "lisp") ("LilyPond" . "ly") ("latex" . "tex") ("haskell" . "hs") ("D" . "d") ("C++" . "cpp") ("emacs-lisp" . "el") ("elisp" . "el")) org-confirm-elisp-link-function 'yes-or-no-p org-metadown-hook '(org-babel-pop-to-session-maybe) org-mouse-features '(context-menu move-tree yank-link activate-stars activate-bullets activate-checkboxes) org-latex-listings t org-default-priority 67 org-blocker-hook '(org-block-todo-from-checkboxes org-block-todo-from-children-or-siblings-or-parent) org-agenda-skip-deadline-if-done t org-html-format-headline-function 'org-html-format-headline-default-functi= on org-structure-template-alist '(("n" "#+Name: ?" "#+Name: ?") ("C" "#+Caption: ?" "#+Caption: ?") ("s" "#+BEGIN_SRC ?\n\n#+END_SRC") ("e" "#+BEGIN_EXAMPLE\n?\n#+END_EXAMPLE") ("q" "#+BEGIN_QUOTE\n?\n#+END_QUOTE") ("v" "#+BEGIN_VERSE\n?\n#+END_VERSE") ("V" "#+BEGIN_VERBATIM\n?\n#+END_VERBATIM") ("c" "#+BEGIN_CENTER\n?\n#+END_CENTER") ("l" "#+BEGIN_LaTeX\n?\n#+END_LaTeX") ("L" "#+LaTeX: ") ("h" "#+BEGIN_HTML\n?\n#+END_HTML") ("H" "#+HTML: ") ("a" "#+BEGIN_ASCII\n?\n#+END_ASCII") ("A" "#+ASCII: ") ("i" "#+INDEX: ?") ("I" "#+INCLUDE: %file ?")) org-export-with-smart-quotes t org-babel-load-languages '((C . t) (calc . t) (dot . t) (emacs-lisp . t) (haskell . t) (latex . t) (lilypond . t) (lisp = . t) (maxima . t) (octave . t) (ocaml . t) (perl . t) (plantuml . t) (python . t) (sh . t) (sql . t) (R . t)) org-reveal-start-hook '(org-decrypt-entry) org-html-format-inlinetask-function 'org-html-format-inlinetask-default-fu= nction org-agenda-mode-hook '(#[nil "\302\303 \304\305#\210\303 \306\307#\210\303 \31= 0\311#\210\303 \312\313#\210\303 \314\315#\207" [org-mouse-context-menu-function org-agenda-mode-map org-mouse-agenda-context-menu org-defkey [mouse-3] org-mouse-show-context-menu [down-mouse-3] org-mouse-move-tree-start [C-mouse-4] org-agenda-earlier [C-mouse-5] org-agenda-later [drag-mouse-3] #[(event) "\302!\303 \304\"\203=00\305\306!\202=00\303 = \307\"\205=00\310\306!)\207" [event --cl-var-- org-mouse-get-gesture eql :l= eft org-agenda-earlier 1 :right org-agenda-later] 3 nil "e"] ] 4] #[nil "\302\303 \304\305#\210\303 \306\307#\210\303 \31= 0\311#\210\303 \312\313#\210\303 \314\315#\207" [org-mouse-context-menu-function org-agenda-mode-map org-mouse-agenda-context-menu org-defkey [mouse-3] org-mouse-show-context-menu [down-mouse-3] org-mouse-move-tree-start [C-mouse-4] org-agenda-earlier [C-mouse-5] org-agenda-later [drag-mouse-3] #[(event) "\302!\303 \304\"\203=00\305\306!\202=00\303 = \307\"\205=00\310\306!)\207" [event --cl-var-- org-mouse-get-gesture eql :l= eft org-agenda-earlier 1 :right org-agenda-later] 3 nil "e"] ] 4] ) org-agenda-files '("/home/swflint/.emacs.d/my-init.org" "/home/swflint/org/main.org" "/home/swflint/org/agenda.= org" "/home/swflint/org/snips.org" "/home/swflint/org/music-stuff/music-theory-based-gener= ation.org" "/home/swflint/org/bookmarks.org" "/home/swflint/org/notes.org" = "/home/swflint/org/recipes.org" "/home/swflint/org/rules-application.org" "= /home/swflint/org/school.org" "/home/swflint/org/sicp.org" "/home/swflint/o= rg/quotes.org" "/home/swflint/org/my-notes.org" "/home/swflint/org/links.or= g" "/home/swflint/org/library.org" "/home/swflint/org/euler.org" "/home/swf= lint/org/esperanto.org" "/home/swflint/org/diary.org" "/home/swflint/org/de= rivatives.org" "/home/swflint/org/college.org") org-clock-out-hook '(org-clock-remove-empty-clock-drawer) org-src-fontify-natively nil org-publish-project-alist '(("website" :base-directory "~/website/" :publishing-directory "/ssh:swflint@flintfam.org:/var/web/samflint.= com/test" :base-extension "org\\|png\\|\\jpg\\|css" :recursive t :auto-sitemap t :sitemap-title "Sitemap" :sitemap-filename "sitemap.org" :sitemap-sort-files (quote anti-chronological= ly) :htmlized-source t :publishing-function (org-html-publish-to-html org-publish-attachm= ent) :exclude-tags t :section-numbers nil :html-he= ad "\= n\n\n\n\n\n") ("cons-dev" :base-directory "~/cons-dev/" :publishing-directory "/ssh:swflint@flintfam.org:/var/web/consultin= gdevelopers.info/test" :base-extension "org\\|png\\|\\jpg\\|css" :recursive t :auto-sitemap t :sitemap-title "Sitemap" :sitemap-filename "sitemap.org" :sitemap-sort-files (quote anti-chronological= ly) :htmlized-source t :publishing-function (org-html-publish-to-html org-publish-attachm= ent) :exclude-tags t :section-numbers nil :html-he= ad "\= n\n\n\n\n\n") ) org-after-todo-statistics-hook '(org-summary-todo) org-freemind-style-map-function 'org-freemind-style-map--automatic org-tag-alist '((:startgroup) ("work" . 119) ("school" . 115) ("home" . 10= 4) (:endgroup) (:startgroup) ("projects" . 112) ("paper" . 11= 4) ("misc" . 109) (:endgroup) (:startgroup) ("code" . 99) ("writing" . 119) ("other" . 111) (:endgroup) (:startgroup) ("noexport" . 88) ("export" . 120) (:endgroup) ("notes" . = 110) ("nonum" . 78) ("drill" . 100) ("assignment" . 97) ("book"= . 98) ("crypt" . 67)) ) -- Samuel W. Flint 4096R/266596F4 (9477 D23E 389E 40C5 2F10 DE19 68E5 318E 2665 96F4) (=CE=BBs.s s) =CE=BBs.s s --=-=-=--