From 1d897cc3ac46eb9f1d7617826e6ed6381ec12e5d Mon Sep 17 00:00:00 2001 From: "Basil L. Contovounesios" Date: Sun, 3 Jan 2021 14:23:37 +0000 Subject: [PATCH] Simplify examples-to-docs a bit * dev/examples-to-docs.el (dash-get-package-version): Remove function. (create-docs-file): Replace its use with lm-version. --- dev/examples-to-docs.el | 12 +++--------- 1 file changed, 3 insertions(+), 9 deletions(-) diff --git a/dev/examples-to-docs.el b/dev/examples-to-docs.el index f7a2211..ed17133 100644 --- a/dev/examples-to-docs.el +++ b/dev/examples-to-docs.el @@ -23,17 +23,11 @@ (require 'dash) (require 'dash-functional) -(require 'help-fns) -(require 'package) +(require 'lisp-mnt) (setq text-quoting-style 'grave) -(defvar functions '()) - -(defun dash-get-package-version () - "Get version of dash package." - (with-current-buffer (find-file-noselect "dash.el") - (mapconcat 'number-to-string (package-desc-version (package-buffer-info)) version-separator))) +(defvar functions ()) (defun example-to-string (example) (-let* (((actual sym expected) example) @@ -195,7 +189,7 @@ FUNCTION may reference an elisp function, alias, macro or a subr." (goto-and-remove "[[ function-docs ]]") (insert (mapconcat 'function-to-md functions "\n")) - (goto-and-replace-all "[[ version ]]" (dash-get-package-version)) + (goto-and-replace-all "[[ version ]]" (lm-version "dash.el")) (simplify-quotes))))