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)
|
(async-bytecomp-package-mode 1)
|
||||||
(dired-async-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)
|
(provide 'init-base)
|
||||||
;;; init-base.el ends here
|
;;; init-base.el ends here
|
||||||
|
@ -121,15 +121,5 @@
|
|||||||
completion-ignore-case t)
|
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)
|
(provide 'init-minibuffer)
|
||||||
;;; init-minibuffer.el ends here
|
;;; init-minibuffer.el ends here
|
||||||
|
@ -84,22 +84,6 @@
|
|||||||
:config (dolist (mode '(dashboard-mode emacs-news-mode))
|
:config (dolist (mode '(dashboard-mode emacs-news-mode))
|
||||||
(add-to-list 'page-break-lines-modes 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
|
;; La línea bonita esa de abajo
|
||||||
(use-package doom-modeline
|
(use-package doom-modeline
|
||||||
:init
|
:init
|
||||||
|
@ -29,25 +29,8 @@
|
|||||||
:init (setq which-key-max-description-length 30
|
:init (setq which-key-max-description-length 30
|
||||||
which-key-lighter nil
|
which-key-lighter nil
|
||||||
which-key-show-remaining-keys t)
|
which-key-show-remaining-keys t)
|
||||||
:autoload which-key-posframe-mode
|
|
||||||
:hook ( elpaca-after-init . which-key-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
|
;; Process
|
||||||
(use-package proced
|
(use-package proced
|
||||||
:ensure nil
|
:ensure nil
|
||||||
@ -149,23 +132,7 @@
|
|||||||
:defines posframe-border-width
|
:defines posframe-border-width
|
||||||
:functions childframe-workable-p
|
:functions childframe-workable-p
|
||||||
:hook (emacs-lisp-mode . hydra-add-imenu)
|
: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
|
;; Pretty-Hydra - Su nombre ya indica lo que hace
|
||||||
(use-package pretty-hydra
|
(use-package pretty-hydra
|
||||||
|
Reference in New Issue
Block a user