ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

contrib/lisp/ob-sclang.el: Don't use lexical-binding 

* contrib/lisp/ob-sclang.el: Don't use lexical-binding.
Fix copyright year.
(org-babel-execute:sclang): Remove commented code.
This commit is contained in:
Bastien 2017-06-17 12:53:34 +02:00
parent 4030b7b907
commit a023d670ec
1 changed files with 5 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
contrib/lisp/ob-sclang.el
View File

@ -1,7 +1,7 @@
;;; ob-sclang.el --- SCLang support for Org-mode Babel -*- lexical-binding: t; -*- ;;; ob-sclang.el --- SCLang support for Org-mode Babel
;;; -*- coding: utf-8 -*- ;;; -*- coding: utf-8 -*-
;; Copyright (C) 2011-2017 Free Software Foundation, Inc. ;; Copyright (C) 2017 Free Software Foundation, Inc.
;; Authors: stardiviner <numbchild@gmail.com> ;; Authors: stardiviner <numbchild@gmail.com>
;; Package-Version: 0.1 ;; Package-Version: 0.1
@ -72,24 +72,14 @@
(unless (or (equal (buffer-name) sclang-post-buffer) (unless (or (equal (buffer-name) sclang-post-buffer)
(sclang-get-process)) (sclang-get-process))
(sclang-start)) (sclang-start))
(sclang-eval-string body t))
;; (let* ((db (or (cdr (assoc :db params))
;; ob-mongo:default-db))
;; (cmd (mapconcat 'identity (list "mongo" "--quiet" db) " ")))
;; (org-babel-eval cmd body))
(sclang-eval-string body t)
;; (let ((cmd "sclang -r -s -D"))
;; (org-babel-eval cmd body))
)
(defvar org-babel-default-header-args:sclang nil) (defvar org-babel-default-header-args:sclang nil)
(setq org-babel-default-header-args:sclang (setq org-babel-default-header-args:sclang
'((:session . "*SCLang:Workspace*") '((:session . "*SCLang:Workspace*")
(:output . "none")) ; TODO: temporary can't find way to let sclang output to stdout for org-babel. ;; TODO: temporary can't find way to let sclang output to stdout for org-babel.
) (:output . "none")))
;;;###autoload ;;;###autoload
(with-eval-after-load "org" (with-eval-after-load "org"