describe-extension has been added
This commit is contained in:
parent
d8bcd86f5c
commit
90dc0a7754
|
@ -61,10 +61,14 @@ to them.
|
||||||
(defun describe-extension (extension)
|
(defun describe-extension (extension)
|
||||||
"Show the doc-string of the EXTENSION."
|
"Show the doc-string of the EXTENSION."
|
||||||
(interactive)
|
(interactive)
|
||||||
(let ((doc-file (fg42-extension-docs (symbol-value extension))))
|
(let ((doc-file (fg42-extension-docs (symbol-value extension)))
|
||||||
(find-file (concat fg42-home "/" doc-file))
|
(b (get-buffer-create (concat "*" (symbol-name extension) " docs*"))))
|
||||||
(rename-buffer (concat "*" extension " docs*"))
|
(set-buffer b)
|
||||||
(read-only-mode t)))
|
(insert-file-contents (concat fg42-home "/" doc-file))
|
||||||
|
(read-only-mode t)
|
||||||
|
(switch-to-buffer b)
|
||||||
|
(org-mode)))
|
||||||
|
|
||||||
|
|
||||||
(provide 'fg42/extension)
|
(provide 'fg42/extension)
|
||||||
;;; extension ends here
|
;;; extension ends here
|
||||||
|
|
Loading…
Reference in New Issue