* 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/)]
@ 2015-11-12 17:24 Samuel W. Flint
2015-11-12 17:36 ` Kyle Meyer
0 siblings, 1 reply; 6+ messages in thread
From: Samuel W. Flint @ 2015-11-12 17:24 UTC (permalink / raw)
To: emacs-orgmode
[-- 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
^ permalink raw reply [flat|nested] 6+ messages in thread* Re: 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/)]
2015-11-12 17:24 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/)] Samuel W. Flint
@ 2015-11-12 17:36 ` Kyle Meyer
2015-11-12 18:41 ` Samuel W. Flint
0 siblings, 1 reply; 6+ messages in thread
From: Kyle Meyer @ 2015-11-12 17:36 UTC (permalink / raw)
To: Samuel W. Flint; +Cc: emacs-orgmode
Hello,
swflint@flintfam.org (Samuel W. Flint) writes:
> 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
In your org-babel-do-load-languages call, try to changing
(sh . t)
to
(shell . t)
--
Kyle
^ permalink raw reply [flat|nested] 6+ messages in thread* Re: 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/)]
2015-11-12 17:36 ` Kyle Meyer
@ 2015-11-12 18:41 ` Samuel W. Flint
2015-11-12 19:06 ` Nick Dokos
2015-11-12 19:09 ` Kyle Meyer
0 siblings, 2 replies; 6+ messages in thread
From: Samuel W. Flint @ 2015-11-12 18:41 UTC (permalink / raw)
To: Kyle Meyer; +Cc: emacs-orgmode, Samuel W. Flint
On Thu, November 12, 2015 11:36 am, Kyle Meyer wrote:
> Hello,
>
> swflint@flintfam.org (Samuel W. Flint) writes:
>
>> 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
>
> In your org-babel-do-load-languages call, try to changing
>
> (sh . t)
>
> to
>
> (shell . t)
>
> --
> Kyle
>
>
I went ahead and tried that. I still get that error.
Thanks,
Sam
^ permalink raw reply [flat|nested] 6+ messages in thread
* Re: 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/)]
2015-11-12 18:41 ` Samuel W. Flint
@ 2015-11-12 19:06 ` Nick Dokos
2015-11-12 19:09 ` Kyle Meyer
1 sibling, 0 replies; 6+ messages in thread
From: Nick Dokos @ 2015-11-12 19:06 UTC (permalink / raw)
To: emacs-orgmode
"Samuel W. Flint" <swflint@flintfam.org> writes:
> On Thu, November 12, 2015 11:36 am, Kyle Meyer wrote:
>> Hello,
>>
>> swflint@flintfam.org (Samuel W. Flint) writes:
>>
>>> 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
>>
>> In your org-babel-do-load-languages call, try to changing
>>
>> (sh . t)
>>
>> to
>>
>> (shell . t)
>>
>> --
>> Kyle
>>
>>
>
> I went ahead and tried that. I still get that error.
>
I don't know what the underlying cause might be, but you might
be able to cure the symptom by doing
M-x load-library RET ob-core RET
which is where org-babel-get-header is defined. If that works,
then it's likely that a (require 'ob-core) is missing somewhere.
--
Nick
^ permalink raw reply [flat|nested] 6+ messages in thread
* Re: 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/)]
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
1 sibling, 1 reply; 6+ messages in thread
From: Kyle Meyer @ 2015-11-12 19:09 UTC (permalink / raw)
To: Samuel W. Flint; +Cc: emacs-orgmode
"Samuel W. Flint" <swflint@flintfam.org> writes:
[...]
>> In your org-babel-do-load-languages call, try to changing
>>
>> (sh . t)
>>
>> to
>>
>> (shell . t)
>>
>> --
>> Kyle
>>
>>
>
> I went ahead and tried that. I still get that error.
Hmm, and that was after Emacs was restarted?
Here is why I suggested that. As of Org 8.2, ob-sh was renamed to
ob-shell. The NEWS file contained this:
*** =ob-sh.el= renamed to =ob-shell=
This may require two changes in user config.
1. In =org-babel-do-load-languages=, change =(sh . t)= to =(shell . t)=.
2. Edit =local.mk= files to change the value of =BTEST_OB_LANGUAGES=
to remove "sh" and include "shell".
If you didn't do this (as I didn't), you wouldn't necessarily notice,
because org-babel-do-load-languages ends up loading the old ob-sh.el
that ships with Emacs. As the builtin ob-sh.el and babel diverged,
there were very likely subtle and perhaps not-so-subtle bugs, but the
blocks would execute until recently. Execution now fails because
org-babel-get-header was removed in 0d000f5 (babel: small change in
API., 2015-10-29), but the old ob-sh.el is still trying to call it.
Based on the configuration you included, you do need to change (sh . t)
to (shell . t), but perhaps there is still some other issue going on.
If a restart with the previous suggestion doesn't fix it, please try to
put together a minimal Org file and configuration that will reproduce
the issue with emacs -Q.
--
Kyle
^ permalink raw reply [flat|nested] 6+ messages in thread* Re: 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/)]
2015-11-12 19:09 ` Kyle Meyer
@ 2015-11-12 19:18 ` Samuel W. Flint
0 siblings, 0 replies; 6+ messages in thread
From: Samuel W. Flint @ 2015-11-12 19:18 UTC (permalink / raw)
To: Kyle Meyer; +Cc: emacs-orgmode
[-- Attachment #1: Type: text/plain, Size: 1876 bytes --]
>>>>> Kyle Meyer writes:
KM> "Samuel W. Flint" <swflint@flintfam.org> writes: [...]
>>> In your org-babel-do-load-languages call, try to changing
>>>
>>> (sh . t)
>>>
>>> to
>>>
>>> (shell . t)
>>>
>>> -- Kyle
>>>
>>>
>>
>> I went ahead and tried that. I still get that error.
KM> Hmm, and that was after Emacs was restarted?
Nope. Should have thought of that. Figures. That'll probably be all
that it is.
Thanks.
Sam
KM> Here is why I suggested that. As of Org 8.2, ob-sh was renamed to
KM> ob-shell. The NEWS file contained this:
KM> *** =ob-sh.el= renamed to =ob-shell= This may require two
KM> changes in user config.
KM> 1. In =org-babel-do-load-languages=, change =(sh . t)= to
KM> =(shell . t)=. 2. Edit =local.mk= files to change the value of
KM> =BTEST_OB_LANGUAGES= to remove "sh" and include "shell".
KM> If you didn't do this (as I didn't), you wouldn't necessarily
KM> notice, because org-babel-do-load-languages ends up loading the old
KM> ob-sh.el that ships with Emacs. As the builtin ob-sh.el and babel
KM> diverged, there were very likely subtle and perhaps not-so-subtle
KM> bugs, but the blocks would execute until recently. Execution now
KM> fails because org-babel-get-header was removed in 0d000f5 (babel:
KM> small change in API., 2015-10-29), but the old ob-sh.el is still
KM> trying to call it.
KM> Based on the configuration you included, you do need to change (sh
KM> . t) to (shell . t), but perhaps there is still some other issue
KM> going on. If a restart with the previous suggestion doesn't fix it,
KM> please try to put together a minimal Org file and configuration that
KM> will reproduce the issue with emacs -Q.
KM> -- Kyle
--
Samuel W. Flint
4096R/266596F4
(9477 D23E 389E 40C5 2F10 DE19 68E5 318E 2665 96F4)
(λs.s s) λs.s s
[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 818 bytes --]
^ permalink raw reply [flat|nested] 6+ messages in thread
end of thread, other threads:[~2015-11-12 19:18 UTC | newest]
Thread overview: 6+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2015-11-12 17:24 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/)] Samuel W. Flint
2015-11-12 17:36 ` 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
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).