Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Add ne2wm:require-wide-window-p

  • Loading branch information...
commit ac9a22620c68a15e2e1eac93360fbb2da9a502b8 1 parent 4413834
@tkf authored
Showing with 9 additions and 1 deletion.
  1. +8 −0 ne2wm-buffer-p.el
  2. +1 −1  ne2wm-pst-three+.el
View
8 ne2wm-buffer-p.el
@@ -25,6 +25,14 @@
(require 'e2wm)
(require 'howm nil t)
+(defvar ne2wm:require-wide-window-regexps
+ `(,(regexp-quote "*Calendar*")
+ ,(regexp-quote " *Org tags*")))
+
+(defun ne2wm:require-wide-window-p (buf)
+ (let ((regexp
+ (mapconcat 'identity ne2wm:require-wide-window-regexps "\\|")))
+ (string-match-p regexp (buffer-name buf))))
;;; monky/magit
(defun ne2wm:vcs-status-buffer-p (buf)
View
2  ne2wm-pst-three+.el
@@ -169,7 +169,7 @@
(e2wm:pst-buffer-set wname-other buf t t))
t)
;; If the buffer requires wide window, use `wide-sub'
- ((member buf-name '("*Calendar*"))
+ ((ne2wm:require-wide-window-p buf)
(e2wm:with-advice
(e2wm:pst-buffer-set 'wide-sub buf t t)))
(t
Please sign in to comment.
Something went wrong with that request. Please try again.