Skip to content
Browse files

Add two popwin compatible commands

  • Loading branch information...
1 parent 0a471ca commit e6d8ce2ee13d513bd943b1874e797bf10ffd0035 @tkf committed
Showing with 21 additions and 0 deletions.
  1. +21 −0 ne2wm-popwin.el
View
21 ne2wm-popwin.el
@@ -62,6 +62,27 @@ See `popwin:special-display-config'."
(e2wm:with-advice
(e2wm:pst-buffer-set 'sub buffer t selectp))))
+
+;;; popwin compatible commands
+
+(declare-function ne2wm:popup-messages "ne2wm-utils") ; FIXME
+
+;; Command named `ne2wm:popwin-*' does thing similar to what
+;; `popwin:*' does. When e2wm is not enabled, it just calls
+;; `popwin:*'.
+
+(defun ne2wm:popwin-messages ()
+ (interactive)
+ (if (e2wm:managed-p)
+ (ne2wm:popup-messages)
+ (popwin:messages)))
+
+(defun ne2wm:popwin-display-last-buffer ()
+ (interactive)
+ (if (e2wm:managed-p)
+ (wlf:show (e2wm:pst-get-wm) 'sub)
+ (popwin:display-last-buffer)))
+
(provide 'ne2wm-popwin)
;;; ne2wm-popwin.el ends here

0 comments on commit e6d8ce2

Please sign in to comment.
Something went wrong with that request. Please try again.