emacs_config/settings.org

• Global
  • Add features/modes
    • undo-tree
    • ssh-config-mode
    • yaml-mode
    • elpy move line up and down globally
    • iedit-mode
    • spellcheck entire buffer
    • find/replace
    • duplicate line function
    • magit
  • options
    • global
      • recent files
      • backup
      • kill buffer option
      • inhibit start screen
      • save options
      • theming
      • bell
      • ivy
      • kill-emacs key
      • linum
    • dired
• Tramp configuration
• Web things
  • javascript stuff
  • web mode
• Platform Specific
  • Windows
  • Linux
• Python

Global

Add features/modes

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)

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)

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 quote-exe (path)
      (w32-short-file-name path))
    (defun start-external-shell ()
      (interactive)
      (start-process-shell-command (format "cmd(%s)" default-directory) nil "start default.bat"))
    (global-set-key (kbd "C-S-C") 'start-external-shell)
    (setq insert-directory-program "C:/Program Files/git/usr/bin/ls.exe")
    (setq find-program (quote-exe "C:/Program Files/git/usr/bin/find.exe"))
    (setq grep-program (quote-exe "C:/Program Files/git/usr/bin/grep.exe"))
    (setq python-shell-interpreter (quote-exe (executable-find "python")))
    (setq python-check-command (quote-exe (executable-find "flake8")))
    (setq delete-by-moving-to-trash t)
    (defun python-shell-interpreter-refresh ()
      (interactive)
      (setq python-shell-interpreter (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)