From 5ffc4df914b6726e111b8754496f67a19a8a16de Mon Sep 17 00:00:00 2001
From: kj <webmaster@outcontrol.net>
Date: Wed, 13 Aug 2025 02:12:08 -0300
Subject: [PATCH] Remove posframe package and other related.

It is more fancy but sometimes is buggy for me and I like mor the normal way of
emacs that shows all at the bottom.
---
 configs/init-base.el       | 25 -------------------------
 configs/init-minibuffer.el | 10 ----------
 configs/init-ui.el         | 16 ----------------
 configs/init-utils.el      | 35 +----------------------------------
 4 files changed, 1 insertion(+), 85 deletions(-)

diff --git a/configs/init-base.el b/configs/init-base.el
index 0a8a6fe..eb0facc 100644
--- a/configs/init-base.el
+++ b/configs/init-base.el
@@ -126,30 +126,5 @@
   (async-bytecomp-package-mode 1)
   (dired-async-mode 1))
 
-;; Child frame
-(use-package posframe
-  :hook (after-load-theme . posframe-delete-all)
-  :init
-  (defface posframe-border
-    `((t (:inherit region)))
-    "Face used by the `posframe' border."
-    :group 'posframe)
-  (defvar posframe-border-width 2
-    "Default posframe border width.")
-  :config
-  (with-no-warnings
-    (defun my-posframe--prettify-frame (&rest _)
-      (set-face-background 'fringe nil posframe--frame))
-    (advice-add #'posframe--create-posframe :after #'my-posframe--prettify-frame)
-
-    (defun posframe-poshandler-frame-center-near-bottom (info)
-      (cons (/ (- (plist-get info :parent-frame-width)
-                  (plist-get info :posframe-width))
-               2)
-            (/ (+ (plist-get info :parent-frame-height)
-                  (* 2 (plist-get info :font-height)))
-               2)))))
-
-
 (provide 'init-base)
 ;;; init-base.el ends here
diff --git a/configs/init-minibuffer.el b/configs/init-minibuffer.el
index 8db76ff..add55a2 100644
--- a/configs/init-minibuffer.el
+++ b/configs/init-minibuffer.el
@@ -121,15 +121,5 @@
         completion-ignore-case t)
   )
 
-;; Mover el minibufer de vertico al centro de la pantalla.
-(use-package vertico-posframe
-  :functions posframe-poshandler-frame-center
-  :hook (vertico-mode . vertico-posframe-mode)
-  :init (setq vertico-posframe-poshandler
-              #'posframe-poshandler-frame-center
-              vertico-posframe-parameters
-              '((left-fringe  . 8)
-                (right-fringe . 8))))
-
 (provide 'init-minibuffer)
 ;;; init-minibuffer.el ends here
diff --git a/configs/init-ui.el b/configs/init-ui.el
index 9889249..d6f0c14 100644
--- a/configs/init-ui.el
+++ b/configs/init-ui.el
@@ -84,22 +84,6 @@
   :config (dolist (mode '(dashboard-mode emacs-news-mode))
             (add-to-list 'page-break-lines-modes mode)))
 
-;; Transient
-(when (childframe-workable-p)
-  ;; Display transient in child frame
-  (use-package transient-posframe
-    :diminish
-    :defines posframe-border-width
-    :custom-face
-    (transient-posframe ((t (:inherit tooltip))))
-    (transient-posframe-border ((t (:inherit posframe-border :background unspecified))))
-    :hook (after-init . transient-posframe-mode)
-    :init (setq transient-mode-line-format nil
-                transient-posframe-border-width posframe-border-width
-                transient-posframe-poshandler 'posframe-poshandler-frame-center
-                transient-posframe-parameters '((left-fringe . 8)
-                                                (right-fringe . 8)))))
-
 ;; La línea bonita esa de abajo
 (use-package doom-modeline
   :init
diff --git a/configs/init-utils.el b/configs/init-utils.el
index f83b9df..6a1bb21 100644
--- a/configs/init-utils.el
+++ b/configs/init-utils.el
@@ -29,25 +29,8 @@
   :init (setq which-key-max-description-length 30
               which-key-lighter nil
               which-key-show-remaining-keys t)
-  :autoload which-key-posframe-mode
   :hook ( elpaca-after-init . which-key-mode))
 
-;; Muestra which-key en un frame en el centro en lugar de abajo
-(when (childframe-workable-p)
-  (use-package which-key-posframe
-    :diminish
-    :defines posframe-border-width
-    :functions posframe-poshandler-frame-center-near-bottom
-    :custom-face
-    (which-key-posframe ((t (:inherit tooltip))))
-    (which-key-posframe-border ((t (:inherit posframe-border :background unspecified))))
-    :init
-    (setq which-key-posframe-border-width posframe-border-width
-          which-key-posframe-poshandler #'posframe-poshandler-frame-center-near-bottom
-          which-key-posframe-parameters '((left-fringe . 8)
-                                          (right-fringe . 8)))
-    (which-key-posframe-mode 1)))
-
 ;; Process
 (use-package proced
   :ensure nil
@@ -149,23 +132,7 @@
   :defines posframe-border-width
   :functions childframe-workable-p
   :hook (emacs-lisp-mode . hydra-add-imenu)
-  :init
-  (when (childframe-workable-p)
-    (setq hydra-hint-display-type 'posframe)
-    (with-no-warnings
-      (defun hydra-set-posframe-show-params ()
-        "Set hydra-posframe style."
-        (setq hydra-posframe-show-params
-              `(:left-fringe 8
-                             :right-fringe 8
-                             :internal-border-width ,posframe-border-width
-                             :internal-border-color ,(face-background 'posframe-border nil t)
-                             :background-color ,(face-background 'tooltip nil t)
-                             :foreground-color ,(face-foreground 'tooltip nil t)
-                             :lines-truncate t
-                             :poshandler posframe-poshandler-frame-center)))
-      (hydra-set-posframe-show-params)
-      (add-hook 'after-load-theme-hook #'hydra-set-posframe-show-params t))))
+  )
 
 ;; Pretty-Hydra - Su nombre ya indica lo que hace
 (use-package pretty-hydra