Scott Jaderholm <[email protected]> writes:
> (require 'thingatpt)
>
> (defun jsj-render-docstring-as-texinfo ()
> "Render the docstring at point in an *info* buffer."
> (interactive)
> (save-excursion
> (while (in-string-p)
> (backward-char))
> (let ((docstring (thing-at-point 'sexp))
> (file (make-temp-file "texinfo")))
> (with-temp-file file
> (insert "@setfilename " file " \n"
> "@node Top\n")
> (insert docstring))
> (find-file file)
> (makeinfo-buffer))))
>
> Cheers,
> Scott
This would be useful in stumpwm.el, can you open an issue against
stumpwm-contrib to remind me to add this at some point?
Dave
_______________________________________________
Stumpwm-devel mailing list
[email protected]
https://lists.nongnu.org/mailman/listinfo/stumpwm-devel
