Remove obsolete filesrelease_0.5

See https://list.orgmode.org/87r0hj9klw.fsf@localhost/

Suggested-by: Ihor Radchenko <yantar92@posteo.net>

4 files changed, 0 insertions, 417 deletions

diff --git a/README.md b/README.md
index 32ca574..775a7f1 100644
--- a/README.md
+++ b/README.md
@@ -57,8 +57,6 @@ minor or major release.
 -   **org-depend.el:** TODO dependencies for Org-mode
 -   **org-effectiveness.el:** Measuring your personal effectiveness
 -   **org-eldoc.el:** Eldoc documentation for SRC blocks
--   **org-eval.el:** The <lisp> tag, adapted from Muse
--   **org-eval-light.el:** Evaluate in-buffer code on demand
 -   **org-expiry.el:** Expiry mechanism for Org entries
 -   **org-git-link.el:** Provide org links to specific file version
 -   **org-interactive-query.el:** Interactive modification of tags query
diff --git a/README.org b/README.org
index f675fcd..43cd2a3 100644
--- a/README.org
+++ b/README.org
@@ -50,8 +50,6 @@ minor or major release.
 - org-depend.el :: TODO dependencies for Org-mode
 - org-effectiveness.el :: Measuring your personal effectiveness
 - org-eldoc.el :: Eldoc documentation for SRC blocks
-- org-eval.el :: The <lisp> tag, adapted from Muse
-- org-eval-light.el :: Evaluate in-buffer code on demand
 - org-expiry.el :: Expiry mechanism for Org entries
 - org-git-link.el :: Provide org links to specific file version
 - org-interactive-query.el :: Interactive modification of tags query
