1
0
localhost/etc/emacs.el

190 lines
4.9 KiB
EmacsLisp
Raw Normal View History

2019-07-18 18:50:00 +00:00
;;
;;
;; Backups
;;
;;
;; Put autosave files (ie #foo#) and backup files (ie foo~) in ~/.emacs.d/.
(setq auto-save-file-name-transforms '((".*" "~/.emacs.d/autosaves/\\1" t)))
(setq backup-directory-alist '((".*" . "~/.emacs.d/backups/")))
;; Create the autosave dir if necessary, since emacs won't.
(make-directory "~/.emacs.d/autosaves/" t)
(make-directory "~/.emacs.d/backups/" t)
;;
;;
;; Appearance
;;
;;
;; Disable startup-message (show *scratch* buffer)
(setq inhibit-startup-message t)
;; Set *scratch* buffer mode
(setq initial-major-mode 'text-mode)
;; Disable all bar
(tool-bar-mode -1)
(menu-bar-mode -1)
(scroll-bar-mode -1)
;; Show time
(setq display-time-format "%H:%M")
(display-time-mode)
;; Show column (line, column)
(column-number-mode)
;; Indent style
(setq c-default-style "linux")
;; Highlight line
(global-hl-line-mode 1)
;; y-or-n instead of yes-or-no in kill buffer
(defalias 'yes-or-no-p 'y-or-n-p)
;; Set default font
;;(set-default-font "-unknown-Ubuntu Mono-normal-normal-normal-*-*-*-*-*-m-0-iso10646-1")
(set-default-font "Ubuntu Mono 10")
(setq-default indent-tabs-mode t)
;; Color theme
(require 'zenburn-theme)
(load-theme 'zenburn t)
;;
;;
;; Russian layout hotkeys hack
;;
;;
(defun reverse-input-method (input-method)
"Build the reverse mapping of single letters from INPUT-METHOD."
(interactive
(list (read-input-method-name "Use input method (default current): ")))
(if (and input-method (symbolp input-method))
(setq input-method (symbol-name input-method)))
(let ((current current-input-method)
(modifiers '(nil (control) (meta) (control meta))))
(when input-method
(activate-input-method input-method))
(when (and current-input-method quail-keyboard-layout)
(dolist (map (cdr (quail-map)))
(let* ((to (car map))
(from (quail-get-translation
(cadr map) (char-to-string to) 1)))
(when (and (characterp from) (characterp to))
(dolist (mod modifiers)
(define-key local-function-key-map
(vector (append mod (list from)))
(vector (append mod (list to)))))))))
(when input-method
(activate-input-method current))))
;; Hotkeys on russian layout
(reverse-input-method 'russian-computer)
;;
;;
;; Key bindings
;;
;;
(global-set-key (kbd "C-h") 'delete-backward-char)
(global-set-key (kbd "C-w") 'backward-kill-word)
(global-set-key (kbd "C-x f") 'recentf-ido-find-file)
(global-set-key (kbd "C-x C-b") 'ibuffer)
(global-set-key (kbd "M-x") 'smex)
(global-set-key (kbd "C-x C-m") 'smex)
(global-set-key (kbd "C-c C-m") 'smex)
(global-set-key (kbd "C-x C-k") 'kill-region)
(global-set-key (kbd "C-S-u") 'ucs-insert)
;;
;;
;; Goodies
;;
;;
(defun recentf-ido-find-file ()
"Find a recent file using ido."
(interactive)
(let ((file (ido-completing-read "Choose recent file: " recentf-list nil t)))
(when file
(find-file file))))
;;
;;
;; Loads
;;
;;
(require 'exec-path-from-shell)
(exec-path-from-shell-initialize)
(recentf-mode 1)
(put 'upcase-region 'disabled nil)
(setq inferior-lisp-program "sbcl")
(require 'slime)
(slime-setup '(slime-repl
slime-fuzzy
slime-fancy-inspector
slime-indentation))
(require 'git-gutter)
(global-git-gutter-mode t)
(add-hook 'before-save-hook #'gofmt-before-save)
(setq exec-path (split-string (getenv "PATH") ":"))
(defun auto-complete-for-go ()
(metafmt-mode 1)
(auto-complete-mode 1))
(add-hook 'go-mode-hook 'auto-complete-for-go)
(with-eval-after-load 'go-mode
(require 'go-autocomplete))
(add-hook 'vhdl-mode-hook (lambda () (setq vhdl-indent-tabs-mode t)))
(put 'downcase-region 'disabled nil)
;; Enable helm-gtags-mode
(add-hook 'c-mode-hook 'helm-gtags-mode)
(add-hook 'c++-mode-hook 'helm-gtags-mode)
(add-hook 'asm-mode-hook 'helm-gtags-mode)
;; Set key bindings
(eval-after-load "helm-gtags"
'(progn
(define-key helm-gtags-mode-map (kbd "M-t") 'helm-gtags-find-tag)
(define-key helm-gtags-mode-map (kbd "M-r") 'helm-gtags-find-rtag)
(define-key helm-gtags-mode-map (kbd "M-s") 'helm-gtags-find-symbol)
(define-key helm-gtags-mode-map (kbd "M-g M-p") 'helm-gtags-parse-file)
(define-key helm-gtags-mode-map (kbd "C-c <") 'helm-gtags-previous-history)
(define-key helm-gtags-mode-map (kbd "C-c >") 'helm-gtags-next-history)
(define-key helm-gtags-mode-map (kbd "M-,") 'helm-gtags-pop-stack)))
;; zsh is hell for ssh-tramp
(eval-after-load 'tramp '(setenv "SHELL" "/bin/bash"))
(eval-after-load "w3m"
'(progn
(require 'w3m-search)
(setq w3m-search-default-engine "duckduckgo")
(add-to-list 'w3m-search-engine-alist
'("duckduckgo" "https://www.duckduckgo.com/lite/?kd=-1&q=%s"))))
(setq rust-format-on-save t)
(setq mastodon-instance-url "lor.sh")
(setq gofmt-command "goimports")
(add-hook 'before-save-hook 'gofmt-before-save)
(setq elpy-rpc-python-command "python3")