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.
master
Basil L. Contovounesios 5 years ago
parent 814c4074a2
commit 1d897cc3ac
No known key found for this signature in database
GPG Key ID: 205AB54A5D5D8CFF
  1. 12
      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))))

Loading…
Cancel
Save