mirror of
https://github.com/vale981/emacs-ipython-notebook
synced 2025-03-06 09:31:39 -05:00
68 lines
2 KiB
EmacsLisp
68 lines
2 KiB
EmacsLisp
;;; ein-helm.el --- Helm/anything commands
|
|
|
|
;; Copyright (C) 2012 Takafumi Arakaki
|
|
|
|
;; Author: Takafumi Arakaki <aka.tkf at gmail.com>
|
|
|
|
;; This file is NOT part of GNU Emacs.
|
|
|
|
;; ein-helm.el is free software: you can redistribute it and/or modify
|
|
;; it under the terms of the GNU General Public License as published by
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
|
;; (at your option) any later version.
|
|
|
|
;; ein-helm.el is distributed in the hope that it will be useful,
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
;; GNU General Public License for more details.
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
|
;; along with ein-helm.el. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
;;; Commentary:
|
|
|
|
;;
|
|
|
|
;;; Code:
|
|
|
|
(eval-when-compile (require 'cl))
|
|
|
|
(declare-function anything-other-buffer "anything")
|
|
(declare-function helm-other-buffer "helm")
|
|
|
|
;; Helm/anything sources
|
|
|
|
(defvar ein:helm-source-notebook-buffers
|
|
'((name . "IPython notebook buffers")
|
|
(candidates . ein:notebook-opened-buffer-names)
|
|
(type . buffer))
|
|
"Helm/anything source for notebook buffers.")
|
|
|
|
|
|
;;; "Export" sources to `helm/anything-c-source-*'
|
|
|
|
(defvaralias 'anything-c-source-ein-notebook-buffers
|
|
'ein:helm-source-notebook-buffers
|
|
"Alias to `anything-c-source-ein-notebook-buffers'")
|
|
|
|
(defvaralias 'helm-c-source-ein-notebook-buffers
|
|
'ein:helm-source-notebook-buffers
|
|
"Alias to `ein:helm-source-notebook-buffers'")
|
|
|
|
|
|
;;; Helm/anything commands
|
|
|
|
;;;###autoload
|
|
(defun anything-ein-notebook-buffers ()
|
|
"Choose opened notebook using anything.el interface."
|
|
(interactive)
|
|
(anything-other-buffer ein:helm-source-notebook-buffers "*anything ein*"))
|
|
|
|
;;;###autoload
|
|
(defun helm-ein-notebook-buffers ()
|
|
"Choose opened notebook using helm interface."
|
|
(interactive)
|
|
(helm-other-buffer ein:helm-source-notebook-buffers "*helm ein*"))
|
|
|
|
(provide 'ein-helm)
|
|
;;; ein-helm.el ends here
|