;;; programming.el --- Module file for programming configuration. ;; ;; Copyright (C) 2017 Wojciech Kozlowski ;; ;; Author: Wojciech Kozlowski ;; Created: 28 Aug 2017 ;; ;; This file is not part of GNU Emacs. ;; ;;; Commentary: ;; ;; This module sets up packages and configuration for editing source code in ;; all languages. ;; ;;; License: GPLv3 ;;; Required packages: (setq emodule/programming-packages '(company flycheck flycheck-pos-tip highlight-numbers highlight-symbol racer rust-mode yasnippet) ) ;; Configuration: (defun emodule/programming-init () ;; -------------------------------------------------------------------------- ;; Company - complete anything. ;; -------------------------------------------------------------------------- (use-package company :init (add-hook 'after-init-hook 'global-company-mode) :config (setq company-backends (delete 'company-clang company-backends))) ;; -------------------------------------------------------------------------- ;; Flycheck mode. ;; -------------------------------------------------------------------------- (use-package flycheck :defer t :init (add-hook 'after-init-hook #'global-flycheck-mode) :config (require 'flycheck-pos-tip) (flycheck-pos-tip-mode)) ;; -------------------------------------------------------------------------- ;; Highlights. ;; -------------------------------------------------------------------------- (use-package highlight-numbers :init (add-hook 'prog-mode-hook 'highlight-numbers-mode)) (use-package highlight-symbol :init (highlight-symbol-nav-mode) (add-hook 'prog-mode-hook (lambda () (highlight-symbol-mode))) (add-hook 'org-mode-hook (lambda () (highlight-symbol-mode))) :bind (("M-n" . highlight-symbol-next) ("M-p" . highlight-symbol-prev)) :config (setq highlight-symbol-idle-delay 0.2 highlight-symbol-on-navigation-p t)) ;; -------------------------------------------------------------------------- ;; Configure Rust environment. ;; -------------------------------------------------------------------------- (use-package rust-mode :defer t) ;; This requires some additional setup as the racer binary must be installed ;; and the Rust libstd sources must be installed. ;; $ rustup component add rust-src ;; $ cargo install racer (use-package racer :init (add-hook 'rust-mode-hook #'racer-mode) (add-hook 'racer-mode-hook #'eldoc-mode) :config (setq-default racer-rust-src-path "~/.rustup/toolchains/stable-x86_64-unknown-linux-gnu/lib/rustlib/src/rust/src/") (require 'rust-mode) (define-key rust-mode-map (kbd "TAB") #'company-indent-or-complete-common) (setq company-tooltip-align-annotations t)) ;; -------------------------------------------------------------------------- ;; Enable yasnippet. ;; -------------------------------------------------------------------------- (use-package yasnippet :init (yas-global-mode 1)) ;; -------------------------------------------------------------------------- ;; Debugging options. ;; -------------------------------------------------------------------------- (use-package gud :defer t :config (setq gud-chdir-before-run nil)) (setq-default ;; Use gdb-many-windows by default. gdb-many-windows t ;; Display source file containing main. gdb-show-main t) ;; -------------------------------------------------------------------------- ;; Setup compilation-mode used by `compile' command ;; -------------------------------------------------------------------------- (use-package compile :bind (("C-c c c" . compile) ("C-c c r" . recompile)) :config (setq-default ;; Just save before compiling. compilation-ask-about-save nil ;; Just kill old compile processes before starting the new one. compilation-always-kill t ;; Automatically scroll to first error. compilation-scroll-output 'first-error)) ;; -------------------------------------------------------------------------- ;; Makefile settings. ;; -------------------------------------------------------------------------- (defun makefile-mode-tabs () (whitespace-toggle-options '(tabs)) (setq indent-tabs-mode t)) (add-hook 'makefile-mode-hook 'makefile-mode-tabs) ;; -------------------------------------------------------------------------- ;; Line numbers. ;; ;; Ideally, we could just use linum-format "%4d \u2502". However, the ;; unicode character for the vertical line causes the screen to flicker on ;; some screens when typing or moving the cursor. Using `nlinum' does not ;; solve the problem. A compromise is to instead use a whitespace character ;; of a different colour. ;; ;; Furthermore, since `linum' can struggle with large buffers, it is disabled ;; once the number of lines cannot fit into linum-format anymore. `nlinum' ;; is meant to solve the problem, but it updates line numbers after a visible ;; pause if a line is inderted/deleted. ;; -------------------------------------------------------------------------- (defun linum-format-func (line) (concat (propertize (format "%4d " line) 'face 'linum) (propertize " " 'face 'mode-line-inactive))) (setq-default linum-format 'linum-format-func) (add-hook 'prog-mode-hook '(lambda () (unless (> (count-lines (point-min) (point-max)) 9999) (linum-mode)))) ;; -------------------------------------------------------------------------- ;; Formatting settings. ;; -------------------------------------------------------------------------- (setq-default c-default-style "linux") ;; -------------------------------------------------------------------------- ;; Trailing whitespace. ;; -------------------------------------------------------------------------- ;; The following setting of `show-trailing-whitespace' is incompatible with ;; `fci-mode'. The only known workaround is to have whitespace mode on with ;; whitespace-style set such that only trailing whitespace is shown. (add-hook 'prog-mode-hook (lambda () (interactive) (setq show-trailing-whitespace t))) ;; -------------------------------------------------------------------------- ;; Automatically indent yanked text in programming mode. ;; -------------------------------------------------------------------------- (defvar yank-indent-modes '(LaTeX-mode TeX-mode) "Modes in which to indent regions that are yanked (or yank-popped). Only modes that don't derive from `prog-mode' should be listed here.") (defvar yank-indent-blacklisted-modes '(python-mode slim-mode haml-mode) "Modes for which auto-indenting is suppressed.") (defvar yank-advised-indent-threshold 10000 "Threshold (# chars) over which indentation does not automatically occur.") (defun yank-advised-indent-function (beg end) "Do indentation, as long as the region isn't too large." (if (<= (- end beg) yank-advised-indent-threshold) (indent-region beg end nil))) (defadvice yank (after yank-indent activate) "If current mode is one of 'yank-indent-modes, indent yanked text (with prefix arg don't indent)." (if (and (not (ad-get-arg 0)) (not (member major-mode yank-indent-blacklisted-modes)) (or (derived-mode-p 'prog-mode) (member major-mode yank-indent-modes))) (let ((transient-mark-mode nil)) (yank-advised-indent-function (region-beginning) (region-end))))) (defadvice yank-pop (after yank-pop-indent activate) "If current mode is one of `yank-indent-modes', indent yanked text (with prefix arg don't indent)." (when (and (not (ad-get-arg 0)) (not (member major-mode yank-indent-blacklisted-modes)) (or (derived-mode-p 'prog-mode) (member major-mode yank-indent-modes))) (let ((transient-mark-mode nil)) (yank-advised-indent-function (region-beginning) (region-end))))) )