jimeh/.emacs.d
1
0
Fork 0
mirror of https://github.com/jimeh/.emacs.d.git synced 2026-02-19 13:46:41 +00:00
Code Issues Packages Projects Releases Wiki Activity

Advice helm to automatically hide and show neotree

Browse Source
This commit is contained in:
Jim Myhrberg
2018-02-27 00:34:45 +00:00
parent ad1afe892b
commit 1183480906
1 changed files with 19 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
modules/siren-helm.el
View File

@@ -18,6 +18,8 @@
helm-file-name-case-fold-search 'smart
helm-split-window-default-side 'below)
(setq siren-helm--did-hide-neotree nil)
;; From: https://www.reddit.com/r/emacs/comments/3asbyn/new_and_very_useful_helm_feature_enter_search/
(defun siren-helm--hide-minibuffer-maybe ()
(when (with-helm-buffer helm-echo-input-in-header-line)
@@ -55,6 +57,23 @@
(add-hook 'helm-cleanup-hook #'siren-helm--popwin-help-mode-on)
(defun siren-helm--hide-neotree (&rest plist)
(when (and (fboundp 'neotree-hide)
(fboundp 'neo-global--window-exists-p)
(neo-global--window-exists-p))
(setq siren-helm--did-hide-neotree t)
(neotree-hide)))
(advice-add 'helm :before 'siren-helm--hide-neotree)
(defun siren-helm--show-neotree-maybe ()
(when (and (fboundp 'neotree-show)
siren-helm--did-hide-neotree)
(setq siren-helm--did-hide-neotree nil)
(run-with-timer 0.01 nil #'neotree-show)))
(add-hook 'helm-cleanup-hook #'siren-helm--show-neotree-maybe))
(use-package helm-descbinds
:defer t)