babel: remove all language file reference to define language variables

This commit is contained in:
Eric Schulte 2010-06-17 09:44:25 -07:00
parent 9ae48928ca
commit 97ead27f78
23 changed files with 0 additions and 98 deletions

View File

@ -92,14 +92,6 @@
;;; major mode for editing Oz programs ;;; major mode for editing Oz programs
(require 'mozart) (require 'mozart)
;; Add Oz to the list of supported languages. Org-babel will match
;; the string below against the declared language of the source-code
;; block.
(org-babel-add-interpreter "oz")
;; specify the name and file extension for Oz
(add-to-list 'org-babel-tangle-langs '("oz" "oz" nil nil))
;; ;;
;; Interface to communicate with Oz. ;; Interface to communicate with Oz.
;; (1) For statements without any results: oz-send-string ;; (1) For statements without any results: oz-send-string

View File

@ -36,12 +36,6 @@
(require 'ob) (require 'ob)
(require 'cc-mode) (require 'cc-mode)
(org-babel-add-interpreter "C")
(add-to-list 'org-babel-tangle-langs '("C" "c" nil))
(org-babel-add-interpreter "c++")
(add-to-list 'org-babel-tangle-langs '("c++" "cpp" nil))
(defvar org-babel-C-compiler "gcc" (defvar org-babel-C-compiler "gcc"
"Command used to compile a C source code file into an "Command used to compile a C source code file into an
executable.") executable.")

View File

@ -31,10 +31,6 @@
;;; Code: ;;; Code:
(require 'ob) (require 'ob)
(org-babel-add-interpreter "R")
(add-to-list 'org-babel-tangle-langs '("R" "R" "#!/usr/bin/env Rscript"))
(defconst org-babel-header-arg-names:R (defconst org-babel-header-arg-names:R
'(width height bg units pointsize antialias quality compression '(width height bg units pointsize antialias quality compression
res type family title fonts version paper encoding res type family title fonts version paper encoding

View File

@ -47,10 +47,6 @@
;;; Code: ;;; Code:
(require 'ob) (require 'ob)
(org-babel-add-interpreter "asymptote")
(add-to-list 'org-babel-tangle-langs '("asymptote" "asymptote"))
(defvar org-babel-default-header-args:asymptote (defvar org-babel-default-header-args:asymptote
'((:results . "file") (:exports . "results")) '((:results . "file") (:exports . "results"))
"Default arguments to use when evaluating a asymptote source block.") "Default arguments to use when evaluating a asymptote source block.")

View File

@ -45,11 +45,6 @@
(require 'slime) (require 'slime)
(require 'swank-clojure) (require 'swank-clojure)
(org-babel-add-interpreter "clojure")
(add-to-list 'org-babel-tangle-langs '("clojure" "clj"))
(defvar org-babel-clojure-wrapper-method (defvar org-babel-clojure-wrapper-method
" "
(defn spit (defn spit

View File

@ -32,10 +32,6 @@
;;; Code: ;;; Code:
(require 'ob) (require 'ob)
(org-babel-add-interpreter "css")
(add-to-list 'org-babel-tangle-langs '("css" "css" nil t))
(defun org-babel-expand-body:css (body params &optional processed-params) (defun org-babel-expand-body:css (body params &optional processed-params)
"Expand BODY according to PARAMS, return the expanded body." body) "Expand BODY according to PARAMS, return the expanded body." body)

View File

@ -41,10 +41,6 @@
;;; Code: ;;; Code:
(require 'ob) (require 'ob)
(org-babel-add-interpreter "ditaa")
(add-to-list 'org-babel-tangle-langs '("ditaa" "ditaa"))
(defvar org-babel-default-header-args:ditaa (defvar org-babel-default-header-args:ditaa
'((:results . "file") (:exports . "results")) '((:results . "file") (:exports . "results"))
"Default arguments to use when evaluating a ditaa source block.") "Default arguments to use when evaluating a ditaa source block.")

View File

@ -43,10 +43,6 @@
;;; Code: ;;; Code:
(require 'ob) (require 'ob)
(org-babel-add-interpreter "dot")
(add-to-list 'org-babel-tangle-langs '("dot" "dot"))
(defvar org-babel-default-header-args:dot '((:results . "file") (:exports . "results")) (defvar org-babel-default-header-args:dot '((:results . "file") (:exports . "results"))
"Default arguments to use when evaluating a dot source block.") "Default arguments to use when evaluating a dot source block.")

View File

@ -31,10 +31,6 @@
;;; Code: ;;; Code:
(require 'ob) (require 'ob)
(org-babel-add-interpreter "emacs-lisp")
(add-to-list 'org-babel-tangle-langs '("emacs-lisp" "el"))
(defvar org-babel-default-header-args:emacs-lisp (defvar org-babel-default-header-args:emacs-lisp
'((:hlines . "yes") (:colnames . "no")) '((:hlines . "yes") (:colnames . "no"))
"Default arguments to use when evaluating an emacs-lisp source block.") "Default arguments to use when evaluating an emacs-lisp source block.")

View File

@ -44,10 +44,6 @@
(require 'ob) (require 'ob)
(require 'gnuplot) (require 'gnuplot)
(org-babel-add-interpreter "gnuplot")
(add-to-list 'org-babel-tangle-langs '("gnuplot" "gnuplot"))
(defvar org-babel-default-header-args:gnuplot (defvar org-babel-default-header-args:gnuplot
'((:results . "file") (:exports . "results") (:session . nil)) '((:results . "file") (:exports . "results") (:session . nil))
"Default arguments to use when evaluating a gnuplot source block.") "Default arguments to use when evaluating a gnuplot source block.")

View File

@ -46,10 +46,6 @@
(require 'haskell-mode) (require 'haskell-mode)
(require 'inf-haskell) (require 'inf-haskell)
(org-babel-add-interpreter "haskell")
(add-to-list 'org-babel-tangle-langs '("haskell" "hs"))
(defvar org-babel-haskell-lhs2tex-command "lhs2tex") (defvar org-babel-haskell-lhs2tex-command "lhs2tex")
(defvar org-babel-haskell-eoe "\"org-babel-haskell-eoe\"") (defvar org-babel-haskell-eoe "\"org-babel-haskell-eoe\"")

View File

@ -35,10 +35,6 @@
;;; Code: ;;; Code:
(require 'ob) (require 'ob)
(org-babel-add-interpreter "latex")
(add-to-list 'org-babel-tangle-langs '("latex" "tex"))
(defvar org-babel-default-header-args:latex (defvar org-babel-default-header-args:latex
'((:results . "latex") (:exports . "results")) '((:results . "latex") (:exports . "results"))
"Default arguments to use when evaluating a latex source block.") "Default arguments to use when evaluating a latex source block.")

View File

@ -41,10 +41,6 @@
(require 'matlab) (require 'matlab)
(require 'ob-octave) (require 'ob-octave)
(org-babel-add-interpreter "matlab")
(add-to-list 'org-babel-tangle-langs '("matlab" "m" "#!/usr/bin/env matlab"))
(defvar org-babel-matlab-shell-command "matlab -nosplash" (defvar org-babel-matlab-shell-command "matlab -nosplash"
"Shell command to use to run matlab as an external process.") "Shell command to use to run matlab as an external process.")

View File

@ -41,10 +41,6 @@
(require 'ob) (require 'ob)
(require 'tuareg) (require 'tuareg)
(org-babel-add-interpreter "ocaml")
(add-to-list 'org-babel-tangle-langs '("ocaml" "ml"))
(defvar org-babel-ocaml-eoe-indicator "\"org-babel-ocaml-eoe\";;") (defvar org-babel-ocaml-eoe-indicator "\"org-babel-ocaml-eoe\";;")
(defvar org-babel-ocaml-eoe-output "org-babel-ocaml-eoe") (defvar org-babel-ocaml-eoe-output "org-babel-ocaml-eoe")

View File

@ -35,9 +35,6 @@
(require 'ob) (require 'ob)
(require 'octave-inf) (require 'octave-inf)
(org-babel-add-interpreter "octave")
(add-to-list 'org-babel-tangle-langs '("octave" "m" "#!/usr/bin/env octave"))
(defvar org-babel-octave-shell-command "octave -q" (defvar org-babel-octave-shell-command "octave -q"
"Shell command to use to run octave as an external process.") "Shell command to use to run octave as an external process.")

View File

@ -31,10 +31,6 @@
;;; Code: ;;; Code:
(require 'ob) (require 'ob)
(org-babel-add-interpreter "perl")
(add-to-list 'org-babel-tangle-langs '("perl" "pl" "#!/usr/bin/env perl"))
(defun org-babel-expand-body:perl (body params &optional processed-params) (defun org-babel-expand-body:perl (body params &optional processed-params)
"Expand BODY according to PARAMS, return the expanded body." "Expand BODY according to PARAMS, return the expanded body."
(let ((vars (second (or processed-params (org-babel-process-params params))))) (let ((vars (second (or processed-params (org-babel-process-params params)))))

View File

@ -34,10 +34,6 @@
(require 'ob-comint) (require 'ob-comint)
(require (if (featurep 'xemacs) 'python-mode 'python)) (require (if (featurep 'xemacs) 'python-mode 'python))
(org-babel-add-interpreter "python")
(add-to-list 'org-babel-tangle-langs '("python" "py" "#!/usr/bin/env python"))
(defun org-babel-expand-body:python (body params &optional processed-params) (defun org-babel-expand-body:python (body params &optional processed-params)
"Expand BODY according to PARAMS, return the expanded body." "Expand BODY according to PARAMS, return the expanded body."
(concat (concat

View File

@ -42,10 +42,6 @@
(require 'ob) (require 'ob)
(require 'inf-ruby) (require 'inf-ruby)
(org-babel-add-interpreter "ruby")
(add-to-list 'org-babel-tangle-langs '("ruby" "rb" "#!/usr/bin/env ruby"))
(defun org-babel-expand-body:ruby (body params &optional processed-params) (defun org-babel-expand-body:ruby (body params &optional processed-params)
"Expand BODY according to PARAMS, return the expanded body." "Expand BODY according to PARAMS, return the expanded body."
(let ((vars (second (or processed-params (org-babel-process-params params))))) (let ((vars (second (or processed-params (org-babel-process-params params)))))

View File

@ -44,10 +44,6 @@
(require 'ob) (require 'ob)
(require 'sass-mode) (require 'sass-mode)
(org-babel-add-interpreter "sass")
(add-to-list 'org-babel-tangle-langs '("sass" "sass"))
(defun org-babel-expand-body:sass (body params &optional processed-params) (defun org-babel-expand-body:sass (body params &optional processed-params)
"Expand BODY according to PARAMS, return the expanded body." body) "Expand BODY according to PARAMS, return the expanded body." body)

View File

@ -38,10 +38,6 @@
;;; Code: ;;; Code:
(require 'ob) (require 'ob)
(org-babel-add-interpreter "screen")
(add-to-list 'org-src-lang-modes '("screen" . sh))
(defvar org-babel-screen-location "screen" (defvar org-babel-screen-location "screen"
"The command location for screen. "The command location for screen.
In case you want to use a different screen than one selected by your $PATH") In case you want to use a different screen than one selected by your $PATH")

View File

@ -41,10 +41,6 @@
(declare-function org-babel-comint-with-output "ob-comint" (meta &rest body)) (declare-function org-babel-comint-with-output "ob-comint" (meta &rest body))
(declare-function orgtbl-to-generic "org-table" (table params)) (declare-function orgtbl-to-generic "org-table" (table params))
(org-babel-add-interpreter "sh")
(add-to-list 'org-babel-tangle-langs '("sh" "sh" "#!/usr/bin/env sh"))
(defvar org-babel-sh-command "sh" (defvar org-babel-sh-command "sh"
"Command used to invoke a shell. This will be passed to "Command used to invoke a shell. This will be passed to
`shell-command-on-region'") `shell-command-on-region'")

View File

@ -47,10 +47,6 @@
;;; Code: ;;; Code:
(require 'ob) (require 'ob)
(org-babel-add-interpreter "sql")
(add-to-list 'org-babel-tangle-langs '("sql" "sql"))
(defun org-babel-expand-body:sql (body params &optional processed-params) (defun org-babel-expand-body:sql (body params &optional processed-params)
"Expand BODY according to PARAMS, return the expanded body." body) "Expand BODY according to PARAMS, return the expanded body." body)

View File

@ -31,10 +31,6 @@
;;; Code: ;;; Code:
(require 'ob) (require 'ob)
(org-babel-add-interpreter "sqlite")
(add-to-list 'org-babel-tangle-langs '("sqlite" "sqlite"))
(defun org-babel-expand-body:sqlite (defun org-babel-expand-body:sqlite
(body params &optional processed-params) body) (body params &optional processed-params) body)