From ffbeb7ffe6696e10f3e5b2968a7234e8c8e8db26 Mon Sep 17 00:00:00 2001
From: Eric Schulte <schulte.eric@gmail.com>
Date: Thu, 17 Jun 2010 10:21:14 -0700
Subject: [PATCH] babel: languages adding their extensions to
 `'org-babel-tangle-lang-exts'

---
 lisp/babel/langs/ob-C.el         | 2 ++
 lisp/babel/langs/ob-asymptote.el | 2 ++
 lisp/babel/langs/ob-clojure.el   | 2 ++
 lisp/babel/langs/ob-haskell.el   | 2 ++
 lisp/babel/langs/ob-latex.el     | 2 ++
 lisp/babel/langs/ob-ocaml.el     | 2 ++
 lisp/babel/langs/ob-perl.el      | 2 ++
 lisp/babel/langs/ob-python.el    | 2 ++
 lisp/babel/langs/ob-ruby.el      | 2 ++
 9 files changed, 18 insertions(+)

diff --git a/lisp/babel/langs/ob-C.el b/lisp/babel/langs/ob-C.el
index 0feee6c50..75f7b0b72 100644
--- a/lisp/babel/langs/ob-C.el
+++ b/lisp/babel/langs/ob-C.el
@@ -36,6 +36,8 @@
 (require 'ob)
 (require 'cc-mode)
 
+(add-to-list 'org-babel-tangle-lang-exts '("c++" . "cpp"))
+
 (defvar org-babel-C-compiler "gcc"
   "Command used to compile a C source code file into an
   executable.")
diff --git a/lisp/babel/langs/ob-asymptote.el b/lisp/babel/langs/ob-asymptote.el
index 53b42bfd4..ecc062953 100644
--- a/lisp/babel/langs/ob-asymptote.el
+++ b/lisp/babel/langs/ob-asymptote.el
@@ -47,6 +47,8 @@
 ;;; Code:
 (require 'ob)
 
+(add-to-list 'org-babel-tangle-lang-exts '("asymptote" . "asy"))
+
 (defvar org-babel-default-header-args:asymptote
   '((:results . "file") (:exports . "results"))
   "Default arguments to use when evaluating a asymptote source block.")
diff --git a/lisp/babel/langs/ob-clojure.el b/lisp/babel/langs/ob-clojure.el
index 1a2af9428..029090148 100644
--- a/lisp/babel/langs/ob-clojure.el
+++ b/lisp/babel/langs/ob-clojure.el
@@ -45,6 +45,8 @@
 (require 'slime)
 (require 'swank-clojure)
 
+(add-to-list 'org-babel-tangle-lang-exts '("clojure" . "clj"))
+
 (defvar org-babel-clojure-wrapper-method
   "
 (defn spit
diff --git a/lisp/babel/langs/ob-haskell.el b/lisp/babel/langs/ob-haskell.el
index d35ab2be8..959073df2 100644
--- a/lisp/babel/langs/ob-haskell.el
+++ b/lisp/babel/langs/ob-haskell.el
@@ -46,6 +46,8 @@
 (require 'haskell-mode)
 (require 'inf-haskell)
 
+(add-to-list 'org-babel-tangle-lang-exts '("haskell" . "hs"))
+
 (defvar org-babel-haskell-lhs2tex-command "lhs2tex")
 
 (defvar org-babel-haskell-eoe "\"org-babel-haskell-eoe\"")
diff --git a/lisp/babel/langs/ob-latex.el b/lisp/babel/langs/ob-latex.el
index b6353bf6b..3526d86d2 100644
--- a/lisp/babel/langs/ob-latex.el
+++ b/lisp/babel/langs/ob-latex.el
@@ -35,6 +35,8 @@
 ;;; Code:
 (require 'ob)
 
+(add-to-list 'org-babel-tangle-lang-exts '("latex" . "tex"))
+
 (defvar org-babel-default-header-args:latex
   '((:results . "latex") (:exports . "results"))
   "Default arguments to use when evaluating a latex source block.")
diff --git a/lisp/babel/langs/ob-ocaml.el b/lisp/babel/langs/ob-ocaml.el
index 7284cf970..6ed8457a8 100644
--- a/lisp/babel/langs/ob-ocaml.el
+++ b/lisp/babel/langs/ob-ocaml.el
@@ -41,6 +41,8 @@
 (require 'ob)
 (require 'tuareg)
 
+(add-to-list 'org-babel-tangle-lang-exts '("ocaml" . "ml"))
+
 (defvar org-babel-ocaml-eoe-indicator "\"org-babel-ocaml-eoe\";;")
 (defvar org-babel-ocaml-eoe-output "org-babel-ocaml-eoe")
 
diff --git a/lisp/babel/langs/ob-perl.el b/lisp/babel/langs/ob-perl.el
index 1ac7b9479..fcb84f392 100644
--- a/lisp/babel/langs/ob-perl.el
+++ b/lisp/babel/langs/ob-perl.el
@@ -31,6 +31,8 @@
 ;;; Code:
 (require 'ob)
 
+(add-to-list 'org-babel-tangle-lang-exts '("perl" . "pl"))
+
 (defun org-babel-expand-body:perl (body params &optional processed-params)
   "Expand BODY according to PARAMS, return the expanded body."
   (let ((vars (second (or processed-params (org-babel-process-params params)))))
diff --git a/lisp/babel/langs/ob-python.el b/lisp/babel/langs/ob-python.el
index 4f3a65acd..48953adf9 100644
--- a/lisp/babel/langs/ob-python.el
+++ b/lisp/babel/langs/ob-python.el
@@ -34,6 +34,8 @@
 (require 'ob-comint)
 (require (if (featurep 'xemacs) 'python-mode 'python))
 
+(add-to-list 'org-babel-tangle-lang-exts '("python" . "py"))
+
 (defun org-babel-expand-body:python (body params &optional processed-params)
   "Expand BODY according to PARAMS, return the expanded body."
   (concat
diff --git a/lisp/babel/langs/ob-ruby.el b/lisp/babel/langs/ob-ruby.el
index 0b7db58ee..c7ff56f92 100644
--- a/lisp/babel/langs/ob-ruby.el
+++ b/lisp/babel/langs/ob-ruby.el
@@ -42,6 +42,8 @@
 (require 'ob)
 (require 'inf-ruby)
 
+(add-to-list 'org-babel-tangle-lang-exts '("ruby" . "rb"))
+
 (defun org-babel-expand-body:ruby (body params &optional processed-params)
   "Expand BODY according to PARAMS, return the expanded body."
   (let ((vars (second (or processed-params (org-babel-process-params params)))))
-- 
2.11.4.GIT