You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
10 KiB
10 KiB
Global
Add features/modes
ibuffer-mode
(require 'ibuffer-vc)
(add-hook 'ibuffer-mode-hook (lambda ()
(ibuffer-vc-set-filter-groups-by-vc-root)))
(global-set-key (kbd "C-x C-b") 'ibuffer)
;; Use human readable Size column instead of original one
(define-ibuffer-column size-h
(:name "Size" ;; :inline t
)
(cond
((> (buffer-size) 1000000) (format "%7.1fM" (/ (buffer-size) 1000000.0)))
((> (buffer-size) 100000) (format "%7.0fk" (/ (buffer-size) 1000.0)))
((> (buffer-size) 1000) (format "%7.1fk" (/ (buffer-size) 1000.0)))
(t (format "%8d" (buffer-size)))))
;; Modify the default ibuffer-formats
(setq ibuffer-formats
'((mark modified read-only " "
(name 18 18 :left :elide)
" "
(size-h 9 -1 :right)
" "
(mode 16 16 :left :elide)
" "
filename-and-process)))
string-inflection
(require 'string-inflection)
;; C-q C-u is the key bindings similar to Vz Editor.
(global-set-key (kbd "C-M-,") 'my-string-inflection-cycle-auto)
(defun my-string-inflection-cycle-auto ()
"switching by major-mode"
(interactive)
(cond
;; for emacs-lisp-mode
((eq major-mode 'emacs-lisp-mode)
(string-inflection-all-cycle))
;; for python
((eq major-mode 'python-mode)
(string-inflection-python-style-cycle))
;; for java
((eq major-mode 'java-mode)
(string-inflection-java-style-cycle))
(t
;; default
(string-inflection-ruby-style-cycle))))
undo-tree
(require 'undo-tree) (global-undo-tree-mode)
ssh-config-mode
(require 'ssh-config-mode)
(add-to-list 'auto-mode-alist '("~/.ssh/config\\'" . ssh-config-mode))
yaml-mode
(require 'yaml-mode)
(add-to-list 'auto-mode-alist '("\\.yml\\'" . yaml-mode))
elpy move line up and down globally
(require 'elpy) (global-set-key (kbd "M-<up>") 'elpy-nav-move-line-or-region-up) (global-set-key (kbd "M-<down>") 'elpy-nav-move-line-or-region-down) (global-set-key (kbd "C-c <left>") 'windmove-left) (global-set-key (kbd "C-c <right>") 'windmove-right) (global-set-key (kbd "C-c <up>") 'windmove-up) (global-set-key (kbd "C-c <down>") 'windmove-down)
iedit-mode
(global-set-key (kbd "C-;") 'iedit-mode)
spellcheck entire buffer
(global-set-key (kbd "C-!") 'ispell-buffer)
find/replace
(require 'visual-regexp-steroids) (define-key global-map (kbd "C-c r") 'vr/replace) (define-key global-map (kbd "C-c q") 'vr/query-replace)
duplicate line function
(defun duplicate-line() (interactive) (move-beginning-of-line 1) (kill-line) (yank) (open-line 1) (next-line 1) (yank)) (global-set-key (kbd "C-c d") 'duplicate-line)
magit
(global-set-key (kbd "C-x g") 'magit-status)
(add-hook 'git-commit-setup-hook 'git-commit-turn-on-flyspell)
filename completion
(global-set-key (kbd "C->") 'comint-dynamic-complete-filename)
hippie expand
(global-set-key (kbd "M-/") 'hippie-expand) (setq hippie-expand-try-functions-list '(try-expand-dabbrev try-expand-dabbrev-all-buffers try-expand-dabbrev-from-kill try-complete-file-name-partially try-complete-file-name try-expand-all-abbrevs try-expand-list try-expand-line try-complete-lisp-symbol-partially try-complete-lisp-symbol))
window numbering mode
(window-numbering-mode)
options
global
recent files
(require 'recentf) (recentf-mode 1)
backup
(let ((backup-dir (concat user-emacs-directory "backup"))
(auto-save-dir (concat user-emacs-directory "autosave"))
)
(if (not (file-directory-p backup-dir))
(make-directory backup-dir))
(if (not(file-directory-p auto-save-dir))
(make-directory auto-save-dir)
)
(setq backup-directory-alist
`((".*" . , backup-dir)))
(setq auto-save-file-name-transforms
`((".*" , (concat auto-save-dir "/") t))))
kill buffer option
(global-set-key (kbd "C-x k") 'kill-this-buffer)
inhibit start screen
(setq inhibit-startup-screen t)
save options
(add-hook 'before-save-hook 'delete-trailing-whitespace)
theming
(load-theme 'dracula t)
bell
(mode-line-bell-mode)
ivy
(ivy-mode) (global-set-key (kbd "C-s") 'swiper)
kill-emacs key
(global-set-key (kbd "C-x C-k C-x C-k") 'kill-emacs)
linum
(global-display-line-numbers-mode)
enable commands
(put 'downcase-region 'disabled nil)
dired
(setq ls-lisp-use-insert-directory-program t)
(setq dired-listing-switches "-alh")
Tramp configuration
(add-to-list 'tramp-remote-path 'tramp-own-remote-path) (add-to-list 'tramp-remote-path "/system/xbin") (add-to-list 'tramp-remote-path "/data/data/com.termux/file/usr/bin")
Web things
javascript stuff
(require 'js2-mode)
(add-to-list 'auto-mode-alist '("\\.js\\'" . js2-mode))
(add-hook 'js2-mode-hook #'js2-imenu-extras-mode)
(require 'js2-refactor)
(require 'xref-js2)
(add-hook 'js2-mode-hook #'js2-refactor-mode)
(js2r-add-keybindings-with-prefix "C-c C-r")
(define-key js2-mode-map (kbd "C-k") #'js2r-kill)
(define-key js-mode-map (kbd "M-.") nil)
(add-hook 'js2-mode-hook (lambda ()
(add-hook 'xref-backend-functions #'xref-js2-xref-backend nil t)))
(define-key js2-mode-map (kbd "C-k") #'js2r-kill)
web mode
(require 'web-mode)
(add-to-list 'auto-mode-alist '("\\.phtml\\'" . web-mode))
(add-to-list 'auto-mode-alist '("\\.tpl\\.php\\'" . web-mode))
(add-to-list 'auto-mode-alist '("\\.[agj]sp\\'" . web-mode))
(add-to-list 'auto-mode-alist '("\\.as[cp]x\\'" . web-mode))
(add-to-list 'auto-mode-alist '("\\.erb\\'" . web-mode))
(add-to-list 'auto-mode-alist '("\\.mustache\\'" . web-mode))
(add-to-list 'auto-mode-alist '("\\.djhtml\\'" . web-mode))
(add-to-list 'auto-mode-alist '("\\.html?\\'" . web-mode))
Platform Specific
(cond
Windows
((string-equal system-type "windows-nt")
(progn
(defun rlbr/quote-exe (path)
(w32-short-file-name path))
(defun rlbr/start-external-shell ()
(interactive)
(start-process-shell-command (format "cmd(%s)" default-directory) nil "start default.bat"))
(global-set-key (kbd "C-S-C") 'rlbr/start-external-shell)
(defun rlbr/start-windows-explorer-here ()
(interactive)
(start-process-shell-command "explorer" nil
(format "explorer %s"
(replace-regexp-in-string "/" (regexp-quote "\\") (expand-file-name default-directory))))
)
(global-set-key (kbd "C-S-E") 'rlbr/start-windows-explorer-here)
(defun rlbr/case-insensitive-match (string1 string2)
(apply 'string-equal (mapcar 'downcase (list string1 string2))))
(defun rlbr/output-matches (output-matches-p exe args)
"locate the executable whose output satifies output-matches-p when fed args and return the fullpath"
(let
(
(exec-path exec-path)
(output)
(bad)
(command-output)
(current-exe)
(failed)
)
(while (not (or output failed))
(setq current-exe (executable-find exe))
(if current-exe
(progn
(setq command-output (shell-command-to-string (format "%s %s" (rlbr/quote-exe current-exe) args)))
(if (funcall output-matches-p command-output)
(setq output current-exe)
(progn
(setq bad (replace-regexp-in-string "/$" "" (file-name-directory current-exe)))
(setq exec-path (seq-filter (lambda (item) (not (rlbr/case-insensitive-match item bad))) exec-path)))))
(setq failed t)))
output))
(let
((find)
(grep)
(ls))
(progn
(setq find (rlbr/output-matches (lambda (output) (string-equal ".\n" output)) "find" "-maxdepth 0"))
(if find
(setq find-program (rlbr/quote-exe find)))
(setq grep (rlbr/output-matches (lambda (output) (string-match "grep (\\w+ grep)" output)) "grep" "-V"))
(if grep
(setq grep-program (rlbr/quote-exe grep)))
(setq ls (rlbr/output-matches (lambda (output) (string-match "ls: .*'\\?/': No such file or directory" output)) "ls" "?/"))
(if ls
(setq insert-directory-program (rlbr/quote-exe ls)))))
(setq python-shell-interpreter (rlbr/quote-exe (executable-find "python")))
(setq python-check-command (rlbr/quote-exe (executable-find "flake8")))
(setq delete-by-moving-to-trash t)
(defun python-shell-interpreter-refresh ()
(interactive)
(setq python-shell-interpreter (rlbr/quote-exe (executable-find "python"))))
(add-hook 'python-django-project-root-hook 'python-shell-interpreter-refresh)
))
Linux
((string-equal system-type "gnu/linux")
(progn
(setq python-shell-interpreter "python3")
(setq elpy-rpc-python-command python-shell-interpreter)
(defun get-elpa-package-install-directory (pkg)
"Return the install directory of elpa PKG. Return nil if it is not found."
(let ((elpa-dir package-user-dir))
(when (file-exists-p elpa-dir)
(let* ((pkg-match (concat "\\`" (symbol-name pkg) "-[0-9]+"))
(dir (car (directory-files elpa-dir 'full pkg-match))))
(when dir (file-name-as-directory dir))))))
(setq vr/command-python
(format "python3 %s" (expand-file-name "regexp.py" (get-elpa-package-install-directory 'visual-regexp-steroids))))
)))
Python
(elpy-enable) (when (require 'flycheck nil t) (setq elpy-modules (delq 'elpy-module-flymake elpy-modules)) (add-hook 'elpy-mode-hook 'flycheck-mode)) (require 'blacken) (defun python-mode-keys () "Modify python-mode local key map" (local-set-key (kbd "C-=") 'elpy-goto-assignment)) (add-hook 'python-mode-hook 'python-mode-keys) (add-hook 'elpy-mode-hook 'blacken-mode) (setq elpy-syntax-check-command python-check-command)