First commit.

lisp/ux/popups.el

@@ -0,0 +1,35 @@
+;;; popups.el --- Configure Emacs popups -*- lexical-binding: t; -*-
+;;; Commentary:
+;;; Code:
+
+(defun user--popups-config ()
+  "Initialize Emacs popups."
+  (validate-setq
+   ;; Timeout for messages shown in minibuffer.
+   minibuffer-message-timeout 5)
+
+  ;;; (Packages) ;;;
+  (use-package popup
+    :config
+    ;; Install workaround for whitespace-mode bug.
+    (with-eval-after-load 'modes/whitespace
+      (defadvice popup-draw (before user/turn-off-whitespace activate compile)
+        "Turn off whitespace mode before showing popup."
+        (user/whitespace-mode-suppress t))
+
+      (defadvice popup-delete (after user/restore-whitespace activate compile)
+        "Restore previous whitespace mode when deleting popup."
+        (user/whitespace-mode-suppress nil))))
+
+  (use-package popwin
+    :init
+    (user/bind-key-global :util :popwin-close 'popwin:close-popup-window)
+    (user/bind-key-global :util :popwin-buffer 'popwin:popup-buffer)
+    :config
+    (popwin-mode t)))
+
+(user--popups-config)
+
+
+(provide 'ux/popups)
+;;; popups.el ends here