Moves helm helper functions to a separate file
This commit is contained in:
parent
d9a05b322e
commit
f40a345766
1 changed files with 78 additions and 0 deletions
78
emacs/wc-helm-functions.lisp
Normal file
78
emacs/wc-helm-functions.lisp
Normal file
|
@ -0,0 +1,78 @@
|
|||
(defvar wc/helm-git-tracked-staged
|
||||
(helm-build-in-buffer-source "Tracked, Staged"
|
||||
:candidates (shell-command-to-string "git --no-pager diff --name-only --staged")
|
||||
:action 'wc/handle-branch))
|
||||
|
||||
|
||||
(defvar wc/helm-print-default-directory
|
||||
(helm-build-in-buffer-source "Tracked, Staged"
|
||||
:candidates (lambda () '((default-directory)))
|
||||
:action 'wc/handle-branch))
|
||||
|
||||
|
||||
(defvar wc/helm-git-tracked-unstaged
|
||||
(helm-build-in-buffer-source "Tracked, Unstaged"
|
||||
:candidates (shell-command-to-string "git --no-pager diff --name-only")
|
||||
:action 'wc/handle-branch))
|
||||
|
||||
|
||||
(defvar wc/helm-git-untracked-unstaged
|
||||
(helm-build-in-buffer-source "Untracked, Unstaged"
|
||||
:candidates (shell-command-to-string "git ls-files --others --exclude-standard")
|
||||
:action 'wc/handle-branch))
|
||||
|
||||
|
||||
(defun wc/helm-git-altered-files ()
|
||||
"View a categorized list of altered files within a project."
|
||||
(interactive)
|
||||
(helm :sources '(wc/helm-print-default-directory
|
||||
;; wc/helm-git-tracked-staged
|
||||
;; wc/helm-git-tracked-unstaged
|
||||
;; wc/helm-git-untracked-unstaged
|
||||
)
|
||||
:buffer "*helm git altered files*"))
|
||||
|
||||
|
||||
(defun wc/helm-git-branches ()
|
||||
"Reverse-I search using Helm."
|
||||
(interactive)
|
||||
(helm :sources (helm-build-in-buffer-source "test1"
|
||||
:data (wc/git-branches)
|
||||
:action 'wc/handle-branch)
|
||||
:buffer "*helm git branches*"))
|
||||
|
||||
|
||||
(defun wc/open-terminals ()
|
||||
"Lists active terminal buffers."
|
||||
(interactive)
|
||||
(helm :sources (helm-build-in-buffer-source "test1"
|
||||
:data (wc/list-project-terminals)
|
||||
:action 'switch-to-buffer)
|
||||
:buffer "*helm projectile terminals*"))
|
||||
|
||||
|
||||
(defun wc/helm-autojump ()
|
||||
"Helm interface to autojump."
|
||||
(interactive)
|
||||
(helm :sources (helm-build-in-buffer-source "test1"
|
||||
:data (wc/autojump-directories)
|
||||
:action (lambda (path) (wc/exec-cmd (format "cd %s" path))))
|
||||
:buffer "*helm git branches*"))
|
||||
|
||||
|
||||
(defun wc/helm-shell-history ()
|
||||
"Reverse-I search using Helm."
|
||||
(interactive)
|
||||
(helm :sources (helm-build-in-buffer-source "test1"
|
||||
:data (wc/shell-history)
|
||||
:action 'wc/exec-cmd)
|
||||
:buffer "*helm shell history*"))
|
||||
|
||||
|
||||
(defun wc/helm-ctrl-t-find-files ()
|
||||
"Fuzzily searches files within a directory."
|
||||
(interactive)
|
||||
(helm :sources (helm-build-in-buffer-source "test1"
|
||||
:data (shell-command-to-string "ag --hidden --ignore .git -l -g \"\"")
|
||||
:action 'term-send-raw-string)
|
||||
:buffer "*helm CTRL_T find files *"))
|
Loading…
Reference in a new issue