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
|
||||
|
Reference in New Issue
Block a user