From 8d4a88b8d96fa70e12be58b5e294cb2d3e8b0c0c Mon Sep 17 00:00:00 2001 From: Bastien Date: Tue, 28 Sep 2021 07:03:53 +0200 Subject: [PATCH] lisp/ob-stan.el: Delete * lisp/ob-stan.el: Delete. ob-stan.el has been move to https://git.sr.ht/~bzg/org-contrib and will be maintained on https://git.kyleam.com/ob-stan in the future. --- etc/ORG-NEWS | 21 ++++++------ lisp/ob-stan.el | 86 ------------------------------------------------- 2 files changed, 11 insertions(+), 96 deletions(-) delete mode 100644 lisp/ob-stan.el diff --git a/etc/ORG-NEWS b/etc/ORG-NEWS index 42a142474..b0a893946 100644 --- a/etc/ORG-NEWS +++ b/etc/ORG-NEWS @@ -70,18 +70,19 @@ effect. Please set ~org-speed-commands~ instead, which see. These files have been moved to https://git.sr.ht/~bzg/org-contrib: -- ob-vala.el -- ob-shen.el -- ob-picolisp.el -- ob-mscgen.el -- ob-ledger.el -- ob-io.el -- ob-hledger.el -- ob-ebnf.el -- ob-coq.el -- ob-asymptote.el - ob-abc.el +- ob-asymptote.el +- ob-coq.el +- ob-ebnf.el +- ob-hledger.el +- ob-io.el - ob-J.el +- ob-ledger.el +- ob-mscgen.el +- ob-picolisp.el +- ob-shen.el +- ob-stan.el +- ob-vala.el See the discussion [[msg::87bl9rq29m.fsf@gnu.org][here]]. diff --git a/lisp/ob-stan.el b/lisp/ob-stan.el deleted file mode 100644 index 1f2afdeed..000000000 --- a/lisp/ob-stan.el +++ /dev/null @@ -1,86 +0,0 @@ -;;; ob-stan.el --- Babel Functions for Stan -*- lexical-binding: t; -*- - -;; Copyright (C) 2015-2021 Free Software Foundation, Inc. - -;; Author: Kyle Meyer -;; Keywords: literate programming, reproducible research -;; Homepage: https://orgmode.org - -;; This file is part of GNU Emacs. - -;; GNU Emacs 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 of the License, or -;; (at your option) any later version. - -;; GNU Emacs 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. If not, see . - -;;; Commentary: - -;; Org-Babel support for evaluating Stan [1] source code. -;; -;; Evaluating a Stan block can produce two different results. -;; -;; 1) Dump the source code contents to a file. -;; -;; This file can then be used as a variable in other blocks, which -;; allows interfaces like RStan to use the model. -;; -;; 2) Compile the contents to a model file. -;; -;; This provides access to the CmdStan interface. To use this, set -;; `org-babel-stan-cmdstan-directory' and provide a :file argument -;; that does not end in ".stan". -;; -;; For more information and usage examples, visit -;; https://orgmode.org/worg/org-contrib/babel/languages/ob-doc-stan.html -;; -;; [1] https://mc-stan.org/ - -;;; Code: -(require 'ob) -(require 'org-compat) - -(defcustom org-babel-stan-cmdstan-directory nil - "CmdStan source directory. -Call \"make\" from this directory to compile the Stan block. -When nil, executing Stan blocks dumps the content to a file." - :group 'org-babel - :type '(choice - (directory :tag "Compilation directory") - (const :tag "Dump to a file" nil))) - -(defvar org-babel-default-header-args:stan - '((:results . "file"))) - -(defun org-babel-execute:stan (body params) - "Generate Stan file from BODY according to PARAMS. -A :file header argument must be given. If -`org-babel-stan-cmdstan-directory' is non-nil and the file name -does not have a \".stan\" extension, save an intermediate -\".stan\" file and compile the block to the named file. -Otherwise, write the Stan code directly to the named file." - (let ((file (expand-file-name - (or (cdr (assq :file params)) - (user-error "Set :file argument to execute Stan blocks"))))) - (if (or (not org-babel-stan-cmdstan-directory) - (string-match-p "\\.stan\\'" file)) - (with-temp-file file (insert body)) - (with-temp-file (concat file ".stan") (insert body)) - (let ((default-directory org-babel-stan-cmdstan-directory)) - (call-process-shell-command (concat "make " file)))) - nil)) ; Signal that output has been written to file. - -(defun org-babel-prep-session:stan (_session _params) - "Return an error because Stan does not support sessions." - (user-error "Stan does not support sessions")) - -(provide 'ob-stan) - -;;; ob-stan.el ends here