mirror of https://github.com/balkian/dotfiles.git
Better emacs config
J. Fernando Sánchez
9 years ago
parent
bc8b9f26d7
commit
5b443ec699
@ -0,0 +1,25 @@
|
||||
(defun ergoemacs-open-in-external-app ()
|
||||
"Open the current file or dired marked files in external app."
|
||||
(interactive)
|
||||
(let ( doIt
|
||||
(myFileList
|
||||
(cond
|
||||
((string-equal major-mode "dired-mode") (dired-get-marked-files))
|
||||
(t (list (buffer-file-name))) ) ) )
|
||||
|
||||
(setq doIt (if (<= (length myFileList) 5)
|
||||
t
|
||||
(y-or-n-p "Open more than 5 files?") ) )
|
||||
|
||||
(when doIt
|
||||
(cond
|
||||
((string-equal system-type "windows-nt")
|
||||
(mapc (lambda (fPath) (w32-shell-execute "open" (replace-regexp-in-string "/" "\\" fPath t t)) ) myFileList)
|
||||
)
|
||||
((string-equal system-type "darwin")
|
||||
(mapc (lambda (fPath) (shell-command (format "open \"%s\"" fPath)) ) myFileList) )
|
||||
((string-equal system-type "gnu/linux")
|
||||
(mapc (lambda (fPath) (let ((process-connection-type nil)) (start-process "" nil "xdg-open" fPath)) ) myFileList) ) ) ) ) )
|
||||
|
||||
(define-key dired-mode-map (kbd "e") 'ergoemacs-open-in-external-app)
|
||||
(provide 'config-dired)
|
||||
@ -1,36 +1,67 @@
|
||||
;;
|
||||
;; Evil and keybindings
|
||||
;;
|
||||
;;; config-evil.el --- Configuration for evil and its keybindings
|
||||
;;; Commentary:
|
||||
;;; Code:
|
||||
(evil-mode)
|
||||
(require 'evil-nerd-commenter)
|
||||
(require 'evil-leader)
|
||||
(require 'evil-matchit)
|
||||
(require 'evil-nerd-commenter)
|
||||
(require 'evil-surround)
|
||||
(require 'evil-jumper)
|
||||
|
||||
;; Evil global modes
|
||||
(global-evil-matchit-mode 1)
|
||||
(global-evil-jumper-mode)
|
||||
(global-evil-surround-mode 1)
|
||||
|
||||
;; Evil global modes config
|
||||
(evilnc-default-hotkeys)
|
||||
(setq evil-default-cursor t)
|
||||
|
||||
;; Exclude modes from evil mode
|
||||
;; Evil global modes
|
||||
(global-evil-matchit-mode 1)
|
||||
(global-evil-surround-mode 1)
|
||||
(global-evil-jumper-mode)
|
||||
(global-evil-leader-mode)
|
||||
|
||||
;; exclude modes from evil mode
|
||||
(add-to-list 'evil-emacs-state-modes 'git-rebase-mode)
|
||||
(add-to-list 'evil-emacs-state-modes 'undo-tree-visualizer-mode)
|
||||
(add-to-list 'evil-emacs-state-modes 'neotree-mode)
|
||||
(add-to-list 'evil-emacs-state-modes 'dired-mode)
|
||||
|
||||
(defun next-code-buffer ()
|
||||
;;; Avoid special buffers when cycling through windows
|
||||
;;; http://stackoverflow.com/questions/14323516/make-emacs-next-buffer-skip-messages-buffer
|
||||
(interactive)
|
||||
(let (( bread-crumb (buffer-name) ))
|
||||
(next-buffer)
|
||||
(while
|
||||
(and
|
||||
(string-match-p "^\*" (buffer-name))
|
||||
(not ( equal bread-crumb (buffer-name) )) )
|
||||
(next-buffer))))
|
||||
|
||||
(defun previous-code-buffer ()
|
||||
(interactive)
|
||||
(let (( bread-crumb (buffer-name) ))
|
||||
(previous-buffer)
|
||||
(while
|
||||
(and
|
||||
(string-match-p "^\*" (buffer-name))
|
||||
(not ( equal bread-crumb (buffer-name) )) )
|
||||
(previous-buffer))))
|
||||
;;
|
||||
;; Evil keys
|
||||
;; cool jumping
|
||||
(evil-leader/set-leader "<SPC>")
|
||||
|
||||
(define-key evil-normal-state-map (kbd "[b") 'evil-next-buffer)
|
||||
(define-key evil-normal-state-map (kbd "]b") 'evil-prev-buffer)
|
||||
(define-key evil-normal-state-map (kbd "[b") 'previous-code-buffer)
|
||||
(define-key evil-normal-state-map (kbd "]b") 'next-code-buffer)
|
||||
(define-key evil-normal-state-map (kbd "s") 'evil-ace-jump-char-mode)
|
||||
(define-key evil-normal-state-map (kbd ",d") 'neotree-toggle)
|
||||
(define-key evil-normal-state-map (kbd ",u") 'undo-tree-visualize)
|
||||
|
||||
(define-key evil-normal-state-map (kbd "C-c +") 'evil-numbers/inc-at-pt)
|
||||
(define-key evil-normal-state-map (kbd "C-c -") 'evil-numbers/dec-at-pt)
|
||||
|
||||
(add-hook 'neotree-mode-hook
|
||||
(lambda ()
|
||||
(define-key evil-normal-state-local-map (kbd "TAB") 'neotree-enter)
|
||||
(define-key evil-normal-state-local-map (kbd "SPC") 'neotree-enter)
|
||||
(define-key evil-normal-state-local-map (kbd "q") 'neotree-hide)
|
||||
(define-key evil-normal-state-local-map (kbd "RET") 'neotree-enter)))
|
||||
|
||||
(provide 'config-evil)
|
||||
;;; config-evil.el ends here
|
||||
|
||||
@ -1,37 +1,80 @@
|
||||
;;; Helm
|
||||
(helm-mode 1)
|
||||
;;; config-file -- Helm configuration
|
||||
;;; Commentary:
|
||||
;;; The slowest part is actually loading helm-projectile
|
||||
;;; Code:
|
||||
|
||||
(require 'projectile)
|
||||
(require 'helm-projectile)
|
||||
(require 'helm-locate)
|
||||
(require 'helm)
|
||||
(require 'helm-config)
|
||||
(require 'helm-misc)
|
||||
(require 'helm-grep)
|
||||
(require 'helm-locate)
|
||||
(require 'helm-misc)
|
||||
(require 'projectile)
|
||||
(require 'helm-projectile)
|
||||
(setq helm-quick-update t)
|
||||
(setq helm-bookmark-show-location t)
|
||||
(setq helm-buffers-fuzzy-matching t)
|
||||
|
||||
;;; Save current position to mark ring
|
||||
(add-hook 'helm-goto-line-before-hook 'helm-save-current-pos-to-mark-ring)
|
||||
|
||||
;; Better helm fonts
|
||||
(set-face-attribute 'helm-selection nil :background "gold" :foreground "black")
|
||||
|
||||
;; Config
|
||||
;;; Keyboard mappings
|
||||
(define-key helm-map (kbd "<tab>") 'helm-execute-persistent-action) ; rebihnd tab to do persistent action
|
||||
(define-key helm-map (kbd "C-i") 'helm-execute-persistent-action) ; make TAB works in terminal
|
||||
(define-key helm-map (kbd "C-z") 'helm-select-action) ; list actions using C-z
|
||||
(define-key helm-grep-mode-map (kbd "<return>") 'helm-grep-mode-jump-other-window)
|
||||
(define-key helm-grep-mode-map (kbd "n") 'helm-grep-mode-jump-other-window-forward)
|
||||
(define-key helm-grep-mode-map (kbd "p") 'helm-grep-mode-jump-other-window-backward)
|
||||
(global-set-key (kbd "M-y") 'helm-show-kill-ring)
|
||||
(global-set-key (kbd "C-x b") 'helm-mini)
|
||||
(global-set-key (kbd "C-x C-f") 'helm-find-files)
|
||||
(global-set-key (kbd "C-h SPC") 'helm-all-mark-rings)
|
||||
(global-set-key (kbd "C-c h o") 'helm-occur)
|
||||
|
||||
;; Better helm fonts
|
||||
(set-face-attribute 'helm-selection nil :background "gold" :foreground "black")
|
||||
(define-key helm-grep-mode-map (kbd "<return>") 'helm-grep-mode-jump-other-window)
|
||||
(define-key helm-grep-mode-map (kbd "n") 'helm-grep-mode-jump-other-window-forward)
|
||||
(define-key helm-grep-mode-map (kbd "p") 'helm-grep-mode-jump-other-window-backward)
|
||||
|
||||
;;; Evil helm
|
||||
(define-key evil-normal-state-map (kbd "C-p") 'helm-mini)
|
||||
(define-key evil-normal-state-map (kbd "SPC") 'helm-M-x)
|
||||
(define-key evil-normal-state-map (kbd ",f") 'helm-occur)
|
||||
(evil-leader/set-key "<SPC>" 'helm-M-x)
|
||||
(define-key evil-normal-state-map (kbd ",f") 'helm-swoop)
|
||||
(define-key evil-normal-state-map (kbd ",a") 'helm-ag)
|
||||
(define-key evil-normal-state-map (kbd ",p") 'helm-show-kill-ring)
|
||||
(define-key evil-normal-state-map (kbd ",y") 'helm-show-kill-ring)
|
||||
|
||||
;;; Keyboard
|
||||
(global-set-key (kbd "M-x") 'helm-M-x)
|
||||
(define-key helm-map (kbd "C-w") 'backward-kill-word)
|
||||
(define-key helm-map (kbd "C-w") 'backward-kill-word)
|
||||
|
||||
;; use helm to list eshell history
|
||||
(add-hook 'eshell-mode-hook
|
||||
#'(lambda ()
|
||||
(define-key eshell-mode-map (kbd "M-l") 'helm-eshell-history)))
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; PACKAGE: helm-swoop ;;
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; Locate the helm-swoop folder to your path
|
||||
(require 'helm-swoop)
|
||||
;; Change the keybinds to whatever you like :)
|
||||
(global-set-key (kbd "C-c h o") 'helm-swoop)
|
||||
(global-set-key (kbd "C-c s") 'helm-multi-swoop-all)
|
||||
;; When doing isearch, hand the word over to helm-swoop
|
||||
(define-key isearch-mode-map (kbd "M-i") 'helm-swoop-from-isearch)
|
||||
;; From helm-swoop to helm-multi-swoop-all
|
||||
(define-key helm-swoop-map (kbd "M-i") 'helm-multi-swoop-all-from-helm-swoop)
|
||||
;; Save buffer when helm-multi-swoop-edit complete
|
||||
(setq helm-multi-swoop-edit-save t)
|
||||
;; If this value is t, split window inside the current window
|
||||
(setq helm-swoop-split-with-multiple-windows t)
|
||||
;; Split direcion. 'split-window-vertically or 'split-window-horizontally
|
||||
(setq helm-swoop-split-direction 'split-window-vertically)
|
||||
;; If nil, you can slightly boost invoke speed in exchange for text color
|
||||
(setq helm-swoop-speed-or-color t)
|
||||
|
||||
(helm-mode 1)
|
||||
(provide 'config-helm)
|
||||
|
||||
;;; config-helm.el ends here
|
||||
|
||||
Loading…
Reference in New Issue