Extract :ui posframe packages into other modules

modules/ui/posframe/autoload.el

@@ -1,28 +0,0 @@
-;;; ui/posframe/autoloads.el -*- lexical-binding: t; -*-
-
-;;;###autoload
-(defun +posframe-ivy-display-at-frame-center-near-bottom (str)
-  "TODO"
-  (ivy-posframe--display str #'+posframe-poshandler-frame-center-near-bottom))
-
-;;;###autoload
-(defun +posframe-poshandler-frame-center-near-bottom (info)
-  "TODO"
-  (let ((parent-frame (plist-get info :parent-frame))
-        (pos (posframe-poshandler-frame-center info)))
-    (cons (car pos)
-          (truncate (/ (frame-pixel-height parent-frame) 1.6)))))
-
-;;;###autoload
-(defun +posframe|delete-on-escape ()
-  "TODO"
-  (unless (frame-parameter (selected-frame) 'posframe-buffer)
-    (cl-loop for frame in (frame-list)
-             if (and (frame-parameter frame 'posframe-buffer)
-                     (not (frame-visible-p frame)))
-             do (delete-frame frame))
-    (dolist (buffer (buffer-list))
-      (let ((frame (buffer-local-value 'posframe--frame buffer)))
-        (when (and frame (or (not (frame-live-p frame))
-                             (not (frame-visible-p frame))))
-          (posframe--kill-buffer buffer))))))

modules/ui/posframe/config.el

@@ -1,42 +0,0 @@
-;;; ui/posframe/config.el -*- lexical-binding: t; -*-
-
-(def-package! posframe
-  :defer t
-  :config
-  (add-hook 'doom-cleanup-hook #'posframe-delete-all)
-  (add-hook 'doom-escape-hook #'+posframe|delete-on-escape))
-
-
-(def-package! ivy-posframe
-  :when EMACS26+
-  :hook (ivy-mode . ivy-posframe-enable)
-  :preface
-  ;; This function searches the entire `obarray' just to populate
-  ;; `ivy-display-functions-props'. There are 15k entries in mine! This is
-  ;; wasteful, so...
-  (advice-add #'ivy-posframe-setup :override #'ignore)
-  :config
-  ;; ... let's do it manually
-  (dolist (fn (list 'ivy-posframe-display-at-frame-bottom-left
-                    'ivy-posframe-display-at-frame-center
-                    'ivy-posframe-display-at-point
-                    'ivy-posframe-display-at-frame-bottom-window-center
-                    'ivy-posframe-display
-                    'ivy-posframe-display-at-window-bottom-left
-                    'ivy-posframe-display-at-window-center
-                    '+posframe-ivy-display-at-frame-center-near-bottom))
-    (push (list fn :cleanup 'ivy-posframe-cleanup) ivy-display-functions-props))
-
-  (push '(t . +posframe-ivy-display-at-frame-center-near-bottom) ivy-display-functions-alist)
-
-  ;; posframe doesn't work well with async sources
-  (dolist (fn '(swiper counsel-rg counsel-ag counsel-pt counsel-grep counsel-git-grep))
-    (push (cons fn nil) ivy-display-functions-alist))
-
-  (setq ivy-height 16
-        ivy-fixed-height-minibuffer nil
-        ivy-posframe-parameters `((min-width . 90)
-                                  (min-height . ,ivy-height)
-                                  (internal-border-width . 10))))
-
-;; TODO helm-posframe?

modules/ui/posframe/doctor.el

@@ -1,5 +0,0 @@
-;; -*- lexical-binding: t; no-byte-compile: t; -*-
-;;; ui/posframe/doctor.el
-
-(unless EMACS26+
-  (error! "This module doesn't work in Emacs %s (minimum: Emacs 26)" emacs-version))

modules/ui/posframe/packages.el

@@ -1,6 +0,0 @@
-;; -*- no-byte-compile: t; -*-
-;;; ui/posframe/packages.el
-
-(when EMACS26+
-  (when (featurep! :completion ivy)
-    (package! ivy-posframe)))