FG42
/
FG42
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

describe-extension has been added

This commit is contained in:
Sameer Rahmani 2018-03-04 00:54:30 +00:00
parent d8bcd86f5c
commit 90dc0a7754
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lib/fg42/extension.el
View File

@ -61,10 +61,14 @@ to them.
(defun describe-extension (extension)
"Show the doc-string of the EXTENSION."
(interactive)
(let ((doc-file (fg42-extension-docs (symbol-value extension))))
(find-file (concat fg42-home "/" doc-file))
(rename-buffer (concat "*" extension " docs*"))
(read-only-mode t)))
(let ((doc-file (fg42-extension-docs (symbol-value extension)))
(b (get-buffer-create (concat "*" (symbol-name extension) " docs*"))))
(set-buffer b)
(insert-file-contents (concat fg42-home "/" doc-file))
(read-only-mode t)
(switch-to-buffer b)
(org-mode)))
(provide 'fg42/extension)
;;; extension ends here