浏览代码

added support for CSS

Eric Schulte 16 年之前
父节点
当前提交
96c9696064
共有 3 个文件被更改,包括 55 次插入1 次删除
  1. 50 0
      lisp/langs/org-babel-css.el
  2. 1 0
      lisp/org-babel-init.el
  3. 4 1
      org-babel.org

+ 50 - 0
lisp/langs/org-babel-css.el

@@ -0,0 +1,50 @@
+;;; org-babel-css.el --- org-babel functions for css evaluation
+
+;; Copyright (C) 2009 Eric Schulte
+
+;; Author: Eric Schulte
+;; Keywords: literate programming, reproducible research
+;; Homepage: http://orgmode.org
+;; Version: 0.01
+
+;;; License:
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 3, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+;;; Commentary:
+
+;; Since CSS can't be executed, this file exists solely for tangling
+;; CSS from org-mode files.
+
+;;; Code:
+(require 'org-babel)
+
+(org-babel-add-interpreter "css")
+
+(add-to-list 'org-babel-tangle-langs '("css" "css"))
+
+(defun org-babel-execute:css (body params)
+  "Execute a block of CSS code with org-babel.  This function is
+called by `org-babel-execute-src-block' via multiple-value-bind."
+  (message "executing CSS source code block")
+  body)
+
+(defun org-babel-prep-session:css (session params)
+  "Prepare SESSION according to the header arguments specified in PARAMS."
+  (error "CSS sessions are nonsensical"))
+
+(provide 'org-babel-css)
+;;; org-babel-css.el ends here

+ 1 - 0
lisp/org-babel-init.el

@@ -66,6 +66,7 @@
 (require 'org-babel-dot)
 (require 'org-babel-asymptote)
 (require 'org-babel-sql)
+(require 'org-babel-css)
 
 ;; load the library of babel
 (org-babel-lob-ingest (expand-file-name

+ 4 - 1
org-babel.org

@@ -2506,7 +2506,7 @@ This is currently working only with emacs lisp as in the following
 example in the [[* emacs lisp source reference][emacs lisp source reference]].
 
 
-** TODO Add languages [9/12]
+** TODO Add languages [10/13]
 I'm sure there are many more that aren't listed here.  Please add
 them, and bubble any that you particularly care about up to the top.
 
@@ -2534,6 +2534,9 @@ Things left to do
 | "information_schema" |
 | "test"               |
 
+*** DONE CSS
+trivial [[file:lisp/langs/org-babel-css.el][org-babel-css.el]]
+
 *** DONE ditaa
 (see [[* file result types][file result types]])