emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
From: swflint@flintfam.org (Samuel W. Flint)
To: emacs-orgmode@gnu.org
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	[thread overview]
Message-ID: <87si4bt9kc.fsf@turing.flintfam.org> (raw)


[-- Attachment #1.1: Type: text/plain, Size: 318 bytes --]

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

[-- Attachment #1.2: signature.asc --]
[-- Type: application/pgp-signature, Size: 818 bytes --]

[-- Attachment #2: Backtrace --]
[-- Type: text/plain, Size: 17410 bytes --]

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=%s" (car pair) (org-babel-sh-var-to-sh (cdr pair) sep)))) (mapcar (function cdr) (org-babel-get-header params :var)))
  (let ((sep (cdr (assoc :separator params)))) (mapcar (function (lambda (pair) (format "%s=%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) (:result-params "replace") (:result-type . value) (:comments . "noweb") (:shebang . "#!/bin/zsh") (:cache . "no") (:padline . "") (:noweb . "tangle") (:tangle . "~/bin/ediff") (:exports . "code") (:results . "replace") (:tangle-mode . 493) (:hlines . "no") (:session . "none")))
  funcall(org-babel-variable-assignments:sh ((:colname-names) (:rowname-names) (:result-params "replace") (:result-type . value) (:comments . "noweb") (:shebang . "#!/bin/zsh") (:cache . "no") (:padline . "") (:noweb . "tangle") (: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-expand-body:generic body params (and (fboundp assignments-cmd) (funcall assignments-cmd params))))
  (if (assoc :no-expand params) body (if (fboundp expand-cmd) (funcall expand-cmd body params) (org-babel-expand-body:generic body params (and (fboundp assignments-cmd) (funcall assignments-cmd params)))))
  (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 (if (fboundp expand-cmd) (funcall expand-cmd body params) (org-babel-expand-body:generic body params (and (fboundp assignments-cmd) (funcall assignments-cmd params))))))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert body) (if (string-match "-r" extra) (progn (goto-char ...) (while ... ...))) (run-hooks (quote org-babel-tangle-body-hook)) (buffer-string)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))))
  (let* ((info (org-babel-get-src-block-info)) (start-line (save-restriction (widen) (+ 1 (line-number-at-pos (point))))) (file (buffer-file-name (buffer-base-buffer))) (src-lang (nth 0 info)) (params (nth 2 info)) (extra (nth 3 info)) (cref-fmt (or (and (string-match "-l \"\\(.+\\)\"" extra) (match-string 1 extra)) org-coderef-label-format)) (link (let ((link (org-no-properties (org-store-link nil)))) (and (string-match org-bracket-link-regexp link) (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))) (assignments-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 (if ... ... ...)))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ... ... ...) (and ... ...)))))) (comment (if (or (string= "both" (cdr (assoc :comments params))) (string= "org" (cdr (assoc :comments params)))) (progn (funcall org-babel-process-comment-text (buffer-substring (max ... ...) (point)))))) (result (list start-line file link source-name params body comment))) (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-block counter))) (if by-lang (setcdr by-lang (cons block (cdr by-lang))) (setq blocks (cons (cons src-lang (list block)) blocks))))
  (if (or (string= (cdr (assq :tangle (nth 2 info))) "no") (and tangle-file (not (equal tangle-file src-tfile))) (and language (not (string= 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 (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= (cdr (assq :tangle (nth 2 info))) "no") (and tangle-file (not (equal tangle-file src-tfile))) (and language (not (string= 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 (list block)) blocks))))))
  (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= (cdr (assq :tangle (nth 2 info))) "no") (and tangle-file (not (equal tangle-file src-tfile))) (and language (not (string= 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 ...) blocks)))))))
  (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) (defvar outline-regexp) (defvar org-outline-regexp-bol) (let* ... ...)))))) (cond ((eq last-heading-pos current-heading-pos) (setq counter (1+ counter))) ((= 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= (cdr (assq :tangle ...)) "no") (and tangle-file (not (equal tangle-file src-tfile))) (and language (not (string= 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 ...)) (setq blocks (cons ... blocks))))))) (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-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 ... ... ... ... ...))))) (cond ((eq last-heading-pos current-heading-pos) (setq counter (1+ counter))) ((= 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 ...)))) (if (or (string= (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-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 ... ...)))) (cond ((eq last-heading-pos current-heading-pos) (setq counter (1+ counter))) ((= counter 1)) (t (setq counter 1)))) (if (org-in-commented-heading-p) nil (let* ((info (org-babel-get-src-block-info ...)) (src-lang (nth 0 info)) (src-tfile (cdr ...))) (if (or (string= ... "no") (and tangle-file ...) (and language ...)) nil (let (... ...) (if by-lang ... ...))))) (goto-char end-block))))
  (while (re-search-forward org-babel-src-block-regexp nil t) (if (org-babel-active-location-p) (progn (goto-char (match-beginning 0)) (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 ...))) (cond ((eq last-heading-pos current-heading-pos) (setq counter ...)) ((= counter 1)) (t (setq counter 1)))) (if (org-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-buffer)) (goto-char (point-min)) (while (re-search-forward org-babel-src-block-regexp nil t) (if (org-babel-active-location-p) (progn (goto-char (match-beginning 0)) (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 ...)) (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-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 (goto-char (match-beginning 0)) (let ((full-block ...) (beg-block ...) (end-block ...) (lang ...) (beg-lang ...) (end-lang ...) (switches ...) (beg-switches ...) (end-switches ...) (header-args ...) (beg-header-args ...) (end-header-args ...) (body ...) (beg-body ...) (end-body ...)) (let (...) (cond ... ... ...)) (if (org-in-commented-heading-p) nil (let* ... ...)) (goto-char end-block)))))) (set-window-configuration wconfig))
  (let ((wconfig (current-window-configuration))) (unwind-protect (progn (if file (progn (find-file file))) (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 (goto-char (match-beginning 0)) (let (... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (let ... ...) (if ... nil ...) (goto-char end-block)))))) (set-window-configuration wconfig)))
  (let* ((case-fold-search t) (file (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 file))) (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 (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) (file (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 file))) (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 visited-p nil (kill-buffer to-be-removed)) (goto-char point)) (mapcar (function (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-babel-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-tangle-collect-blocks lang tangle-file)))
  (let ((block-counter 0) (org-babel-default-header-args (if target-file (org-babel-merge-params org-babel-default-header-args (list (cons :tangle target-file))) org-babel-default-header-args)) (tangle-file (if (equal arg (quote (16))) (progn (or (cdr (assoc :tangle ...)) (user-error "Point is not in a source code block"))))) path-collector) (mapc (function (lambda (by-lang) (let* ((lang (car by-lang)) (specs (cdr by-lang)) (ext (or ... lang)) (lang-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 (= block-counter 1) "" "s") (file-name-nondirectory (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-path) (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-default-header-args (if target-file (org-babel-merge-params org-babel-default-header-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-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 (= block-counter 1) "" "s") (file-name-nondirectory (buffer-file-name (or (buffer-base-buffer) (current-buffer))))) (if org-babel-post-tangle-hook (progn (mapc (function (lambda (file) (let* ... ... ... ... ... temp-result))) (mapcar (function car) path-collector)))) (mapc (function (lambda (pair) (if (cdr pair) (progn (set-file-modes ... ...))))) path-collector) (mapcar (function 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) (user-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)) (tangle-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 (= block-counter 1) "" "s") (file-name-nondirectory (buffer-file-name (or (buffer-base-buffer) (current-buffer))))) (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)
  #<subr call-interactively>(org-babel-tangle nil nil)
  ad-Advice-call-interactively(#<subr call-interactively> org-babel-tangle nil nil)
  apply(ad-Advice-call-interactively #<subr call-interactively> (org-babel-tangle nil nil))
  call-interactively(org-babel-tangle nil nil)
  command-execute(org-babel-tangle)

[-- Attachment #3: Type: text/plain, Size: 32235 bytes --]


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:
==============
(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 "⤵"
 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 nonstopmode -output-directory %o %f" "pdflatex -shell-escape -interaction nonstopmode -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 ("+school")))
                                )
                               )
                              ("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-function
 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 Inventory")
                          (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)] . [(meta +)])
                     ([(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-mode
                 org-bullets-mode (lambda nil (org-indent-mode 1))
                 visual-line-mode flyspell-mode org-clock-load
                 #[nil
                   "\305\306	>\203\0\307\n\310\311#\210\307\v\312\313#\210\307\v\314\315#\210\306	>\203,\307\n\316\317#\210\307\n\320\321#\210\322	>\203>\307\v\323\324#\210\307\v\325\324#\210\326	>\203P\307\n\327\317#\210\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-result-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-generation.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" :maxlevel . 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-tag)
 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=%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-function
 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-function
 org-agenda-mode-hook '(#[nil
                          "\302\303	\304\305#\210\303	\306\307#\210\303	\310\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\b!\303	\304\"\203\0\305\306!\202\0\303	\307\"\205\0\310\306!)\207"

                             [event --cl-var-- org-mouse-get-gesture eql :left org-agenda-earlier 1 :right org-agenda-later]

                             3 nil "e"]

                           ]
                          4]
                        #[nil
                          "\302\303	\304\305#\210\303	\306\307#\210\303	\310\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\b!\303	\304\"\203\0\305\306!\202\0\303	\307\"\205\0\310\306!)\207"

                             [event --cl-var-- org-mouse-get-gesture eql :left 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-generation.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/org/quotes.org" "/home/swflint/org/my-notes.org" "/home/swflint/org/links.org" "/home/swflint/org/library.org" "/home/swflint/org/euler.org" "/home/swflint/org/esperanto.org" "/home/swflint/org/diary.org" "/home/swflint/org/derivatives.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-chronologically)
                              :htmlized-source t :publishing-function
                              (org-html-publish-to-html org-publish-attachment)
                              :exclude-tags t :section-numbers nil :html-head
                              "<link rel=\"stylesheet\" type=\"text/css\" href=\"http://www.pirilampo.org/styles/readtheorg/css/htmlize.css\"/>\n<link rel=\"stylesheet\" type=\"text/css\" href=\"http://www.pirilampo.org/styles/readtheorg/css/readtheorg.css\"/>\n\n<script src=\"https://ajax.googleapis.com/ajax/libs/jquery/2.1.3/jquery.min.js\"></script>\n<script src=\"https://maxcdn.bootstrapcdn.com/bootstrap/3.3.4/js/bootstrap.min.js\"></script>\n<script type=\"text/javascript\" src=\"http://www.pirilampo.org/styles/lib/js/jquery.stickytableheaders.js\"></script>\n<script type=\"text/javascript\" src=\"http://www.pirilampo.org/styles/readtheorg/js/readtheorg.js\"></script>")
                             ("cons-dev" :base-directory "~/cons-dev/"
                              :publishing-directory
                              "/ssh:swflint@flintfam.org:/var/web/consultingdevelopers.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-chronologically)
                              :htmlized-source t :publishing-function
                              (org-html-publish-to-html org-publish-attachment)
                              :exclude-tags t :section-numbers nil :html-head
                              "<link rel=\"stylesheet\" type=\"text/css\" href=\"http://www.pirilampo.org/styles/readtheorg/css/htmlize.css\"/>\n<link rel=\"stylesheet\" type=\"text/css\" href=\"http://www.pirilampo.org/styles/readtheorg/css/readtheorg.css\"/>\n\n<script src=\"https://ajax.googleapis.com/ajax/libs/jquery/2.1.3/jquery.min.js\"></script>\n<script src=\"https://maxcdn.bootstrapcdn.com/bootstrap/3.3.4/js/bootstrap.min.js\"></script>\n<script type=\"text/javascript\" src=\"http://www.pirilampo.org/styles/lib/js/jquery.stickytableheaders.js\"></script>\n<script type=\"text/javascript\" src=\"http://www.pirilampo.org/styles/readtheorg/js/readtheorg.js\"></script>")
                             )
 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" . 104)
                 (:endgroup) (:startgroup) ("projects" . 112) ("paper" . 114)
                 ("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)
(λs.s s) λs.s s

             reply	other threads:[~2015-11-12 17:25 UTC|newest]

Thread overview: 6+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2015-11-12 17:24 Samuel W. Flint [this message]
2015-11-12 17:36 ` 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/)] Kyle Meyer
2015-11-12 18:41   ` Samuel W. Flint
2015-11-12 19:06     ` Nick Dokos
2015-11-12 19:09     ` Kyle Meyer
2015-11-12 19:18       ` Samuel W. Flint

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.orgmode.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=87si4bt9kc.fsf@turing.flintfam.org \
    --to=swflint@flintfam.org \
    --cc=emacs-orgmode@gnu.org \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).