Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
(require 'e2wm)
(require 'e2wm-bookmark)
(autoload 'e2wm:start-management "e2wm-vcs" "load e2wm-vcs" t)
(autoload 'e2wm:dp-vcs "e2wm-vcs" "load e2wm-vcs" t)
(autoload 'e2wm:start-management "e2wm-bookmark" "load e2wm-bookmark" t)
(autoload 'e2wm:start-management "e2wm-R" "load e2wm-R" t)
(autoload 'e2wm:start-R-code "e2wm-R" "load e2wm-R" t)
;;(require 'init-ahg)
;;(require 'e2wm-ahg)
(defvar e2wm:close-popup-window-timer nil
"Timer of closing the popup window.")
(defun e2wm:start-close-popup-window-timer ()
(or e2wm:close-popup-window-timer
(setq e2wm:close-popup-window-timer
(run-with-timer popwin:close-popup-window-timer-interval
popwin:close-popup-window-timer-interval
'e2wm:close-popup-window-timer))))
(defun e2wm:close-popup-window-timer ()
(condition-case var
(e2wm:close-popup-window-if-necessary
(e2wm:should-close-popup-window-p))
(error (message "e2wm:close-popup-window-timer: error: %s" var))))
(defun e2wm:close-popup-window-if-necessary (&optional force)
"Close the popup window if another window has been selected. If
FORCE is non-nil, this function tries to close the popup window
immediately if possible, and the lastly selected window will be
selected again."
(when (wlf:get-window (e2wm:pst-get-wm) 'sub)
(let* ((window (selected-window))
(minibuf-window-p (eq window (minibuffer-window)))
(other-window-selected
(and (not (eq window (wlf:get-window (e2wm:pst-get-wm) 'sub)))
(not (eq window (wlf:get-window (e2wm:pst-get-wm) 'main)))))
;; (not-stuck-or-closed
;; (or (not popwin:popup-window-stuck-p)
;; (not (popwin:popup-window-live-p))))
)
(when (and (not minibuf-window-p)
(or force other-window-selected))
(wlf:hide (e2wm:pst-get-wm) 'sub)
(e2wm:pst-window-select-main-command)
(e2wm:stop-close-popup-window-timer)
;; (popwin:close-popup-window other-window-selected)
))))
(defun e2wm:should-close-popup-window-p ()
"Return t if popwin should close the popup window
immediately. It might be useful if this is customizable
function."
(and (wlf:get-window (e2wm:pst-get-wm) 'sub)
(and (eq last-command 'keyboard-quit)
(eq last-command-event ?\C-g))))
(defun e2wm:stop-close-popup-window-timer ()
(when e2wm:close-popup-window-timer
(cancel-timer e2wm:close-popup-window-timer)
(setq e2wm:close-popup-window-timer nil)))
(global-set-key (kbd "M-+") 'e2wm:start-management)
(global-set-key (kbd "C-c R") 'e2wm:start-R-code)
(setq e2wm:prefix-key "C-q ")
(setq e2wm:c-two-right-default 'prev)
(setq e2wm:def-plugin-files-sort-key 'time)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; ### Perspective Definition
;;; code / Code editing perspective
;;;--------------------------------------------------
(cond
((equal system-name "x60")
(setq e2wm:c-code-recipe
'(| (:left-max-size 35)
(- (:upper-size-ratio 0.4)
files
(- (:upper-size-ratio 0.5)
bookmarks history))
(- (:upper-size-ratio 0.7)
(| (:right-max-size 30)
main imenu)
sub)))
(setq e2wm:c-code-winfo
'((:name main)
(:name bookmarks :plugin bookmarks-list)
(:name files :plugin files :plugin-args (:sort time :show-hidden nil))
(:name history :plugin history-list)
(:name sub :buffer "*info*" :default-hide t)
(:name imenu :plugin imenu :default-hide t))))
((equal system-name "desktop")
(setq e2wm:c-R-code-recipe
'(| (:left-max-size 60)
(- (:upper-size-ratio 0.3)
R-graphics-list
(- (:upper-size-ratio 0.5)
R-graphics
history))
(- (:upper-size-ratio 0.7)
(| (:right-max-size 60)
(- (:upper-size-ratio 0.7)
main
proc)
(- (:upper-size-ratio 0.3)
R-dired
imenu))
sub)))
(setq e2wm:c-code-recipe
'(| (:left-max-size 60)
(- (:upper-size-ratio 0.4)
files
(- (:upper-size-ratio 0.5)
bookmarks history))
(- (:upper-size-ratio 0.7)
(| (:right-max-size 60)
main imenu)
sub)))
(setq e2wm:c-code-winfo
'((:name main)
(:name bookmarks :plugin bookmarks-list)
(:name files :plugin files :plugin-args (:sort time :show-hidden nil))
(:name history :plugin history-list)
(:name sub :buffer "*info*" :default-hide t)
(:name imenu :plugin imenu :default-hide nil))))
(office-p
(setq e2wm:c-code-recipe
'(| (:left-max-size 35)
(- (:upper-size-ratio 0.4)
files
(- (:upper-size-ratio 0.5)
bookmarks history))
(- (:upper-size-ratio 0.7)
(| (:right-max-size 35)
main imenu)
sub)))
(setq e2wm:c-code-winfo
'((:name main)
(:name bookmarks :plugin bookmarks-list)
(:name files :plugin files :plugin-args (:sort time :show-hidden nil))
(:name history :plugin history-list)
(:name sub :buffer "*info*" :default-hide t)
(:name imenu :plugin imenu :default-hide t)))
(setq e2wm:c-R-code-recipe
'(| (:left-max-size 35)
(- (:upper-size-ratio 0.3)
R-graphics-list
(- (:upper-size-ratio 0.5)
R-graphics
history))
(- (:upper-size-ratio 0.7)
(| (:right-max-size 35)
(- (:upper-size-ratio 0.7)
main
proc)
(- (:upper-size-ratio 0.3)
R-dired
imenu))
sub)))))
(defun e2wm:dp-htwo ()
(interactive)
(e2wm:pst-change 'htwo))
;; キーバインド
(setq e2wm:pst-minor-mode-keymap
(e2wm:define-keymap
'(("C-S-p" . e2wm:pst-history-forward-command) ; 履歴を進む
("C-S-n" . e2wm:pst-history-back-command) ; 履歴をもどる
("M-m" . e2wm:pst-window-select-main-command)
("prefix q" . e2wm:stop-management)
("prefix l" . e2wm:pst-update-windows-command)
("prefix 1" . e2wm:dp-code)
("prefix 2" . e2wm:dp-two)
("prefix 3" . e2wm:dp-htwo)
("prefix 4" . e2wm:dp-doc)
("prefix 5" . e2wm:dp-array)
("prefix 6" . e2wm:dp-R-code)
("prefix 7" . e2wm:dp-R-view)
("prefix v" . e2wm:dp-vcs))
e2wm:prefix-key))
(setq e2wm:dp-code-minor-mode-map
(e2wm:define-keymap
'(("prefix I" . e2wm:dp-code-imenu-toggle-command)
("prefix S" . e2wm:dp-code-sub-toggle-command)
("prefix C" . e2wm:dp-code-toggle-clock-command)
("prefix c" . e2wm:dp-code-toggle-svg-clock-command)
("prefix M" . e2wm:dp-code-main-maximize-toggle-command)
("prefix h" . e2wm:dp-code-navi-history-command)
("prefix f" . e2wm:dp-code-navi-files-command)
("prefix i" . e2wm:dp-code-navi-imenu-command)
("prefix s" . e2wm:dp-code-navi-sub-command)
("C-c m" . e2wm:dp-code-popup-messages)
("prefix b" . e2wm:dp-code-navi-bookmarks-command))
e2wm:prefix-key))
(e2wm:add-keymap
e2wm:def-plugin-files-mode-map
'(("k" . e2wm:def-plugin-files-updir-command)
) e2wm:prefix-key)
(setq e2wm:def-plugin-history-list-mode-map
(e2wm:define-keymap
'(("k" . previous-line)
("j" . next-line)
("p" . previous-line)
("n" . next-line)
("d" . e2wm:def-plugin-history-list-kill-command)
("<SPC>" . e2wm:def-plugin-history-list-show-command)
("C-m" . e2wm:def-plugin-history-list-select-command)
("q" . e2wm:pst-window-select-main-command)
)))
(custom-set-faces
'(e2wm:face-history-list-normal ((t (:foreground "#f0dfaf" ))))
(custom-set-faces
'(e2wm:face-history-list-select1 ((t (:foreground "#cc9393")))))
(custom-set-faces
'(e2wm:face-history-list-select2 ((t (:foreground "#8cd0d3" ))))))
(when win-p
(setq e2wm:def-plugin-clock-download-file "D:/tmp/wmclock.jpg")
(setq e2wm:def-plugin-clock-resized-file "D:/tmp/wmclock.jpg"))
;;↑cygwin環境の場合は "C:/cygwin/tmp/wmclock.jpg" とかにすると良いかも
(defun e2wm:dp-code-popup-messages ()
(interactive)
(e2wm:dp-code-popup-sub "*Messages*")
(e2wm:start-close-popup-window-timer)
(e2wm:pst-window-select-main-command))
(defun e2wm:dp-code-popup (buf)
;;とりあえず全部subで表示してみる
(let ((cb (current-buffer)))
(e2wm:message "#DP CODE popup : %s (current %s / backup %s)"
buf cb e2wm:override-window-cfg-backup))
(let ((buf-name (buffer-name buf))
(wm (e2wm:pst-get-wm)))
(cond
((e2wm:history-recordable-p buf)
(e2wm:pst-show-history-main)
;;記録対象なら履歴に残るのでupdateで表示を更新させる
t)
((and e2wm:override-window-cfg-backup
(eq (selected-window) (wlf:get-window wm 'sub)))
;;現在subならmainに表示しようとする
;;minibuffer以外の補完バッファは動きが特殊なのでbackupをnilにする
(setq e2wm:override-window-cfg-backup nil)
;;一時的に表示するためにset-window-bufferを使う
;;(prefix) C-lなどで元のバッファに戻すため
(set-window-buffer (wlf:get-window wm 'main) buf)
t)
((and e2wm:c-code-show-main-regexp
(string-match e2wm:c-code-show-main-regexp buf-name))
(e2wm:pst-buffer-set 'main buf t)
t)
((string-match (or " *auto-async-byte-compile*" "*Backtrace*") buf-name)
(e2wm:dp-code-popup-sub buf)
(e2wm:start-close-popup-window-timer)
t)
((string-match "*Help*" buf-name)
;;(e2wm:dp-code-popup-sub buf)
(e2wm:start-close-popup-window-timer)
(let ((wm (e2wm:pst-get-wm))
(not-minibufp (= 0 (minibuffer-depth))))
(e2wm:pst-buffer-set 'sub buf t not-minibufp))(sit-for 10)
(select-window (wlf:get-window (e2wm:pst-get-wm) 'sub))
;;(other-window 1)
t)
(t
(e2wm:dp-code-popup-sub buf)
t))))
(e2wm:add-keymap
e2wm:dp-two-minor-mode-map
'(("C-S-n" . e2wm:dp-two-right-history-down-command)
("C-S-p" . e2wm:dp-two-right-history-up-command)
("prefix h" . e2wm:dp-two-navi-history-command)
("prefix l" . e2wm:pst-update-windows-command)
("prefix j" . e2wm:dp-two-navi-left-command)
("prefix k" . e2wm:dp-two-navi-right-command)
("prefix d" . e2wm:dp-two-double-column-command)
("prefix S" . e2wm:dp-two-sub-toggle-command)
("prefix -" . e2wm:dp-two-swap-buffers-command)
("prefix H" . e2wm:dp-two-history-toggle-command)
("prefix M" . e2wm:dp-two-main-maximize-toggle-command))
e2wm:prefix-key)
(add-hook 'e2wm:post-stop-hook
(lambda ()
(setq display-buffer-function 'popwin:display-buffer)))
(eval-after-load "elscreen"
'(progn
;; overrides storages for elscreen
(defadvice e2wm:frame-param-get (around e2wm:ad-override-els (name &optional frame))
;; frame is not used...
(e2wm:message "** e2wm:frame-param-get : %s " name) ;
(let ((alst (cdr (assq 'e2wm-frame-prop
(elscreen-get-screen-property
(elscreen-get-current-screen))))))
(setq ad-return-value (and alst (cdr (assq name alst))))))
(defadvice e2wm:frame-param-set (around e2wm:ad-override-els (name val &optional frame))
(e2wm:message "** e2wm:frame-param-set : %s / %s" name val)
(let* ((screen (elscreen-get-current-screen))
(screen-prop (elscreen-get-screen-property screen))
(alst (cdr (assq 'e2wm-frame-prop screen-prop))))
(set-alist 'alst name val)
(set-alist 'screen-prop 'e2wm-frame-prop alst)
(elscreen-set-screen-property screen screen-prop)
(setq ad-return-value val)))
;; grab switch events
(defun e2wm:elscreen-define-advice (function)
(eval
`(defadvice ,function (around e2wm:ad-override-els)
(e2wm:message "** %s vvvv" ',function)
(when (e2wm:managed-p)
(e2wm:message "** e2wm:managed")
(let ((it (e2wm:Pst-Get-Instance)))
(e2wm:pst-method-call e2wm:$pst-class-leave it (e2wm:$pst-wm it)))
(e2wm:pst-minor-mode -1))
(e2wm:message "** ad-do-it ->")
ad-do-it
(e2wm:message "** ad-do-it <-")
(e2wm:message "** e2wm:param %s"
(cdr (assq 'e2wm-frame-prop
(elscreen-get-screen-property
(elscreen-get-current-screen)))))
(when (e2wm:managed-p)
(e2wm:message "** e2wm:managed")
(let ((it (e2wm:pst-get-instance)))
(e2wm:pst-method-call e2wm:$pst-class-start it (e2wm:$pst-wm it)))
(e2wm:pst-minor-mode 1))
(e2wm:message "** %s ^^^^^" ',function)
)))
(defadvice elscreen-create (around e2wm:ad-override-els)
(let (default-wcfg)
(when (e2wm:managed-p)
(loop for screen in (reverse (sort (elscreen-get-screen-list) '<))
for alst = (cdr (assq 'e2wm-frame-prop
(elscreen-get-screen-property screen)))
for wcfg = (and alst (cdr (assq 'e2wm-save-window-configuration alst)))
if wcfg
do (setq default-wcfg wcfg) (return)))
ad-do-it
(when default-wcfg
(set-window-configuration default-wcfg))))
;; apply defadvices to some elscreen functions
(loop for i in '(elscreen-goto
elscreen-kill
elscreen-clone
elscreen-swap)
do (e2wm:elscreen-define-advice i))
(defun e2wm:elscreen-override ()
(ad-activate-regexp "^e2wm:ad-override-els$")
(setq e2wm:override-window-ext-managed t))
(defun e2wm:elscreen-revert ()
(ad-deactivate-regexp "^e2wm:ad-override-els$")
(setq e2wm:override-window-ext-managed nil))
;; start and exit
(add-hook 'e2wm:pre-start-hook 'e2wm:elscreen-override)
(add-hook 'e2wm:post-stop-hook 'e2wm:elscreen-revert)))
;;; svg-clock
;;;--------------------------------------------------
(require 'svg-clock)
(defun e2wm:def-plugin-svg-clock (frame wm winfo)
(let* ((buf (get-buffer-create "*clock*")))
(with-current-buffer buf
(unless svg-clock-timer
(setq svg-clock-timer
(run-with-timer 0 1 'svg-clock-update))
(svg-clock-mode)))
(wlf:set-buffer wm (wlf:window-name winfo) buf)))
(e2wm:plugin-register 'svg-clock
"SVG-clock"
'e2wm:def-plugin-svg-clock)
(defun e2wm:dp-code-toggle-svg-clock-command ()
(interactive)
(let* ((wm (e2wm:pst-get-wm))
(prev (e2wm:pst-window-plugin-get wm 'history))
(next (if (eq prev 'history-list)
'svg-clock 'history-list)))
(e2wm:pst-window-plugin-set wm 'history next)
(e2wm:pst-update-windows)))
(provide 'init-E2wm)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment