;;
;;; Commentary:
-;;
;; Rstdoc provides a facility to extract all of the docstrings defined in
;; an elisp source file. Usage:
;;; 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))
(insert "\n"))
(defvar rst--escape-alist
- '( ("\\\\='" . "\\\\'")
- ("\\([^\\]\\)'" . "\\1`")
- ("^[[:space:]\t]*$" . "|br|")
- ("^[[:space:]\t]" . "|indent| "))
+ '(("\\\\='" . "\\\\'")
+ ("\\([^\\]\\)'" . "\\1`")
+ ("^[[:space:]\t]*$" . "|br|")
+ ("^[[:space:]\t]" . "|indent| "))
"List of (regex . replacement) pairs.")
(defun rstdoc--rst-quote-string (str)
(replace-match (cdr pair))))
(buffer-substring (point-min) (point-max))))
+(provide 'rstdoc)
+
;;; rstdoc.el ends here