Rewrote initfiles
This commit is contained in:
Henrik Lissner
parent
ec5106ffab
commit
77349a2046
50 changed files with 2478 additions and 1670 deletions
|
|
@ -1,21 +1,30 @@
|
|||
;; Project nav+search tools (projectile, helm, ag)
|
||||
(provide 'init-project)
|
||||
|
||||
(use-package neotree
|
||||
:commands (neotree-show neotree-hide neotree-toggle))
|
||||
|
||||
(use-package ag
|
||||
:commands (ag ag-search ag-regexp)
|
||||
:commands (neotree-show neotree-hide neotree-toggle)
|
||||
:config
|
||||
(progn (setq ;ag-reuse-window nil
|
||||
ag-reuse-buffers nil
|
||||
ag-highlight-search t)
|
||||
(progn (setq neo-create-file-auto-open t
|
||||
neo-smart-open t
|
||||
neo-persist-show nil)
|
||||
(add-hook! 'neotree-mode-hook
|
||||
(setq mode-line-format nil)
|
||||
(bind evil-motion-state-local-map
|
||||
(kbd "TAB") 'neotree-enter
|
||||
(kbd "RET") 'neotree-enter))))
|
||||
|
||||
(push '(ag-mode :position bottom :height 0.5 :stick t) popwin:special-display-config)
|
||||
(use-package perspective
|
||||
:init (persp-mode 1)
|
||||
:config
|
||||
(progn
|
||||
(defun my-kill-persp ()
|
||||
(interactive)
|
||||
(persp-kill (persp-name persp-curr)))
|
||||
|
||||
;; Close Ag on ESC
|
||||
(bind ag-mode-map [escape] "q")))
|
||||
(evil-ex-define-cmd "k[ill]persp" 'my-kill-persp)))
|
||||
|
||||
(use-package dired
|
||||
:disabled t
|
||||
:init
|
||||
(progn (setq dired-recursive-deletes 'always
|
||||
dired-recursive-copies 'always
|
||||
|
|
@ -29,99 +38,4 @@
|
|||
(push '(dired-mode :position bottom :height 0.5 :stick t) popwin:special-display-config)
|
||||
|
||||
(add-hook! 'dired-mode-hook
|
||||
(use-package 'dired+ :config (toggle-diredp-find-file-reuse-dir 1)))))
|
||||
|
||||
(use-package projectile
|
||||
:init
|
||||
(progn (setq-default projectile-cache-file (concat *tmp-dir "projectile.cache"))
|
||||
(setq-default projectile-known-projects-file (concat *tmp-dir "projectile.projects"))
|
||||
(setq-default projectile-enable-caching t)
|
||||
|
||||
(add-to-list 'projectile-globally-ignored-files "ido.last")
|
||||
(add-to-list 'projectile-globally-ignored-directories "assets")
|
||||
(add-to-list 'projectile-other-file-alist '("scss" "css"))
|
||||
(add-to-list 'projectile-other-file-alist '("css" "scss"))
|
||||
|
||||
(projectile-global-mode +1)
|
||||
|
||||
(defvar persp-modestring-dividers '("" " |" ","))
|
||||
(use-package perspective)
|
||||
(use-package persp-projectile)
|
||||
(persp-mode 1)))
|
||||
|
||||
(use-package helm
|
||||
:pre-load (defvar helm-mode-line-string "")
|
||||
:init
|
||||
(progn
|
||||
(use-package helm-ag :commands (helm-do-ag))
|
||||
(use-package helm-projectile)
|
||||
(add-hook! 'scss-mode-hook (use-package helm-css-scss))
|
||||
|
||||
(push '("^\\*helm.+\\*$" :position bottom :regexp t :height 18) popwin:special-display-config)
|
||||
|
||||
(setq helm-quick-update t
|
||||
helm-idle-delay 0.01
|
||||
helm-input-idle-delay 0.01)
|
||||
|
||||
(bind helm-map (kbd "C-w") 'evil-delete-backward-word)
|
||||
|
||||
;; All this for a smaller prompt (it was redundant with helm headers)
|
||||
(defmacro helm-projectile-command (command source prompt)
|
||||
`(defun ,(intern (concat "helm-projectile-" command)) (&optional arg)
|
||||
(interactive "P")
|
||||
(if (projectile-project-p)
|
||||
(projectile-maybe-invalidate-cache arg))
|
||||
(let ((helm-ff-transformer-show-only-basename nil)
|
||||
;; for consistency, we should just let Projectile take care of ignored files
|
||||
(helm-boring-file-regexp-list nil))
|
||||
(helm :sources ,source
|
||||
:buffer "*helm projectile*"
|
||||
:prompt ">>> "))))
|
||||
|
||||
(helm-projectile-command "switch-project" 'helm-source-projectile-projects ">>> ")
|
||||
(helm-projectile-command "find-file" helm-source-projectile-files-and-dired-list ">>> ")
|
||||
(helm-projectile-command "find-file-in-known-projects" 'helm-source-projectile-files-in-all-projects-list ">>> ")
|
||||
(helm-projectile-command "find-file-dwim" 'helm-source-projectile-files-dwim-list ">>> ")
|
||||
(helm-projectile-command "find-dir" helm-source-projectile-directories-and-dired-list ">>> ")
|
||||
(helm-projectile-command "recentf" 'helm-source-projectile-recentf-list ">>> ")
|
||||
(helm-projectile-command "switch-to-buffer" 'helm-source-projectile-buffers-list ">>> ")
|
||||
|
||||
;; Hide the mode-line in helm (<3 minimalism)
|
||||
(defun helm-display-mode-line (source &optional force)
|
||||
"Setup mode-line and header-line for `helm-buffer'."
|
||||
(set (make-local-variable 'helm-mode-line-string)
|
||||
(helm-interpret-value (or (and (listp source) ; Check if source is empty.
|
||||
(assoc-default 'mode-line source))
|
||||
(default-value 'helm-mode-line-string))
|
||||
source))
|
||||
(let ((follow (and (eq (cdr (assq 'follow source)) 1) "(HF) ")))
|
||||
;; Setup mode-line.
|
||||
(if helm-mode-line-string
|
||||
(setq mode-line-format nil)
|
||||
(setq mode-line-format (default-value 'mode-line-format)))
|
||||
;; Setup header-line.
|
||||
(let* ((hlstr (helm-interpret-value
|
||||
(and (listp source)
|
||||
(assoc-default 'header-line source))
|
||||
source))
|
||||
(hlend (make-string (max 0 (- (window-width) (length hlstr))) ? )))
|
||||
(setq header-line-format
|
||||
(propertize (concat " " hlstr hlend) 'face 'helm-header))))
|
||||
(when force (force-mode-line-update)))
|
||||
|
||||
;; No persistent header
|
||||
(defadvice helm-display-mode-line (after undisplay-header activate)
|
||||
(setq header-line-format nil))))
|
||||
|
||||
;; For setting project-specific settings
|
||||
(defmacro project-settings (name &rest body)
|
||||
(declare (indent 1))
|
||||
`(progn
|
||||
(add-hook 'find-file-hook
|
||||
(lambda ()
|
||||
(when (string-match-p ,name (buffer-file-name))
|
||||
,@body)))
|
||||
(add-hook 'dired-after-readin-hook
|
||||
(lambda ()
|
||||
(when (string-match-p ,name (dired-current-directory))
|
||||
,@body)))))
|
||||
(use-package 'dired+ :config (toggle-diredp-find-file-reuse-dir 1)))))
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue