| | |
|---|
| | | (diminish 'flyspell-mode)
|
|---|
| | |
|
|---|
| | | #+END_SRC
|
|---|
| | | ** Language Tool
|
|---|
| | | ** COMMENT Language Tool
|
|---|
| | | Language tool is an open source grammar checker.
|
|---|
| | | #+BEGIN_SRC emacs-lisp
|
|---|
| | | (use-package langtool
|
|---|
| | |
|---|
| | | ** Switch-window
|
|---|
| | | Helps to change windows easily when many are open at once.
|
|---|
| | | #+BEGIN_SRC emacs-lisp
|
|---|
| | | (use-package switch-window
|
|---|
| | | :ensure t
|
|---|
| | | :config
|
|---|
| | | (setq switch-window-input-style 'minibuffer)
|
|---|
| | | (setq switch-window-increase 4)
|
|---|
| | | (setq switch-window-threshold 2)
|
|---|
| | | (setq switch-window-shortcut-style 'qwerty)
|
|---|
| | | (setq switch-window-qwerty-shortcuts
|
|---|
| | | '("a" "s" "d" "f" "j" "k" "l" "i" "o"))
|
|---|
| | | :bind
|
|---|
| | | ([remap other-window] . switch-window))
|
|---|
| | | (use-package switch-window
|
|---|
| | | :ensure t
|
|---|
| | | :config
|
|---|
| | | ;; (setq switch-window-input-style 'minibuffer)
|
|---|
| | | (setq switch-window-threshold 2)
|
|---|
| | | (setq switch-window-shortcut-style 'qwerty)
|
|---|
| | | :bind
|
|---|
| | | ([remap other-window] . switch-window))
|
|---|
| | | #+END_SRC
|
|---|
| | |
|
|---|
| | | ** Go to new window when opened
|
|---|
| | |
|---|
| | | #+END_SRC
|
|---|
| | | Shows trailing white space
|
|---|
| | | #+BEGIN_SRC emacs-lisp
|
|---|
| | | (add-hook 'prog-mode-hook (lambda () (interactive) (setq show-trailing-whitespace 1)))
|
|---|
| | | (add-hook 'prog-mode-hook (lambda () (interactive) (setq show-trailing-whitespace 1)))
|
|---|
| | | #+END_SRC
|
|---|
| | |
|
|---|
| | | ** Whitespace mode
|
|---|
| | |
|---|
| | | ** Garbage collection
|
|---|
| | | Starts garbage collection every 100MB.
|
|---|
| | | #+BEGIN_SRC emacs-lisp
|
|---|
| | | (setq gc-cons-threshold 100000000)
|
|---|
| | | (setq gc-cons-threshold (* 1024 1024 100))
|
|---|
| | | #+END_SRC
|
|---|
| | |
|
|---|
| | | ** Kill ring
|
|---|
| | |
|---|
| | | #+BEGIN_SRC emacs-lisp
|
|---|
| | | (setq c-default-style '((java-mode . "java")
|
|---|
| | | (awk-mode . "awk")
|
|---|
| | | (other . "linux")))
|
|---|
| | | (other . "k&r")))
|
|---|
| | | #+END_SRC
|
|---|
| | |
|
|---|
| | | ** Coding system
|
|---|
| | |
|---|
| | | (set-keyboard-coding-system 'utf-8)
|
|---|
| | | (set-language-environment "UTF-8")
|
|---|
| | | (prefer-coding-system 'utf-8)
|
|---|
| | | (setq-default indent-tabs-mode t
|
|---|
| | | tab-width 8
|
|---|
| | | (setq-default indent-tabs-mode nil
|
|---|
| | | tab-width 4
|
|---|
| | | c-basic-offset tab-width
|
|---|
| | | cperl-indent-level tab-width)
|
|---|
| | | (c-set-offset 'inline-open '0)
|
|---|
| | | (delete-selection-mode)
|
|---|
| | | (global-set-key (kbd "RET") 'newline-and-indent)
|
|---|
| | | #+END_SRC
|
|---|
| | | *** Smart tabs
|
|---|
| | | Tabs for indentation, spaces for alignment
|
|---|
| | | #+BEGIN_SRC emacs-lisp
|
|---|
| | | (use-package smart-tabs-mode
|
|---|
| | | :ensure t
|
|---|
| | | :config
|
|---|
| | | (smart-tabs-insinuate 'c 'c++ 'java 'javascript 'cperl 'python 'ruby
|
|---|
| | | 'nxml))
|
|---|
| | | #+END_SRC
|
|---|
| | |
|
|---|
| | | ** Move to beginning of line ignoring whitespace
|
|---|
| | |
|---|
| | | ;; (setq tramp-default-method "ssh")
|
|---|
| | | (when (eq system-type 'windows-nt)
|
|---|
| | | (setq tramp-default-method "pscp"))
|
|---|
| | | (setq password-cache-expiry nil))
|
|---|
| | | (setq password-cache-expiry nil)
|
|---|
| | | (add-to-list 'tramp-remote-path 'tramp-own-remote-path))
|
|---|
| | | #+END_SRC
|
|---|
| | |
|
|---|
| | | ** COMMENT Y or N instead of yes or no
|
|---|
| | |
|---|
| | | LaTeX-mode
|
|---|
| | | rust-mode
|
|---|
| | | sh-mode
|
|---|
| | | verilog-mode
|
|---|
| | | ;; verilog-mode
|
|---|
| | | go-mode) . lsp))
|
|---|
| | | :init
|
|---|
| | | (setq lsp-keymap-prefix "C-c l")
|
|---|
| | |
|---|
| | | Emacs git client.
|
|---|
| | | Pretty good and offers fairly decent features.
|
|---|
| | | #+BEGIN_SRC emacs-lisp
|
|---|
| | | (use-package magit
|
|---|
| | | :ensure t
|
|---|
| | | :commands magit-get-top-dir
|
|---|
| | | :bind ("C-x g" . magit-status)
|
|---|
| | | :init
|
|---|
| | | (progn
|
|---|
| | | ;; make magit status go full-screen but remember previous window
|
|---|
| | | ;; settings
|
|---|
| | | ;; from: http://whattheemacsd.com/setup-magit.el-01.html
|
|---|
| | | (defadvice magit-status (around magit-fullscreen activate)
|
|---|
| | | (window-configuration-to-register :magit-fullscreen)
|
|---|
| | | ad-do-it
|
|---|
| | | (delete-other-windows))
|
|---|
| | |
|
|---|
| | | ;; Close popup when committing - this stops the commit window
|
|---|
| | | ;; hanging around
|
|---|
| | | ;; From: http://git.io/rPBE0Q
|
|---|
| | | (defadvice git-commit-commit (after delete-window activate)
|
|---|
| | | (delete-window))
|
|---|
| | |
|
|---|
| | | (defadvice git-commit-abort (after delete-window activate)
|
|---|
| | | (delete-window))
|
|---|
| | |
|
|---|
| | | :config
|
|---|
| | | (use-package magit
|
|---|
| | | :ensure t
|
|---|
| | | :commands magit-get-top-dir
|
|---|
| | | :bind ("C-x g" . magit-status)
|
|---|
| | | :init
|
|---|
| | | (progn
|
|---|
| | | ;; restore previously hidden windows
|
|---|
| | | (defadvice magit-quit-window (around magit-restore-screen activate)
|
|---|
| | | (let ((current-mode major-mode))
|
|---|
| | | ad-do-it
|
|---|
| | | ;; we only want to jump to register when the last seen buffer
|
|---|
| | | ;; was a magit-status buffer.
|
|---|
| | | (when (eq 'magit-status-mode current-mode)
|
|---|
| | | (jump-to-register :magit-fullscreen)))))
|
|---|
| | | ;; make magit status go full-screen but remember previous window
|
|---|
| | | ;; settings
|
|---|
| | | ;; from: http://whattheemacsd.com/setup-magit.el-01.html
|
|---|
| | | (defadvice magit-status (around magit-fullscreen activate)
|
|---|
| | | (window-configuration-to-register :magit-fullscreen)
|
|---|
| | | ad-do-it
|
|---|
| | | (delete-other-windows))
|
|---|
| | |
|
|---|
| | | ;; magit settings
|
|---|
| | | (setq
|
|---|
| | | ;; don't put "origin-" in front of new branch names by default
|
|---|
| | | magit-default-tracking-name-function 'magit-default-tracking-name-branch-only
|
|---|
| | | ;; open magit status in same window as current buffer
|
|---|
| | | magit-status-buffer-switch-function 'switch-to-buffer
|
|---|
| | | ;; highlight word/letter changes in hunk diffs
|
|---|
| | | magit-diff-refine-hunk t
|
|---|
| | | ;; ask me if I want to include a revision when rewriting
|
|---|
| | | magit-rewrite-inclusive 'ask
|
|---|
| | | ;; ask me to save buffers
|
|---|
| | | magit-save-some-buffers t
|
|---|
| | | ;; pop the process buffer if we're taking a while to complete
|
|---|
| | | magit-process-popup-time 10
|
|---|
| | | ;; ask me if I want a tracking upstream
|
|---|
| | | magit-set-upstream-on-push 'askifnotset
|
|---|
| | | )))
|
|---|
| | | ;; Close popup when committing - this stops the commit window
|
|---|
| | | ;; hanging around
|
|---|
| | | ;; From: http://git.io/rPBE0Q
|
|---|
| | | (defadvice git-commit-commit (after delete-window activate)
|
|---|
| | | (delete-window))
|
|---|
| | |
|
|---|
| | | (defadvice git-commit-abort (after delete-window activate)
|
|---|
| | | (delete-window))
|
|---|
| | |
|
|---|
| | | :config
|
|---|
| | | (progn
|
|---|
| | | ;; restore previously hidden windows
|
|---|
| | | (defadvice magit-quit-window (around magit-restore-screen activate)
|
|---|
| | | (let ((current-mode major-mode))
|
|---|
| | | ad-do-it
|
|---|
| | | ;; we only want to jump to register when the last seen buffer
|
|---|
| | | ;; was a magit-status buffer.
|
|---|
| | | (when (eq 'magit-status-mode current-mode)
|
|---|
| | | (jump-to-register :magit-fullscreen)))))
|
|---|
| | |
|
|---|
| | | ;; magit settings
|
|---|
| | | (setq
|
|---|
| | | ;; don't put "origin-" in front of new branch names by default
|
|---|
| | | magit-default-tracking-name-function 'magit-default-tracking-name-branch-only
|
|---|
| | | ;; open magit status in same window as current buffer
|
|---|
| | | magit-status-buffer-switch-function 'switch-to-buffer
|
|---|
| | | ;; highlight word/letter changes in hunk diffs
|
|---|
| | | magit-diff-refine-hunk t
|
|---|
| | | ;; ask me if I want to include a revision when rewriting
|
|---|
| | | magit-rewrite-inclusive 'ask
|
|---|
| | | ;; ask me to save buffers
|
|---|
| | | magit-save-some-buffers t
|
|---|
| | | ;; pop the process buffer if we're taking a while to complete
|
|---|
| | | magit-process-popup-time 10
|
|---|
| | | ;; ask me if I want a tracking upstream
|
|---|
| | | magit-set-upstream-on-push 'askifnotset
|
|---|
| | | ))
|
|---|
| | | )
|
|---|
| | | #+END_SRC
|
|---|
| | |
|
|---|
| | | *** More general yes and no prompt
|
|---|
| | | The default setting can miss some.
|
|---|
| | | Don't redefine the regex in case this is too general.
|
|---|
| | | #+BEGIN_SRC emacs-lisp
|
|---|
| | | ;;(when-let ((regex "[\[\(]]?\\([Yy]\\(es\\)?\\)[/|]\\([Nn]o?\\)[\]\)]")
|
|---|
| | | (defun magit-process-general-yn-prompt-hook (proc str)
|
|---|
| | | "Handle [y/n] prompts"
|
|---|
| | | (when-let ((beg (string-match "[\[\(]]?\\([Yy]\\(es\\)?\\)[/|]\\([Nn]o?\\)[\]\)]" str)))
|
|---|
| | | (let ;; ((max-mini-window-height 30))
|
|---|
| | | (process-send-string
|
|---|
| | | proc
|
|---|
| | | (downcase
|
|---|
| | | (concat
|
|---|
| | | (match-string
|
|---|
| | | (if (save-match-data
|
|---|
| | | (magit-process-kill-on-abort proc
|
|---|
| | | (y-or-n-p (substring str 0 beg)))) 1 2)
|
|---|
| | | str)
|
|---|
| | | "\n"))))))
|
|---|
| | |
|
|---|
| | | (add-hook 'magit-process-prompt-functions
|
|---|
| | | #'magit-process-general-yn-prompt-hook)
|
|---|
| | | #+END_SRC
|
|---|
| | | *** Gerrit integration
|
|---|
| | | Gerrit takes ~origin:refs/for/master~ as a destination.
|
|---|
| | | Enable magit to work with its oddities.
|
|---|
| | | #+BEGIN_SRC emacs-lisp
|
|---|
| | | (use-package magit-gerrit
|
|---|
| | | :ensure t)
|
|---|
| | | #+END_SRC
|
|---|
| | |
|
|---|
| | | ** CEDET
|
|---|
| | | *** Semantic
|
|---|
| | | *** COMMENT Semantic
|
|---|
| | | Parser library for code, supports many other packages.
|
|---|
| | | Allows emacs to be more aware of what is being written.
|
|---|
| | | #+BEGIN_SRC emacs-lisp
|
|---|
| | |
|---|
| | |
|
|---|
| | | ** Language specific configs
|
|---|
| | | *** C/C++
|
|---|
| | | **** Flycheck clang
|
|---|
| | | **** Flycheck
|
|---|
| | | ***** Flycheck clang
|
|---|
| | | Add the clang backend for linting.
|
|---|
| | | #+BEGIN_SRC emacs-lisp
|
|---|
| | | (use-package flycheck-clang-analyzer
|
|---|
| | |
|---|
| | | (require 'flycheck-clang-analyzer)
|
|---|
| | | (flycheck-clang-analyzer-setup)))
|
|---|
| | | #+END_SRC
|
|---|
| | | ***** Flycheck project root
|
|---|
| | | Flycheck tends to fail finding the project root, giving errors about missing files.
|
|---|
| | | This should remove them.
|
|---|
| | | #+BEGIN_SRC emacs-lisp
|
|---|
| | | (defun setup-flycheck-project-path ()
|
|---|
| | | (let ((root (ignore-errors (projectile-project-root))))
|
|---|
| | | (when root
|
|---|
| | | (add-to-list
|
|---|
| | | (make-variable-buffer-local 'flycheck-clang-include-path)
|
|---|
| | | root)
|
|---|
| | | (add-to-list
|
|---|
| | | (make-variable-buffer-local 'flycheck-gcc-include-path)
|
|---|
| | | root))))
|
|---|
| | |
|
|---|
| | | **** Company
|
|---|
| | | (add-hook 'c-mode-hook 'setup-flycheck-project-path)
|
|---|
| | | (add-hook 'c++-mode-hook 'setup-flycheck-project-path)
|
|---|
| | | #+END_SRC
|
|---|
| | | **** COMMENT Company
|
|---|
| | | Add header completion as well as Irony, which uses clang for suggestions.
|
|---|
| | | #+BEGIN_SRC emacs-lisp
|
|---|
| | | (use-package company-c-headers
|
|---|
| | |
|---|
| | | :config
|
|---|
| | | (add-hook 'c++-mode-hook 'company-mode)
|
|---|
| | | (add-hook 'c-mode-hook 'company-mode))
|
|---|
| | |
|
|---|
| | | #+END_SRC
|
|---|
| | | **** COMMENT Irony
|
|---|
| | | #+BEGIN_SRC emacs-lisp
|
|---|
| | | (use-package irony
|
|---|
| | | :ensure t
|
|---|
| | | :init
|
|---|
| | |
|---|
| | | **** Clang-format
|
|---|
| | | Automatically format buffer on save.
|
|---|
| | | #+BEGIN_SRC emacs-lisp
|
|---|
| | | (when (file-exists-p "/usr/share/clang/clang-format.el")
|
|---|
| | | (load "/usr/share/clang/clang-format.el")
|
|---|
| | | (setq clang-format-linux-style (concat "{BasedOnStyle: LLVM,"
|
|---|
| | | "IndentWidth: 8,"
|
|---|
| | | "UseTab: Always,"
|
|---|
| | | "BreakBeforeBraces: Linux,"
|
|---|
| | | "AllowShortIfStatementsOnASingleLine: false,"
|
|---|
| | | "IndentCaseLabels: false}"))
|
|---|
| | | (setq-default clang-format-style clang-format-linux-style)
|
|---|
| | | (defun clang-format-on-save ()
|
|---|
| | | (add-hook 'before-save-hook 'clang-format-buffer nil t))
|
|---|
| | | (add-hook 'c-mode-hook 'clang-format-on-save nil t)
|
|---|
| | | (add-hook 'c++-mode-hook 'clang-format-on-save nil t))
|
|---|
| | | (defun set-clang-format-style ()
|
|---|
| | | (if (file-exists-p (concat
|
|---|
| | | (projectile-project-root)
|
|---|
| | | ".clang-format"))
|
|---|
| | | (setq-local clang-format-style nil)
|
|---|
| | | (setq-local clang-format-style (concat "{BasedOnStyle: LLVM,"
|
|---|
| | | "IndentWidth: " (format "%s" tab-width) ","
|
|---|
| | | "UseTab: " (if (eq indent-tabs-mode nil)
|
|---|
| | | "Never"
|
|---|
| | | "AlignWithSpaces")
|
|---|
| | | ","
|
|---|
| | | "BreakBeforeBraces: Linux,"
|
|---|
| | | "AllowShortIfStatementsOnASingleLine: false,"
|
|---|
| | | "IndentCaseLabels: false}"))))
|
|---|
| | |
|
|---|
| | | (use-package clang-format
|
|---|
| | | :ensure t
|
|---|
| | | :hook (c-mode-common . (set-clang-format-style)))
|
|---|
| | |
|
|---|
| | | ;; (defun clang-format-on-save ()
|
|---|
| | | ;; (add-hook 'before-save-hook 'clang-format-buffer nil t))
|
|---|
| | | ;; (add-hook 'c-mode-hook 'clang-format-on-save nil t)
|
|---|
| | | ;; (add-hook 'c++-mode-hook 'clang-format-on-save nil t))
|
|---|
| | | #+END_SRC
|
|---|
| | | *** emacs-lisp
|
|---|
| | | **** COMMENT Company
|
|---|
| | |
|---|
| | | :pin gnu
|
|---|
| | | :config
|
|---|
| | | (autoload 'verilog-mode "verilog-mode" "Verilog mode" t )
|
|---|
| | | (add-to-list 'auto-mode-alist '("\\.[ds]?va?h?\\'" . verilog-mode)))
|
|---|
| | | (add-to-list 'auto-mode-alist '("\\.[ds]?va?h?\\'" . verilog-mode))
|
|---|
| | | (setq-default verilog-align-ifelse t
|
|---|
| | | verilog-auto-delete-trailing-whitespace t
|
|---|
| | | verilog-auto-inst-param-value t
|
|---|
| | | verilog-auto-lineup 'all
|
|---|
| | | verilog-auto-newline nil
|
|---|
| | | verilog-auto-save-policy nil
|
|---|
| | | verilog-auto-template-warn-unused t
|
|---|
| | | verilog-auto-endcomments nil
|
|---|
| | | verilog-highlight-grouping-keywords t
|
|---|
| | | verilog-highlight-modules t
|
|---|
| | | verilog-tab-to-comment t
|
|---|
| | | verilog-indent-begin-after-if nil
|
|---|
| | | verilog-indent-lists nil
|
|---|
| | | verilog-case-indent 4
|
|---|
| | | verilog-cexp-indent 0
|
|---|
| | | verilog-indent-level 4
|
|---|
| | | verilog-indent-level-behavioral 4
|
|---|
| | | verilog-indent-level-declaration 4
|
|---|
| | | verilog-indent-level-directive 4
|
|---|
| | | verilog-indent-level-module 4))
|
|---|
| | | #+END_SRC
|
|---|
| | |
|
|---|
| | | #+END_SRC
|
|---|
| | | *** COMMENT MATLAB
|
|---|
| | | Mode for editing MATLAB m-files.
|
|---|
| | | #+BEGIN_SRC emacs-lisp
|
|---|
| | |
|---|
| | | (add-hook 'before-save-hook #'gofmt-before-save))
|
|---|
| | | #+END_SRC
|
|---|
| | |
|
|---|
| | | #+RESULTS:
|
|---|
| | | : t
|
|---|
| | |
|
|---|
| | | **** Flycheck
|
|---|
| | | #+BEGIN_SRC emacs-lisp
|
|---|
| | | (use-package flycheck-golangci-lint
|
|---|
| | |
|---|
| | | ** Small tweaks
|
|---|
| | | Small quality of life changes to org-mode.
|
|---|
| | | #+BEGIN_SRC emacs-lisp
|
|---|
| | | (setq org-src-fontify-natively t)
|
|---|
| | | (setq org-src-tab-acts-natively t)
|
|---|
| | | (setq org-confirm-babel-evaluate nil)
|
|---|
| | | (setq org-export-with-smart-quotes t)
|
|---|
| | | (setq org-src-window-setup 'current-window)
|
|---|
| | | (add-hook 'org-mode-hook 'org-indent-mode)
|
|---|
| | | (diminish 'org-indent-mode)
|
|---|
| | | (diminish 'visual-line-mode)
|
|---|
| | | (setq org-src-fontify-natively t
|
|---|
| | | org-src-tab-acts-natively t
|
|---|
| | | org-confirm-babel-evaluate nil
|
|---|
| | | org-export-with-smart-quotes t
|
|---|
| | | org-src-window-setup 'current-window)
|
|---|
| | | (add-hook 'org-mode-hook 'org-indent-mode)
|
|---|
| | | (diminish 'org-indent-mode)
|
|---|
| | | (diminish 'visual-line-mode)
|
|---|
| | | #+END_SRC
|
|---|
| | | *** Spell checking for code and latex
|
|---|
| | | #+BEGIN_SRC emacs-lisp
|
|---|
| | |
|---|
| | | :defer t)
|
|---|
| | | #+END_SRC
|
|---|
| | |
|
|---|
| | | * Journaling
|
|---|
| | | * COMMENT Journaling
|
|---|
| | | ** Noteworthy entries
|
|---|
| | | I write weekly journal entries recapping my week.
|
|---|
| | | These files are in org mode.
|
|---|
