branch: externals/dash
commit 3b08355b94949a8e3a39d5949cf993922a447ac2
Author: Matus Goljer <matus.gol...@gmail.com>
Commit: Matus Goljer <matus.gol...@gmail.com>
Use version from dash.el file when generating readme.
---
dev/examples-to-docs.el | 13 +++++++++++++
readme-template.md | 4 ++--
2 files changed, 15 insertions(+), 2 deletions(-)
diff --git a/dev/examples-to-docs.el b/dev/examples-to-docs.el
index e5ab510..bc1f65f 100644
--- a/dev/examples-to-docs.el
+++ b/dev/examples-to-docs.el
@@ -24,11 +24,17 @@
(require 'dash)
(require 'dash-functional)
(require 'help-fns)
+(require 'package)
(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)))
+
(defun example-to-string (example)
(-let* (((actual sym expected) example)
(comment
@@ -164,6 +170,11 @@ FUNCTION may reference an elisp function, alias, macro or
a subr."
(search-forward s)
(delete-char (- (length s))))
+(defun goto-and-replace-all (s replacement)
+ (while (progn (goto-char (point-min)) (search-forward s nil t))
+ (delete-char (- (length s)))
+ (insert replacement)))
+
(defun create-docs-file ()
(let ((functions (nreverse functions)))
(with-temp-file "./README.md"
@@ -175,6 +186,8 @@ 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))
+
(simplify-quotes))))
;;; examples-to-docs.el ends here
diff --git a/readme-template.md b/readme-template.md
index 333b5c2..9643a46 100644
--- a/readme-template.md
+++ b/readme-template.md
@@ -19,11 +19,11 @@ If you want the function combinators, then also:
Add this to the big comment block at the top:
- ;; Package-Requires: ((dash "2.14.1"))
+ ;; Package-Requires: ((dash "[[ version ]]"))
To get function combinators:
- ;; Package-Requires: ((dash "2.14.1") (dash-functional "1.2.0") (emacs
"24"))
+ ;; Package-Requires: ((dash "[[ version ]]") (dash-functional "1.2.0")
(emacs "24"))
## Upcoming breaking change!
