hiro/emacs-ipython-notebook
1
0
Fork 0
mirror of https://github.com/vale981/emacs-ipython-notebook synced 2025-03-06 01:21:38 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add ein:dev-show-sys-info

Browse source
This commit is contained in:
Takafumi Arakaki 2012-09-12 20:55:00 +02:00
parent c3ae427d6d
commit 9ebb9582bc
1 changed files with 27 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
lisp/ein-dev.el
View file

@ -172,6 +172,33 @@ callback (`websocket-callback-debug-on-error') is enabled."
(interactive)
(setq ein:notebook-modes '(ein:notebook-org-src-mode)))
(defun ein:dev-sys-info--lib (name)
(list :name name
:path (ein:aand (locate-library name) (abbreviate-file-name it))))
(defun ein:dev-sys-info ()
(list
"EIN system info"
:emacs-version (emacs-version)
:image-types image-types
:lib (mapcar #'ein:dev-sys-info--lib
'("websocket" "auto-complete" "mumamo"
"auto-complete" "popup" "fuzzy" "pos-tip"
"python" "python-mode" "markdown-mode"
"smartrep" "anything" "helm"))))
(defun ein:dev-show-sys-info (&optional show-in-buffer)
"Show Emacs and library information."
(interactive (list t))
(let ((info (ein:dev-sys-info)))
(if show-in-buffer
(let ((buffer (get-buffer-create "*ein:sys-info*")))
(with-current-buffer buffer
(erase-buffer)
(pp info buffer)
(pop-to-buffer buffer)))
(message "EIN INFO:\n%s" (pp-to-string info)))))
(provide 'ein-dev)
;;; ein-dev.el ends here