Browse Source

babel: remove all language file reference to define language variables

Eric Schulte 15 years ago
parent
commit
97ead27f78

+ 0 - 8
contrib/babel/langs/ob-oz.el

@@ -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 

+ 0 - 6
lisp/babel/langs/ob-C.el

@@ -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.")

+ 0 - 4
lisp/babel/langs/ob-R.el

@@ -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

+ 0 - 4
lisp/babel/langs/ob-asymptote.el

@@ -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.")

+ 0 - 5
lisp/babel/langs/ob-clojure.el

@@ -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

+ 0 - 4
lisp/babel/langs/ob-css.el

@@ -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)
 
 

+ 0 - 4
lisp/babel/langs/ob-ditaa.el

@@ -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.")

+ 0 - 4
lisp/babel/langs/ob-dot.el

@@ -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.")
 
 

+ 0 - 4
lisp/babel/langs/ob-emacs-lisp.el

@@ -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.")

+ 0 - 4
lisp/babel/langs/ob-gnuplot.el

@@ -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.")

+ 0 - 4
lisp/babel/langs/ob-haskell.el

@@ -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\"")

+ 0 - 4
lisp/babel/langs/ob-latex.el

@@ -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.")

+ 0 - 4
lisp/babel/langs/ob-matlab.el

@@ -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.")
 
 

+ 0 - 4
lisp/babel/langs/ob-ocaml.el

@@ -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")
 
 

+ 0 - 3
lisp/babel/langs/ob-octave.el

@@ -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.")
 
 

+ 0 - 4
lisp/babel/langs/ob-perl.el

@@ -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)))))

+ 0 - 4
lisp/babel/langs/ob-python.el

@@ -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

+ 0 - 4
lisp/babel/langs/ob-ruby.el

@@ -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)))))

+ 0 - 4
lisp/babel/langs/ob-sass.el

@@ -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)
 
 

+ 0 - 4
lisp/babel/langs/ob-screen.el

@@ -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")

+ 0 - 4
lisp/babel/langs/ob-sh.el

@@ -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'")

+ 0 - 4
lisp/babel/langs/ob-sql.el

@@ -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)
 
 

+ 0 - 4
lisp/babel/langs/ob-sqlite.el

@@ -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)