colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

random tweaks

Browse Source
This commit is contained in:
Ivan Malison 2016-06-01 16:05:58 -07:00
parent fb11502ed5
commit c40c222030
1 changed files with 24 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
dotfiles/emacs.d/init.el
View File

@ -636,8 +636,7 @@ buffer is not visiting a file."
:config :config
(progn (progn
(imalison:prefix-alternatives imalison:term term-projectile-forward (imalison:prefix-alternatives imalison:term term-projectile-forward
term-projectile-create-new term-projectile-create-new)
imalison:force-new-term)
(defhydra imalison:term-hydra (global-map "C-c 7") (defhydra imalison:term-hydra (global-map "C-c 7")
"term" "term"
("n" term-projectile-forward) ("n" term-projectile-forward)
@ -717,9 +716,13 @@ buffer is not visiting a file."
(use-package flycheck (use-package flycheck
:config :config
(progn (global-flycheck-mode)) (progn
(global-flycheck-mode)
(use-package flycheck-package
:config (flycheck-package-setup)))
:diminish flycheck-mode) :diminish flycheck-mode)
(use-package haskell-mode (use-package haskell-mode
:commands haskell-mode :commands haskell-mode
:config :config
@ -840,7 +843,6 @@ buffer is not visiting a file."
(defvar site-lisp "/usr/share/emacs24/site-lisp/") (defvar site-lisp "/usr/share/emacs24/site-lisp/")
(when (file-exists-p site-lisp) (add-to-list 'load-dirs site-lisp)))) (when (file-exists-p site-lisp) (add-to-list 'load-dirs site-lisp))))
(use-package multi-line (use-package multi-line
:load-path "~/Projects/multi-line" :load-path "~/Projects/multi-line"
:preface :preface
@ -1805,20 +1807,29 @@ window is active in the perspective."
(use-package helm-projectile (use-package helm-projectile
:commands (helm-projectile-on) :commands (helm-projectile-on)
:preface
(progn
(defun imalison:invalidate-cache-and-open-file (dir)
(projectile-invalidate-cache nil)
(projectile-find-file))
(defun imalison:switch-to-project-and-search (dir)
(let ((default-directory dir)
(projectile-require-project-root nil)
(helm-action-buffer "this-buffer-should-not-exist"))
(helm-projectile-ag)))
(defun imalison:helm-term-projectile (_dir)
(let ((default-directory dir)
(projectile-require-project-root nil)
(helm-action-buffer "this-buffer-should-not-exist"))
(term-projectile-forward))))
:config :config
(progn (progn
(helm-delete-action-from-source "Search in Project" (helm-delete-action-from-source "Search in Project"
helm-source-projectile-projects) helm-source-projectile-projects)
(helm-delete-action-from-source "Open term for project" (helm-delete-action-from-source "Open term for project"
helm-source-projectile-projects) helm-source-projectile-projects)
(defun imalison:invalidate-cache-and-open-file (dir)
(projectile-invalidate-cache nil)
(projectile-find-file))
(defun imalison:switch-to-project-and-search (dir)
(let ((default-directory dir)
(projectile-require-project-root nil)
(helm-action-buffer "this-buffer-should-not-exist"))
(helm-projectile-ag)))
(helm-add-action-to-source "Search in Project" (helm-add-action-to-source "Search in Project"
'imalison:switch-to-project-and-search 'imalison:switch-to-project-and-search
helm-source-projectile-projects) helm-source-projectile-projects)
@ -1826,11 +1837,7 @@ window is active in the perspective."
'imalison:invalidate-cache-and-open-file 'imalison:invalidate-cache-and-open-file
helm-source-projectile-projects) helm-source-projectile-projects)
(helm-add-action-to-source "Open term for project" (helm-add-action-to-source "Open term for project"
(lambda (dir) 'imalison:helm-term-projectile
(let ((default-directory dir)
(projectile-require-project-root nil)
(helm-action-buffer "this-buffer-should-not-exist"))
(imalison:projectile-term)))
helm-source-projectile-projects))) helm-source-projectile-projects)))
(use-package projectile (use-package projectile