Re: [PATCH 01/11] emacs: initial version of rstdoc.el

[David Bremner]

David Bremner  writes:

> David Bremner  writes:
>
>> This small library is intended to support batch extraction of Emacs
>> Lisp docstrings from source files. Clients will need to include (or
>> replace) rstdoc.rsti.
>
> Heads up:
>
> I've marked this series as ready to merge. Any objections should come
> ASAP.
>

As promised/threatened I have merged this series to master

d
___
notmuch mailing list
notmuch@notmuchmail.org
https://notmuchmail.org/mailman/listinfo/notmuch

Re: [PATCH 01/11] emacs: initial version of rstdoc.el

[David Bremner]

David Bremner  writes:

> This small library is intended to support batch extraction of Emacs
> Lisp docstrings from source files. Clients will need to include (or
> replace) rstdoc.rsti.

Heads up:

I've marked this series as ready to merge. Any objections should come
ASAP.

d
___
notmuch mailing list
notmuch@notmuchmail.org
https://notmuchmail.org/mailman/listinfo/notmuch

[PATCH 01/11] emacs: initial version of rstdoc.el

[David Bremner]

This small library is intended to support batch extraction of Emacs
Lisp docstrings from source files. Clients will need to include (or
replace) rstdoc.rsti.
---
 emacs/rstdoc.el   | 85 +++
 emacs/rstdoc.rsti | 22 
 2 files changed, 107 insertions(+)
 create mode 100644 emacs/rstdoc.el
 create mode 100644 emacs/rstdoc.rsti

diff --git a/emacs/rstdoc.el b/emacs/rstdoc.el
new file mode 100644
index ..2225aefc
--- /dev/null
+++ b/emacs/rstdoc.el
@@ -0,0 +1,85 @@
+;;; rstdoc.el --- help generate documentation from docstrings 
-*-lexical-binding: t-*-
+
+;; Copyright (C) 2018 David Bremner
+
+;; Author: David Bremner 
+;; Created: 26 May 2018
+;; Keywords: emacs lisp, documentation
+;; Homepage: https://notmuchmail.org
+
+;; This file is not part of GNU Emacs.
+
+;; rstdoc.el 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.
+;;
+;; rstdoc.el 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 rstdoc.el.  If not, see .
+;;
+
+;;; Commentary:
+;;
+
+;; Rstdoc provides a facility to extract all of the docstrings defined in
+;; an elisp source file. Usage:
+;;
+;; emacs -Q --batch -L . -l rstdoc -f rstdoc-batch-extract foo.el foo.rsti
+
+;;; Code:
+
+(provide 'rstdoc)
+
+(defun rstdoc-batch-extract ()
+  "Extract docstrings to and from the files on the command line"
+  (apply #'rstdoc-extract command-line-args-left))
+
+(defun rstdoc-extract (in-file out-file)
+  "Write docstrings from IN-FILE to OUT-FILE"
+  (load-file in-file)
+  (let* ((definitions (cdr (assoc (expand-file-name in-file) load-history)))
+(doc-hash (make-hash-table :test 'eq)))
+(mapc
+ (lambda (elt)
+   (let ((pair
+ (pcase elt
+   (`(defun . ,name) (cons name (documentation name)))
+   (`(,_ . ,_)  nil)
+   (sym (cons sym (get sym 'variable-documentation))
+(when (and pair (cdr pair))
+  (puthash (car pair) (cdr pair) doc-hash
+ definitions)
+(with-temp-buffer
+  (maphash
+   (lambda (key val)
+(rstdoc--insert-docstring key val))
+   doc-hash)
+  (write-region (point-min) (point-max) out-file
+
+(defun rstdoc--insert-docstring (symbol docstring)
+  (insert (format "\n.. |docstring::%s| replace::\n" symbol))
+  (insert (replace-regexp-in-string "^" "" (rstdoc--rst-quote-string 
docstring)))
+  (insert "\n"))
+
+(defvar rst--escape-alist
+  '( ("='" . "'")
+ ("\\([^\\]\\)'" . "\\1`")
+ ("^[[:space:]\t]*$" . "|br|")
+ ("^[[:space:]\t]" . "|indent| "))
+"list of (regex . replacement) pairs")
+
+(defun rstdoc--rst-quote-string (str)
+  (with-temp-buffer
+(insert str)
+(dolist (pair rst--escape-alist)
+  (goto-char (point-min))
+  (while (re-search-forward (car pair) nil t)
+   (replace-match (cdr pair
+(buffer-substring (point-min) (point-max
+
+;;; rstdoc.el ends here
diff --git a/emacs/rstdoc.rsti b/emacs/rstdoc.rsti
new file mode 100644
index ..f138b7bf
--- /dev/null
+++ b/emacs/rstdoc.rsti
@@ -0,0 +1,22 @@
+.. -*- rst -*-
+
+.. |br| replace:: |br-texinfo| |br-html|
+   
+.. |br-texinfo| raw:: texinfo
+
+   @* @*
+
+.. |br-html| raw:: html
+
+   
+
+.. |indent| replace:: |indent-texinfo| |indent-html|
+
+.. |indent-texinfo| raw:: texinfo
+
+   @* @ @ @ @
+
+.. |indent-html| raw:: html
+
+   
+
-- 
2.17.1

___
notmuch mailing list
notmuch@notmuchmail.org
https://notmuchmail.org/mailman/listinfo/notmuch