emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Conform helm posframe code to Doom conventions

Browse source
This commit is contained in:
Henrik Lissner 2018-06-01 13:03:25 +02:00 • committed by GitHub
parent a3915dfc91
commit 8f673f52fc
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 18 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

38
modules/completion/helm/config.el
View file

@ -53,25 +53,6 @@
(require 'helm-projectile)
(set-keymap-parent helm-projectile-find-file-map helm-map)
;; Posframes!
(when (and EMACS26+ (featurep! +childframe))
(defvar helm-posframe-buffer nil)
(defun helm-posframe-display (buffer &optional _resume)
(posframe-show
(setq helm-posframe-buffer buffer)
:poshandler #'posframe-poshandler-frame-bottom-left-corner
:left-fringe 10
:width (frame-width)
:height 16 ;; ivy/+childframe uses 16
:respect-header-line t))
(defun helm-posframe-cleanup ()
(posframe-hide helm-posframe-buffer))
(add-hook! 'helm-cleanup-hook #'helm-posframe-cleanup)
(setq helm-display-function #'helm-posframe-display))
;;; Helm hacks
(defun +helm*replace-prompt (plist)
"Globally replace helm prompts with `+helm-global-prompt'."
@ -161,7 +142,24 @@
(def-package! posframe
:when (and EMACS26+ (featurep! +childframe))
:after helm)
:after helm
:config
(defvar +helm--posframe-buffer nil)
(defun +helm-posframe-display (buffer &optional _resume)
(posframe-show
(setq +helm--posframe-buffer buffer)
:poshandler #'posframe-poshandler-frame-bottom-left-corner
:left-fringe 10
:width (frame-width)
:height 16 ;; ivy/+childframe uses 16
:respect-header-line t))
(defun +helm|posframe-cleanup ()
(posframe-hide +helm--posframe-buffer))
(add-hook! 'helm-cleanup-hook #'+helm|posframe-cleanup)
(setq helm-display-function #'+helm-posframe-display))
;;