heckyel/emacs-base
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add support init-modeline

Browse Source
This commit is contained in:
Jesús 2018-07-16 20:50:52 -05:00
parent 15ea85ee14
commit 107194da71
No known key found for this signature in database
GPG Key ID: F6EE7BC59A315766
3 changed files with 52 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
custom.el
View File

@ -3,6 +3,11 @@
;; If you edit it by hand, you could mess it up, so be careful. ;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance. ;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right. ;; If there is more than one, they won't work right.
'(anzu-deactivate-region t)
'(anzu-input-idle-delay 0.1)
'(anzu-replace-threshold 1000)
'(anzu-replace-to-string-separator " => ")
'(anzu-search-threshold 1000)
'(package-selected-packages (quote (nlinum sublime-themes fullframe)))) '(package-selected-packages (quote (nlinum sublime-themes fullframe))))
(custom-set-faces (custom-set-faces
;; custom-set-faces was added by Custom. ;; custom-set-faces was added by Custom.

1
init.el
View File

@ -32,6 +32,7 @@
(require 'init-nlinum) (require 'init-nlinum)
(require 'init-gui) (require 'init-gui)
(require 'init-editing-utils) (require 'init-editing-utils)
(require 'init-modeline)
;; ;;
;; Languages ;; Languages

46
lisp/init-modeline.el Normal file
View File

@ -0,0 +1,46 @@
;;----------------------------------------------------------------------------
;; Modeline configuration
;;----------------------------------------------------------------------------
(require-package 'smart-mode-line)
(require-package 'smart-mode-line-powerline-theme)
(require-package 'sml-modeline)
;; Show number of occurrences when searching
(require-package 'anzu)
(setq sml/theme 'powerline)
(setq sml/no-confirm-load-theme t)
(setq sml/shorten-modes t)
;; Show EOL mode
(setq sml/show-eol t)
;; Show remote buffers
(setq sml/show-remote t)
(sml/setup)
(add-to-list 'sml/replacer-regexp-list '("^~/Proyectos/git/" ":Git:") t)
(add-to-list 'sml/replacer-regexp-list '("^~/www/" ":www:") t)
(sml-modeline-mode t)
(custom-set-variables
'(anzu-search-threshold 1000)
'(anzu-replace-threshold 1000)
'(anzu-deactivate-region t)
'(anzu-input-idle-delay 0.1)
'(anzu-replace-to-string-separator " => "))
(global-anzu-mode +1)
(set-face-attribute 'anzu-mode-line nil
:foreground "yellow" :weight 'bold)
(define-key isearch-mode-map [remap isearch-query-replace] #'anzu-isearch-query-replace)
(define-key isearch-mode-map [remap isearch-query-replace-regexp] #'anzu-isearch-query-replace-regexp)
;;----------------------------------------------------------------------------
;; Keyboard shortcuts in Anzu Mode
;;----------------------------------------------------------------------------
(global-set-key (kbd "M-%") 'anzu-query-replace)
(global-set-key (kbd "s-<SPC>") 'anzu-query-replace)
(myemacs/elapsed-time)
(provide 'init-modeline)