365 lines
9.4 KiB
Org Mode
365 lines
9.4 KiB
Org Mode
#+TITLE: Emacs configure
|
|
#+AUTHOR: Tuan-Dat Tran
|
|
#+DATE: <2018-01-11 Do>
|
|
#+EMAIL: tran.tuan-dat@mailbox.org
|
|
#+OPTIONS: ':nil *:t -:t ::t <:t H:3 \n:nil ^:t arch:headline
|
|
#+OPTIONS: author:t c:nil creator:comment d:(not "LOGBOOK") date:t
|
|
#+OPTIONS: e:t email:nil f:t inline:t num:t p:nil pri:nil stat:t
|
|
#+OPTIONS: tags:t tasks:t tex:t timestamp:t toc:t todo:t |:t
|
|
#+KEYWORDS:
|
|
#+LANGUAGE: en
|
|
#+SELECT_TAGS: export
|
|
|
|
* Packages
|
|
A list of installed packages and details about them.
|
|
** Package Archives
|
|
Adding the melpa package repository to Emacs.
|
|
#+BEGIN_SRC emacs-lisp
|
|
(require 'package)
|
|
(add-to-list 'package-archives
|
|
'("melpa" . "http://melpa.org/packages/"))
|
|
(package-initialize)
|
|
#+END_SRC
|
|
** Installed packages:
|
|
A require for all my installed packages, so that they are automatically installed
|
|
in case I want to setup my emacs on another pc he same way as always
|
|
#+BEGIN_SRC emacs-lisp
|
|
(unless (package-installed-p 'use-package)
|
|
(package-refresh-contents)
|
|
(package-install 'use-package))
|
|
|
|
(require 'use-package)
|
|
(setq use-package-always-ensure t)
|
|
|
|
(use-package anaconda-mode)
|
|
(use-package auctex
|
|
:defer t
|
|
:ensure t)
|
|
(use-package auto-complete)
|
|
(use-package auto-complete-auctex
|
|
:defer t
|
|
:ensure t)
|
|
(use-package counsel)
|
|
(use-package flycheck)
|
|
(use-package ivy)
|
|
(use-package ledger-mode)
|
|
(use-package paper-theme)
|
|
(use-package ox-gfm)
|
|
(use-package ox-twbs)
|
|
(use-package powerline)
|
|
(use-package rainbow-delimiters)
|
|
(use-package rainbow-mode)
|
|
(use-package smart-compile)
|
|
(use-package smartparens)
|
|
(use-package swiper)
|
|
(use-package visual-regexp)
|
|
#+END_SRC
|
|
* Appearance
|
|
Using the Molokai-Theme.
|
|
#+BEGIN_SRC emacs-lisp
|
|
(load-theme 'paper t)
|
|
#+END_SRC
|
|
|
|
Changes the Emacs background to the terminals defaults. (Generally)
|
|
#+BEGIN_SRC emacs-lisp
|
|
(add-hook 'window-setup-hook
|
|
'(lambda ()
|
|
(set-face-background 'default "unspecified-bg")))
|
|
#+END_SRC
|
|
|
|
Remove menubar
|
|
#+BEGIN_SRC emacs-lisp
|
|
(menu-bar-mode -1)
|
|
#+END_SRC
|
|
|
|
Powerline for Emacs
|
|
#+BEGIN_SRC emacs-lisp
|
|
(powerline-center-theme)
|
|
#+END_SRC
|
|
|
|
* Emacs behavior
|
|
Save auto-save files in ~/.emacs-save
|
|
#+BEGIN_SRC emacs-lisp
|
|
(f-mkdir "~/.emacs-saves")
|
|
(setq backup-directory-alist
|
|
'((".*" . "~/.emacs-saves/")))
|
|
(setq auto-save-file-name-transforms
|
|
'((".*" "~/.emacs-saves/" t)))
|
|
(setq custom-file "~/.emacs.d/config.el")
|
|
(setq auto-mode-alist (append '(("/tmp/mutt.*" . mail-mode)) auto-mode-alist))
|
|
#+END_SRC
|
|
|
|
Delete trailing spaces before saving
|
|
#+BEGIN_SRC emacs-lisp
|
|
(add-hook 'before-save-hook 'delete-trailing-whitespace)
|
|
#+END_SRC
|
|
|
|
* Functions
|
|
All the functions I use.
|
|
** Cut/Copy and Paste by Boruch Baum
|
|
A nice way to copy and paste contents comfortably inside and out of emacs.
|
|
*** Copy
|
|
Copy the marked area to the clipboard.
|
|
#+BEGIN_SRC emacs-lisp
|
|
(defun copy-to-xclipboard(arg)
|
|
(interactive "P")
|
|
(cond
|
|
((not (use-region-p))
|
|
(message "Nothing to yank to X-clipboard"))
|
|
((and (not (display-graphic-p))
|
|
(/= 0 (shell-command-on-region
|
|
(region-beginning) (region-end) "xsel -i -b")))
|
|
(error "Is program `xsel' installed?"))
|
|
(t
|
|
(when (display-graphic-p)
|
|
(call-interactively 'clipboard-kill-ring-save))
|
|
(message "Yanked region to X-clipboard")
|
|
(deactivate-mark))))
|
|
#+END_SRC
|
|
|
|
*** Cut
|
|
Cut the marked area to the clipboard.
|
|
#+BEGIN_SRC emacs-lisp
|
|
(defun cut-to-xclipboard(arg)
|
|
(interactive "P")
|
|
(cond
|
|
((not (use-region-p))
|
|
(message "Nothing to yank to X-clipboard"))
|
|
((and (not (display-graphic-p))
|
|
(/= 0 (shell-command-on-region
|
|
(region-beginning) (region-end) "xsel -i -b")))
|
|
(error "Is program `xsel' installed?"))
|
|
(t
|
|
(when (display-graphic-p)
|
|
(call-interactively 'clipboard-kill-ring-save))
|
|
(message "Yanked region to X-clipboard")
|
|
(kill-region (region-beginning) (region-end))
|
|
(deactivate-mark))))
|
|
#+END_SRC
|
|
|
|
*** Paste
|
|
Paste from the clipboard.
|
|
#+BEGIN_SRC emacs-lisp
|
|
(defun paste-from-xclipboard()
|
|
"Uses shell command `xsel -o' to paste from x-clipboard. With
|
|
one prefix arg, pastes from X-PRIMARY, and with two prefix args,
|
|
pastes from X-SECONDARY."
|
|
(interactive)
|
|
(if (display-graphic-p)
|
|
(clipboard-yank)
|
|
(let*
|
|
((opt (prefix-numeric-value current-prefix-arg))
|
|
(opt (cond
|
|
((= 1 opt) "b")
|
|
((= 4 opt) "p")
|
|
((= 16 opt) "s"))))
|
|
(insert (shell-command-to-string (concat "xsel -o -" opt))))))
|
|
#+END_SRC
|
|
|
|
** Personal functions
|
|
Go back to indentation, if you are at the indentation, go to beginning of the line instead.
|
|
#+BEGIN_SRC emacs-lisp
|
|
(defun back-to-indentation-or-beginning ()
|
|
"Go back to indentation, if at indentation go to beginning of line"
|
|
(interactive)
|
|
(if (= (point) (progn (back-to-indentation) (point)))
|
|
(beginning-of-line)))
|
|
#+END_SRC
|
|
|
|
Sets the background of Emacs in terminal-mode to the terminals. Doesn't change it in window
|
|
mode though.
|
|
Function is not currently used since I still have to figure out how to make it work with emacs in daemon mode
|
|
#+BEGIN_SRC emacs-lisp
|
|
(defun transparent-terminal ()
|
|
(unless (display-graphic-p (selected-frame))
|
|
(set-face-background 'default "unspecified-bg" (selected-frame))))
|
|
#+END_SRC
|
|
|
|
Copy word
|
|
#+BEGIN_SRC emacs-lisp
|
|
(defun copy-word (&optinal arg)
|
|
"Copy words at point into kill-ring"
|
|
(interactive "P")
|
|
(copy-thing 'backward-word 'forward-word arg)
|
|
)
|
|
#+END_SRC
|
|
|
|
#+BEGIN_SRC emacs-lisp
|
|
(defun insert-current-date () (interactive)
|
|
(insert (shell-command-to-string "echo -n $(date +%d.%m.%Y)")))
|
|
#+END_SRC
|
|
|
|
#+BEGIN_SRC emacs-lisp
|
|
(defun insert-current-time () (interactive)
|
|
(insert (shell-command-to-string "echo -n $(date +%H:%M)")))
|
|
#+END_SRC
|
|
|
|
* Modes
|
|
** Window Modes
|
|
** Autocomplete
|
|
#+BEGIN_SRC emacs-lisp
|
|
(ac-config-default)
|
|
|
|
#+END_SRC
|
|
** Python
|
|
Using Anaconda-mode as default python development mode
|
|
#+BEGIN_SRC emacs-lisp
|
|
(add-hook 'python-mode-hook 'anaconda-mode)
|
|
(add-hook 'python-mode-hook 'anaconda-eldoc-mode)
|
|
#+END_SRC
|
|
** Java
|
|
#+BEGIN_SRC emacs-lisp
|
|
(add-hook
|
|
'java-mode-hook
|
|
(lambda()
|
|
(local-set-key (kbd "C-c C-c") #'smart-compile)
|
|
(local-set-key (kbd "C-c /") #'comment-region)))
|
|
#+END_SRC
|
|
|
|
** C++
|
|
My exec doesnt quite work yet.
|
|
#+BEGIN_SRC emacs-lisp
|
|
;;(defun my-exec ()
|
|
;; (interactive)
|
|
;; (let ((exe (smart-compile-string "%n")))
|
|
;; (with-current-buffer "*eshell*"
|
|
;; (goto-char (point-max))
|
|
;; (insert "./")
|
|
;; (insert exe)
|
|
;; (eshell-send-input))
|
|
;; (switch-to-buffer-other-window "*eshell*")))
|
|
(add-hook
|
|
'c++-mode-hook
|
|
(lambda()
|
|
(local-set-key (kbd "C-c C-c") #'smart-compile)
|
|
(local-set-key (kbd "C-c /") #'comment-region)))
|
|
#+END_SRC
|
|
|
|
** NASM
|
|
#+BEGIN_SRC emacs-lisp
|
|
(add-to-list 'auto-mode-alist '("\\.\\(asm\\|s\\)$" . nasm-mode))
|
|
#+END_SRC
|
|
|
|
** LaTeX
|
|
Some default settings for LaTeX-Mode.
|
|
AucTeX is needed.
|
|
#+BEGIN_SRC emacs-lisp
|
|
(setq TeX-auto-save t)
|
|
(setq TeX-parse-self t)
|
|
(setq-default TeX-master nil)
|
|
#+END_SRC
|
|
** Org
|
|
Use Evince as default pdf viewer.
|
|
#+BEGIN_SRC emacs-lisp
|
|
(add-hook 'org-mode-hook
|
|
'(lambda ()
|
|
(delete '("\\.pdf\\'" . default) org-file-apps)
|
|
(add-to-list 'org-file-apps '("\\.pdf\\'" . "evince %s"))))
|
|
#+END_SRC
|
|
|
|
Enable syntax highlighting in Org-mode.
|
|
#+BEGIN_SRC emacs-lisp
|
|
(add-hook 'org-mode-hook
|
|
'(lambda ()
|
|
(setq org-src-fontify-natively t)))
|
|
#+END_SRC
|
|
|
|
Enable
|
|
Enable automatic translation of special characters
|
|
#+BEGIN_SRC emacs-lisp
|
|
(add-hook 'org-mode-hook
|
|
'(lambda ()
|
|
(setq org-pretty-entities t)))
|
|
#+END_SRC
|
|
|
|
Add rainbow-delimiters in org-mode
|
|
#+BEGIN_SRC emacs-lisp
|
|
(add-hook 'org-mode-hook 'rainbow-delimiters-mode)
|
|
#+END_SRC
|
|
|
|
Handy shortcuts
|
|
#+BEGIN_SRC emacs-lisp
|
|
(define-key global-map "\C-ca" 'org-agenda)
|
|
(define-key global-map "\C-cl" 'org-store-link)
|
|
(setq org-log-done t)
|
|
#+END_SRC
|
|
|
|
GNU Plot
|
|
#+BEGIN_SRC emacs-lisp
|
|
(add-hook 'org-mode-hook
|
|
'(lambda ()
|
|
(local-set-key (kbd "C-c c") #'org-plot/gnuplot)))
|
|
#+END_SRC
|
|
|
|
Enabled languages:
|
|
#+BEGIN_SRC emacs-lisp
|
|
(org-babel-do-load-languages
|
|
'org-babel-load-languages
|
|
'( (python . t)
|
|
(emacs-lisp . t)
|
|
(C . t)
|
|
(gnuplot . t)
|
|
(latex . t)
|
|
(shell . t)
|
|
))
|
|
#+END_SRC
|
|
|
|
** Ivy/Counsel/Swiper
|
|
#+BEGIN_SRC emacs-lisp
|
|
(counsel-mode 1)
|
|
(global-set-key "\C-s" 'swiper)
|
|
#+END_SRC
|
|
** Parenthesis
|
|
#+BEGIN_SRC emacs-lisp
|
|
;; (require 'paren)
|
|
(setq show-paren-style 'parenthesis)
|
|
(show-paren-mode 1)
|
|
#+END_SRC
|
|
** Highlight line
|
|
Globaly highlight the current line in a slightly darker shade of grey.
|
|
#+BEGIN_SRC emacs-lisp
|
|
(global-hl-line-mode 1)
|
|
(set-face-background 'hl-line "#141b1e")
|
|
(set-face-foreground 'highlight nil)
|
|
#+END_SRC
|
|
** Yasnippet
|
|
#+BEGIN_SRC emacs-lisp
|
|
;; (require 'yasnippet)
|
|
(setq yas-snippet-dirs
|
|
'("~/.emacs.d/snippets/"))
|
|
(yas-global-mode 1)
|
|
#+END_SRC
|
|
|
|
** Ledger
|
|
#+BEGIN_SRC emacs-lisp
|
|
(org-babel-load-file "~/.emacs.d/ledger.org")
|
|
#+END_SRC
|
|
** Personal Global
|
|
#+BEGIN_SRC emacs-lisp
|
|
(defvar my-keys-minor-mode-map
|
|
(let ((map (make-sparse-keymap)))
|
|
(define-key map (kbd "C-a") 'back-to-indentation-or-beginning)
|
|
(define-key map (kbd "C-c M-w") 'copy-to-xclipboard)
|
|
(define-key map (kbd "C-c C-w") 'cut-to-xclipboard)
|
|
(define-key map (kbd "C-c M-y") 'paste-from-xclipboard)
|
|
(define-key map (kbd "C-c w") 'copy-word)
|
|
(define-key map (kbd "C-c r") 'vr/query-replace)
|
|
(define-key map (kbd "M-/") 'comment-region)
|
|
(define-key map (kbd "C-c d") 'insert-current-date)
|
|
(define-key map (kbd "C-c t") 'insert-current-time)
|
|
map)
|
|
"my-keys-minor-mode keymap.")
|
|
|
|
(define-minor-mode my-keys-minor-mode
|
|
"A minor mode so that my key settings override annoying major modes."
|
|
:init-value t
|
|
:lighter " my-keys")
|
|
|
|
(my-keys-minor-mode 1)
|
|
#+END_SRC
|
|
|
|
** Conf
|
|
#+BEGIN_SRC emacs-lisp
|
|
(add-hook 'conf-mode 'rainbow-mode)
|
|
#+END_SRC
|