diff --git a/lisp/org-eval-light.el b/lisp/org-eval-light.el
deleted file mode 100644
index cb82528..0000000
--- a/lisp/org-eval-light.el
+++ /dev/null
@@ -1,197 +0,0 @@
-;;; org-eval-light.el --- Display result of evaluating code in various languages (light)  -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2008-2021 Free Software Foundation, Inc.
-
-;; Author: Carsten Dominik <carsten.dominik@gmail.com>,
-;;         Eric Schulte <schulte dot eric at gmail dot com>
-;; Keywords: outlines, hypermedia, calendar, wp, literate programming,
-;;           reproducible research
-;; Homepage: https://git.sr.ht/~bzg/org-contrib
-;; Version: 0.04
-
-;; This file is not part of GNU Emacs.
-
-;; 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.  If not, see <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; This file is based off of org-eval, with the following changes.
-;;
-;; 1) forms are only executed manually, (allowing for the execution of
-;;    an entire subtree of forms)
-;; 2) use the org-mode style src blocks, rather than the muse style
-;;    <code></code> blocks
-;; 3) forms are not replaced by their outputs, but rather the output
-;;    is placed in the buffer immediately following the src block
-;;    commented by `org-eval-light-make-region-example' (when
-;;    evaluated with a prefix argument no output is placed in the
-;;    buffer)
-;; 4) add defadvice to org-ctrl-c-ctrl-c so that when called inside of
-;;    a source block it will call `org-eval-light-current-snippet'
-
-;;; Code:
-(require 'org)
-
-(defgroup org-eval-light nil
-  "Options concerning including output from commands into the Org-mode buffer."
-  :tag "Org Eval"
-  :group 'org)
-
-(defvar org-eval-light-example-size-cutoff 10
-  "The number of lines under which an example is considered \"small\".
-Small examples are exported with the `^:' fixed width syntax instead
-of in a large example block.")
-
-(defvar org-eval-light-regexp nil)
-
-(defun org-eval-light-set-interpreters (var value)
-  (set-default var value)
-  (setq org-eval-light-regexp
-	(concat "#\\+begin_src \\("
-		(mapconcat 'regexp-quote value "\\|")
-		"\\)\\([^\000]+?\\)#\\+end_src")))
-
-(defcustom org-eval-light-interpreters '("lisp" "emacs-lisp" "ruby" "shell")
-  "Interpreters allows for evaluation tags.
-This is a list of program names (as strings) that can evaluate code and
-insert the output into an Org-mode buffer.  Valid choices are
-
-lisp    Interpret Emacs Lisp code and display the result
-shell   Pass command to the shell and display the result
-perl    The perl interpreter
-python  Thy python interpreter
-ruby    The ruby interpreter"
-  :group 'org-eval-light
-  :set 'org-eval-light-set-interpreters
-  :type '(set :greedy t
-	      (const "lisp")
-	      (const "emacs-lisp")
-	      (const "perl")
-	      (const "python")
-	      (const "ruby")
-	      (const "shell")))
-
-;;; functions
-(defun org-eval-light-inside-snippet ()
-  (interactive)
-  (save-excursion
-    (let ((case-fold-search t)
-	  (start-re "^#\\+begin_src\\( \\([^ \t\n]+\\)\\)?.*\n")
-	  (end-re "\n#\\+end_src")
-	  (pos (point))
-	  beg end)
-      (if (and (setq beg (re-search-backward start-re nil t))
-	       (setq end (re-search-forward end-re nil t))
-	       (<= beg pos) (>= end pos))
-	  t))))
-
-(defun org-eval-light-make-region-example (beg end)
-  "Comment out region using either the '^:' or the BEGIN_EXAMPLE
-syntax based on the size of the region as compared to
-`org-eval-light-example-size-cutoff'."
-  (interactive "*r")
-  (let ((size (abs (- (line-number-at-pos end)
-		      (line-number-at-pos beg)))))
-    (if (= size 0)
-	(let ((result (buffer-substring beg end)))
-	  (delete-region beg end)
-	  (insert (concat ": " result)))
-      (if (<= size org-eval-light-example-size-cutoff)
-	  (save-excursion
-	    (goto-char beg)
-	    (dotimes (_ size)
-	      (move-beginning-of-line 1) (insert ": ") (forward-line 1)))
-	(let ((result (buffer-substring beg end)))
-	  (delete-region beg end)
-	  (insert (concat "#+BEGIN_EXAMPLE\n" result "#+END_EXAMPLE\n")))))))
-
-(defun org-eval-light-current-snippet (&optional arg)
-  "Execute the current #+begin_src #+end_src block, and dump the
-results into the buffer immediately following the src block,
-commented by `org-eval-light-make-region-example'."
-  (interactive "P")
-  (let ((line (org-current-line))
-	(case-fold-search t)
-        (src-block (org-element-at-point))
-	lang result)
-    (setq lang (org-element-property :language src-block))
-    (unless (member lang org-eval-light-interpreters)
-      (error "Language is not in `org-eval-light-interpreters': %s" lang))
-    (org-goto-line line)
-    (setq result (org-eval-light-code lang (org-element-property :value src-block)))
-    (unless arg
-      (save-excursion
-	(re-search-forward "^#\\+end_src" nil t) (open-line 1) (forward-char 2)
-	(let ((beg (point))
-	      (end (progn (insert result)
-			  (point))))
-	  (message (format "from %S %S" beg end))
-	  (org-eval-light-make-region-example beg end))))))
-
-(defun org-eval-light-eval-subtree (&optional arg)
-  "Replace EVAL snippets in the entire subtree."
-  (interactive "P")
-  (save-excursion
-    (org-narrow-to-subtree)
-    (goto-char (point-min))
-    (while (re-search-forward org-eval-light-regexp nil t)
-      (org-eval-light-current-snippet arg))
-    (widen)))
-
-(defun org-eval-light-code (interpreter code)
-  (cond
-   ((member interpreter '("lisp" "emacs-lisp"))
-    (org-eval-light-lisp (concat "(progn\n" code "\n)")))
-   ((equal interpreter "shell")
-    (shell-command-to-string code))
-   ((member interpreter '("perl" "python" "ruby"))
-    (org-eval-light-run (executable-find interpreter) code))
-   (t (error "Cannot evaluate code type %s" interpreter))))
-
-(defun org-eval-light-lisp (form)
-  "Evaluate the given form and return the result as a string."
-  (require 'pp)
-  (save-match-data
-    (condition-case err
-        (let ((object (eval (read form))))
-          (cond
-           ((stringp object) object)
-           ((and (listp object)
-                 (not (eq object nil)))
-            (let ((string (pp-to-string object)))
-              (substring string 0 (1- (length string)))))
-           ((numberp object)
-            (number-to-string object))
-           ((eq object nil) "")
-           (t
-            (pp-to-string object))))
-      (error
-       (org-display-warning (format "%s: Error evaluating %s: %s"
-                                     "???" form err))
-       "; INVALID LISP CODE"))))
-
-(defun org-eval-light-run (cmd code)
-  (with-temp-buffer
-    (insert code)
-    (shell-command-on-region (point-min) (point-max) cmd nil 'replace)
-    (buffer-string)))
-
-(define-advice org-ctrl-c-ctrl-c (:around (fun &rest args) org-cc-eval-source)
-  (if (org-eval-light-inside-snippet)
-      (call-interactively 'org-eval-light-current-snippet)
-    (apply fun args)))
-
-(provide 'org-eval-light)
-
-;;; org-eval-light.el ends here
diff --git a/lisp/org-eval.el b/lisp/org-eval.el
deleted file mode 100644
index 4044f76..0000000
--- a/lisp/org-eval.el
+++ /dev/null
@@ -1,216 +0,0 @@
-;;; org-eval.el --- Display result of evaluating code in various languages  -*- lexical-binding: t; -*-
-;; Copyright (C) 2008-2021 Free Software Foundation, Inc.
-;;
-;; Author: Carsten Dominik <carsten.dominik@gmail.com>
-;; Keywords: outlines, hypermedia, calendar, wp
-;; Homepage: https://git.sr.ht/~bzg/org-contrib
-;; Version: 0.04
-;;
-;; This file is not part of GNU Emacs.
-;;
-;; 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.  If not, see <https://www.gnu.org/licenses/>.
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;
-;;; Commentary:
-;;
-;; This modules allows to include output from various commands into an
-;; Org-mode buffer, both for live display, and for export.
-;; This technique has been copied from emacs-wiki and Emacs Muse, and
-;; we try to make it work here in a way as similar as possible to
-;; Muse, so that people who move between both worlds don't need to learn
-;; new syntax.
-;;
-;; Basically it works like this:
-;;
-;;    <lisp>(concat "aaa" "bbb")</lisp>
-;;
-;; will display "aaabbb" in the buffer and export like that as well.
-;; The leading lisp tag will also accept the attributes "markup" and
-;; "lang", to specify how the text should be formatted during export.
-;; For example,
-;;
-;;    <lisp markup="src" lang="emacs-lisp"> .... </lisp>
-;;
-;; will format the result of the lisp form as if it was lisp source
-;; code.  Internally, it will wrap the text into a
-;;
-;;    #+begin_src emacs-lisp
-;;    #+end_src
-;;
-;; structure so that the right things happen when the exporter is running.
-;;
-;; By default, only the <lisp> tag is turned on, but you can configure
-;; the variable `org-eval-interpreters' to add more interpreters like
-;; `perl', `python', or the `shell'.
-;;
-;; You can edit the code snippets with "C-c '" (org-edit-src-code).
-;;
-;; Please note that this mechanism is potentially dangerous, because it
-;; executes code that you don't even see.  This gives you great power,
-;; but also enough rope to hang yourself.  And, it gives your friends
-;; who send you Org files plenty of opportunity for good and bad jokes.
-;; This is also why this module is not turned on by default, but only
-;; available as a contributed package.
-;;
-;;
-;;
-(require 'org)
-
-;;; Customization
-
-(defgroup org-eval nil
-  "Options concerning including output from commands into the Org-mode buffer."
-  :tag "Org Eval"
-  :group 'org)
-
-(defface org-eval
-  (org-compatible-face nil
-    '((((class color grayscale) (min-colors 88) (background light))
-       (:foreground "grey40"))
-      (((class color grayscale) (min-colors 88) (background dark))
-       (:foreground "grey60"))
-      (((class color) (min-colors 8) (background light))
-       (:foreground "green"))
-      (((class color) (min-colors 8) (background dark))
-       (:foreground "yellow"))))
-  "Face for command output that is included into an Org-mode buffer."
-  :group 'org-eval
-  :group 'org-faces)
-
-(defvar org-eval-regexp nil)
-
-(defun org-eval-set-interpreters (var value)
-  (set-default var value)
-  (setq org-eval-regexp
-	(concat "<\\("
-		(mapconcat 'regexp-quote value "\\|")
-		"\\)"
-		"\\([^>]\\{0,50\\}?\\)>"
-		"\\([^\000]+?\\)</\\1>")))
-
-(defcustom org-eval-interpreters '("lisp")
-  "Interpreters allows for evaluation tags.
-This is a list of program names (as strings) that can evaluate code and
-insert the output into an Org-mode buffer.  Valid choices are
-
-lisp    Interpret Emacs Lisp code and display the result
-shell   Pass command to the shell and display the result
-perl    The perl interpreter
-python  Thy python interpreter
-ruby    The ruby interpreter"
-  :group 'org-eval
-  :set 'org-eval-set-interpreters
-  :type '(set :greedy t
-	      (const "lisp")
-	      (const "perl")
-	      (const "python")
-	      (const "ruby")
-	      (const "shell")))
-
-(defun org-eval-handle-snippets (limit &optional replace)
-  "Evaluate code snippets and display the results as display property.
-When REPLACE is non-nil, replace the code region with the result (used
-for export)."
-  (let (a)
-    (while (setq a (text-property-any (point) (or limit (point-max))
-				      'org-eval t))
-      (remove-text-properties
-       a (next-single-property-change a 'org-eval nil limit)
-       '(display t intangible t org-eval t))))
-  (while (re-search-forward org-eval-regexp limit t)
-    (let* ((beg (match-beginning 0))
-	   (end (match-end 0))
-	   (kind (match-string 1))
-	   (attr (match-string 2))
-	   (code (match-string 3))
-	   (value (org-eval-code kind code))
-	   markup lang)
-      (if replace
-	  (progn
-	    (setq attr (save-match-data (org-eval-get-attributes attr))
-		  markup (cdr (assoc "markup" attr))
-		  lang  (cdr (assoc "lang" attr)))
-	    (replace-match
-	     (concat (if markup (format "#+BEGIN_%s" (upcase markup)))
-		     (if (and markup (equal (downcase markup) "src"))
-			 (concat " " (or lang "fundamental")))
-		     "\n"
-		     value
-		     (if markup (format "\n#+END_%s\n" (upcase markup))))
-	     t t))
-	(add-text-properties
-	 beg end
-	 (list 'display value 'intangible t 'font-lock-multiline t
-	       'face 'org-eval
-	       'org-eval t))))))
-
-(defun org-eval-replace-snippts ()
-  "Replace EVAL snippets in the entire buffer.
-This should go into the `org-export-preprocess-hook'."
-  (goto-char (point-min))
-  (org-eval-handle-snippets nil 'replace))
-
-(add-hook 'org-export-preprocess-hook 'org-eval-replace-snippts)
-(add-hook 'org-font-lock-hook 'org-eval-handle-snippets)
-
-(defun org-eval-get-attributes (str)
-  (let ((start 0) key value rtn)
-    (while (string-match "\\<\\([a-zA-Z]+\\)\\>=\"\\([^\"]+\\)\"" str start)
-      (setq key (match-string 1 str)
-	    value (match-string 2 str)
-	    start (match-end 0))
-      (push (cons key value) rtn))
-    rtn))
-
-(defun org-eval-code (interpreter code)
-  (cond
-   ((equal interpreter "lisp")
-    (org-eval-lisp (concat "(progn\n" code "\n)")))
-   ((equal interpreter "shell")
-    (shell-command-to-string code))
-   ((member interpreter '("perl" "python" "ruby"))
-    (org-eval-run (executable-find interpreter) code))
-   (t (error "Cannot evaluate code type %s" interpreter))))
-
-(defun org-eval-lisp (form)
-  "Evaluate the given form and return the result as a string."
-  (require 'pp)
-  (save-match-data
-    (condition-case err
-        (let ((object (eval (read form))))
-          (cond
-           ((stringp object) object)
-           ((and (listp object)
-                 (not (eq object nil)))
-            (let ((string (pp-to-string object)))
-              (substring string 0 (1- (length string)))))
-           ((numberp object)
-            (number-to-string object))
-           ((eq object nil) "")
-           (t
-            (pp-to-string object))))
-      (error
-       (org-display-warning (format "%s: Error evaluating %s: %s"
-                                     "???" form err))
-       "; INVALID LISP CODE"))))
-
-(defun org-eval-run (cmd code)
-  (with-temp-buffer
-    (insert code)
-    (shell-command-on-region (point-min) (point-max) cmd nil 'replace)
-    (buffer-string)))
-
-(provide 'org-eval)
-
-;;; org-eval.el ends here