;ELC   
;;; Compiled
;;; in Emacs version 24.5.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\207" [require cl-lib helm] 2)
#@85 Open buffer in new screen, if marked buffers open all in elscreens.

(fn CANDIDATE)
(defalias 'helm-find-buffer-on-elscreen #[257 "\300\301\302\"\210\303 \211\203) \211\211\205$ \211@\304\305!\306\"\307!\266A\266\202\202\f \262\2024 \304\305!\306\"\307!\262\207" [helm-require-or-error elscreen helm-find-buffer-on-elscreen helm-marked-candidates elscreen-find-screen-by-buffer get-buffer create elscreen-goto] 7 (#$ . 475)])
(defalias 'helm-elscreen-find-file #[257 "\300\301\302\"\210\303!\207" [helm-require-or-error elscreen helm-elscreen-find-file elscreen-find-file] 4 "\n\n(fn FILE)"])
(defvar helm-source-elscreen '((name . "Elscreen") (candidates lambda nil (if (cdr (elscreen-get-screen-to-name-alist)) (sort (cl-loop for sname in (elscreen-get-screen-to-name-alist) append (list (format "[%d] %s" (car sname) (cdr sname)))) #'(lambda (a b) (compare-strings a nil nil b nil nil))))) (action ("Change Screen" lambda (candidate) (elscreen-goto (- (aref candidate 1) (aref "0" 0)))) ("Kill Screen(s)" lambda (candidate) (cl-dolist (i (helm-marked-candidates)) (elscreen-goto (- (aref i 1) (aref "0" 0))) (elscreen-kill))) ("Only Screen" lambda (candidate) (elscreen-goto (- (aref candidate 1) (aref "0" 0))) (elscreen-kill-others)))))
#@44 Preconfigured helm to list elscreen.

(fn)
(defalias 'helm-elscreen #[0 "\300\301\302\"\207" [helm-other-buffer helm-source-elscreen "*Helm Elscreen*"] 3 (#$ . 1732) nil])
(provide 'helm-elscreen)