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.
This commit is contained in:
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
Reference in New Issue
Block a user