init.el

;; -*- emacs-lisp -*-
;; ~/.emacs.d/init.el
;; http://github.com/jbmaillet/.emacs.d
;; see:
;; http://tuhdo.github.io/emacs-tutor.html

;; Built-in setups.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; Garbage collection.
(setq gc-cons-threshold (* 20 1024 1024))

;; Starts server if not already running.
(load "server")
(unless (server-running-p) (server-start))

;; Note that elpy require pip install of flake8 and jedi
;; Maximize + dark background
(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(ecb-options-version "2.50")
 '(frame-background-mode (quote dark))
 '(initial-frame-alist (quote ((fullscreen . maximized))))
 '(package-selected-packages
   (quote
    (
     ecb
     elpy
     vagrant-tramp
     subatomic256-theme
     dockerfile-mode
     mastodon
     typing
     speed-type
     keyfreq
     yaml-mode
     use-package
     sr-speedbar
     markdown-mode
     magit-filenotify
     ibuffer-vc
     ibuffer-projectile
     fic-mode
     dtrt-indent
     company
     color-theme-solarized
     )
    )
   )
 )

;; No toolbar.
(tool-bar-mode -1)

;; No splashscreen.
(setq inhibit-splash-screen t)

;; Flash screen instead of beeping.
(setq visible-bell t)

;; For fill-paragraph (M-q)
(setq-default fill-column 79)

;; Save last session state at exit.
;; note: default temp file is ~/.emacs.d/.emacs.desktop)
(desktop-save-mode t)
;; Maximum number of buffers to restore immediately. Remaining buffers are restored “lazily”, when Emacs is idle.
(setq desktop-restore-eager 4)

;; Add recent files to the 'File' menu.
(recentf-mode t)
(setq recentf-max-menu-items 25)

;; For buffers visited but no longer open, remember point position.
(setq save-place-limit 100)
(setq save-place-file "~/.emacs.d/saved-places")
(setq-default save-place t)
(setq save-place-forget-unreadable-files nil)

;; Ignore case when using completion for file names.
(setq read-file-name-completion-ignore-case t)

;; Navigate among windows by shift-up, shift-down, shift-left, shift-right.
(windmove-default-keybindings)

;; Ubiquitous font, reasonable size.
(add-to-list 'default-frame-alist
			 '(font . "DejaVu Sans Mono-10"))

;; Show line and column number in the mode line.
(setq line-number-mode t)
(setq column-number-mode t)

;; Highlight cursor line.
(global-hl-line-mode t)

;; Sentences end with one space.
(setq sentence-end-double-space nil)

;; Stop forcing me to spell out "yes".
(fset 'yes-or-no-p 'y-or-n-p)

;; Undo level.
(setq undo-limit 160000) ; default value 80000

;; Wrap (do not truncate) long lines when using split window.
(setq truncate-partial-width-windows nil)

;; Syntax highlighting.
(setq global-font-lock-mode t)

;; See matching pairs of parentheses and other characters.
;; When point is on one of the paired characters, the other is highlighted.
(show-paren-mode t)

;; Unicode / UTF-8
(set-language-environment "UTF-8")
(set-default-coding-systems 'utf-8)

;; Visualize trailing whitespace...
(setq show-trailing-whitespace t)
;; ...but disable it in certain modes where it doesn't make sense.
(add-hook 'buffer-menu-mode-hook (lambda () (setq show-trailing-whitespace nil)))
(add-hook 'shell-mode-hook (lambda () (setq show-trailing-whitespace nil)))
(add-hook 'term-mode-hook (lambda () (setq show-trailing-whitespace nil)))

;; Require a newline at the end of files.
(setq require-final-newline t)

;; Never used this in years
(setq make-backup-files         nil) ; Don't want any backup files
(setq auto-save-list-file-name  nil) ; Don't want any .saves files
(setq auto-save-default         nil) ; Don't want any auto saving

;; Interactively DO things:
(setq ido-enable-flex-matching t)
(setq ido-everywhere t)
(setq ido-file-extensions-order     '(".c" ".h" ".cpp" ".sh"))
(setq completion-ignored-extensions '(".o" ".elc" "~" ".a" ".so"))
(ido-mode 1)

;; Indentation:
(setq c-default-style "linux")
;; Set appearance of a tab to 8 spaces.
(setq-default c-basic-offset 8
			  tab-width 8
			  indent-tabs-mode t)

;; Color theme: most don't get along well with global-hl-line-mode
;; (load-theme 'leuven t) ;; light
;;(load-theme 'tango t) ;; light, but does not handle transient mark mode correctly
;;(load-theme 'tsdh-dark t) ;; dark but OK

;; Mouse
(global-set-key [mouse-3] 'imenu) ;; FIXME OK with C, not C++ (example does not jump to method)

;; semantic
;; See http://alexott.net/en/writings/emacs-devenv/EmacsCedet.html
(semantic-mode t)
(global-semantic-idle-scheduler-mode t)
(global-semanticdb-minor-mode t)

;; shell: do not open a new window with the list of completions, use company instead.
(add-hook 'shell-mode-hook #'company-mode)
(eval-after-load 'shell-mode
  '(define-key shell-mode-map (kbd "TAB") #'company-manual-begin))

;; term: always use bash
(defvar my-term-shell "/bin/bash")
(defadvice ansi-term (before force-bash)
  (interactive (list my-term-shell)))
(ad-activate 'ansi-term)

;; “Active processes exist; kill them and exit anyway?” YES
;; (magit)
(add-hook 'comint-exec-hook
	  (lambda () (set-process-query-on-exit-flag (get-buffer-process (current-buffer)) nil)))

;; ibuffer auto-refresh
(add-hook 'ibuffer-mode-hook (lambda () (ibuffer-auto-mode t)))

;; Example config for Qt:
;(setq auto-mode-alist (cons '("\\.ui\\'" . xml-mode) auto-mode-alist)) ; ui file as XML
;(add-to-list 'auto-mode-alist
;	     '("/usr/include/qt4" . c++-mode))
;(semantic-add-system-include
; "/usr/include/qt4" 'c++-mode)
;(add-to-list 'semantic-lex-c-preprocessor-symbol-file
;	     "/usr/include/qt4/Qt/qconfig.h")
;(add-to-list 'semantic-lex-c-preprocessor-symbol-file
;	     "/usr/include/qt4/Qt/qconfig-dist.h")

;; init.el trash - stuff I tried, didn't like, but may worth another try
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; Autocomplete paired brackets.
; (electric-pair-mode t)

;; Highlight entire bracket expression.
; (setq show-paren-style 'expression)

;; Highlights suspicious C and C++ constructions.
; (global-cwarn-mode t)

;; Tip of the day.
;(use-package totd)
;(totd-start)

;; Functions
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun top-join-line ()
  "Join the current line with the line beneath it."
  (interactive)
  (delete-indentation 1))
(global-set-key (kbd "C-^") 'top-join-line)

;; No prompt for "...has a running process” on killing term
(defun set-no-process-query-on-exit ()
  (let ((proc (get-buffer-process (current-buffer))))
    (when (processp proc)
      (set-process-query-on-exit-flag proc nil))))
(add-hook 'term-exec-hook 'set-no-process-query-on-exit) ;; TODO 20151112 same for shell-mode

(defun smart-beginning-of-line ()
  "Move point to first non-whitespace character or beginning-of-line.

Move point to the first non-whitespace character on this line.
If point was already at that position, move point to beginning of line."
  (interactive)
  (let ((oldpos (point)))
    (back-to-indentation)
    (and (= oldpos (point))
         (beginning-of-line))))
(global-set-key [home] 'smart-beginning-of-line)
(global-set-key "\C-a" 'smart-beginning-of-line)

;; Decides whether .h file is C or C++ header, sets C++ by default
;; because there's more chance of there being a .h without a .cc
;; than a .h without a .c (ie. for C++ template files)
(defun c-c++-header ()
  "sets either c-mode or c++-mode, whichever is appropriate for
header"
  (interactive)
  (let ((c-file (concat (substring (buffer-file-name) 0 -1) "c")))
    (if (file-exists-p c-file)
        (c-mode)
      (c++-mode))))
(add-to-list 'auto-mode-alist '("\\.h\\'" . c-c++-header))

(defun c-c++-toggle ()
  "toggles between c-mode and c++-mode"
  (interactive)
  (cond ((string= major-mode "c-mode")
         (c++-mode))
        ((string= major-mode "c++-mode")
         (c-mode))))

(defun bury-compile-buffer-if-successful (buffer string)
  "Bury a compilation buffer if succeeded without warnings "
  (if (and
       (string-match "compilation" (buffer-name buffer))
       (string-match "finished" string)
       (not
        (with-current-buffer buffer
          (goto-char 1)
          (search-forward "warning" nil t))))
      (run-with-timer 1 nil
                      (lambda (buf)
                        (bury-buffer buf)
                        (switch-to-prev-buffer (get-buffer-window buf) 'kill))
                      buffer)))
(add-hook 'compilation-finish-functions 'bury-compile-buffer-if-successful)

;; Not built-in
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(require 'package)
(add-to-list 'package-archives
	     '("gnu" . "http://elpa.gnu.org/packages/"))
(add-to-list 'package-archives
             '("melpa" . "https://melpa.org/packages/"))
(package-initialize)

;; Add subdirs recursively
(let ((default-directory "~/.emacs.d"))
  (normal-top-level-add-subdirs-to-load-path))

(if (not (package-installed-p 'use-package))
    (progn
      (package-refresh-contents)
      (package-install 'use-package)))
(require 'use-package)
;; Install packages automatically if not already present on the system
(setq use-package-always-ensure t)

;; Solarized
;; For screenshots, details and colorscheme versions for Vim, Mutt,
;; popular terminal emulators and other applications:
;; http://ethanschoonover.com/solarized
;; https://github.com/altercation/solarized
;; Solarized Emacs setup:
;; https://github.com/sellout/emacs-color-theme-solarized/pull/187
(setq color-themes '())
(use-package color-theme-solarized
  :config
  (customize-set-variable 'frame-background-mode 'dark)
(load-theme 'solarized t))
;; To switch between the light and dark variations of Solarized, set
;; the frame’s background-mode. This can be accomplished globally
;; using M-x customize-variable frame-background-mode or on a
;; per-frame basis with (set-frame-parameter nil 'background-mode
;; 'light) (or 'dark).

;; 256 color them for terminal
(load-theme 'subatomic256 t)
;; automatically swich between solarized (GUI) and subatomic256 (terminal)
(if (display-graphic-p)
    (enable-theme 'solarized)
  (enable-theme 'subatomic256))

;; A minor mode that guesses the indentation offset originally used for creating source code files
;; and transparently adjusts the corresponding settings in Emacs, making it more convenient to edit foreign files.
(use-package dtrt-indent
  :config
  (dtrt-indent-mode 1))

;; A better speedbar
(use-package sr-speedbar
  :init
  (setq sr-speedbar-auto-refresh t)
  (global-set-key (kbd "<f6>") 'sr-speedbar-toggle))

;; Show FIXME/TODO/BUG/KLUDGE in special face only in comments and strings
(use-package fic-mode
  :init
  (add-hook 'c-mode-hook 'turn-on-fic-mode)
  (add-hook 'c++-mode-hook 'turn-on-fic-mode))

;; completion
(use-package company
  :init
  (add-hook 'after-init-hook 'global-company-mode))

;; projectile
(use-package projectile
  :config
  (projectile-global-mode 1)
  :init
  (setq projectile-indexing-method 'native) ; this also enable caching
  (setq projectile-completion-system 'default))

(use-package ibuffer-projectile
  :init
  ;; Group buffers in ibuffer list by projectile project.
  (add-hook 'ibuffer-hook
	    (lambda ()
	      (ibuffer-projectile-set-filter-groups)
	      (unless (eq ibuffer-sorting-mode 'alphabetic)
		(ibuffer-do-sort-by-alphabetic)))))

(use-package ibuffer-vc
  :init
  ;; Version control status info in ibuffer list
  ;; note: ibuffer-auto-mode (auto-refresh) must be on for this to work correctly
  (setq ibuffer-formats
	'((mark modified read-only vc-status-mini " "
		(name 18 18 :left :elide)
		" "
		(size 9 -1 :right)
		" "
		(mode 16 16 :left :elide)
		" "
		(vc-status 16 16 :left)
		" "
		filename-and-process))))

;; Turn on auto complete.
;;(require 'auto-complete-config) ;; 20151111: definitely broken?
;;(use-package auto-complete-config) ;; 20151109: error: Package `auto-complete-config-' is unavailable
;:(ac-config-default)

(use-package magit)

(use-package magit-filenotify
  :init
  (add-hook 'magit-status-mode-hook 'magit-filenotify-mode))

;; http://jblevins.org/projects/markdown-mode/
(use-package markdown-mode
  :ensure t
  :commands (markdown-mode gfm-mode)
  :mode (("README\\.md\\'" . gfm-mode)
         ("\\.md\\'" . markdown-mode)
         ("\\.markdown\\'" . markdown-mode))
  :init (setq markdown-command "multimarkdown"))

(use-package yaml-mode
  :mode (("\\.yaml\\'" . yaml-mode)
         ("\\.yml\\'" . yaml-mode)))

;; Use `keyfreq-show' to see how many times you used a command.
(use-package keyfreq
  :init
  (setq keyfreq-excluded-commands
        '(self-insert-command
          ;;abort-recursive-edit
          ;;forward-char
          ;;backward-char
          ;;previous-line
          ;;next-line
          ;;newline
          proj-open-file
          save-buffer
          yank))
  :config
  (keyfreq-mode 1)
(keyfreq-autosave-mode 1))

(use-package mastodon
  :load-path "~/.emacs.d/elpa/mastodon-20180305.1909/")
(setq mastodon-instance-url "https://mastodon.technology/")

;; doing mostly Python these days
(elpy-enable)

;; Done with packages
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; column line (not a package, seperate .el file)
(require 'fill-column-indicator)
(setq fci-rule-column 80)
(setq fci-rule-width 1)
(setq fci-rule-color "darkblue")
(add-hook 'c-mode-hook 'fci-mode)
(add-hook 'c++-mode-hook 'fci-mode)
(add-hook 'python-mode-hook 'fci-mode)

;; handle vim modeline in Emacs (not a package, seperate .el file)
;; OK when there is a vim modeline, but seems to break indentation when no modeline at all (neither emacs nor vim)?
;;(require 'vim-modeline)
;;(add-to-list 'find-file-hook 'vim-modeline/do)

;; Keybinding - try to keep this in one place
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; From the manual:
;; http://www.gnu.org/software/emacs/manual/html_node/elisp/Key-Binding-Conventions.html
;; "Sequences consisting of C-c and a letter (either upper or lower case) are reserved for users"
;; "Function keys F5 through F9 without modifier keys are also reserved for users to define."

(global-set-key (kbd "RET") 'newline-and-indent) ;; Automatically indent when press RET.
(global-set-key "\C-z"      'goto-line)          ;; C-z = suspend emacs, useless, remap.
;(global-set-key "\C-x\C-b"  'buffer-menu)        ;; Buffer list that does not jump in other window.
(global-set-key "\C-x\C-b"  'ibuffer)        ;; Buffer list that does not jump in other window.
(global-set-key "\C-cd"     'kill-whole-line)    ;; "a la vi dd", kill-whole-line.

;; Cheat sheet - things I tend to forget
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; M-g g    goto line
;; M-^      join line (bottom to top), and see above func+keybind C-^ (to to bottom)
;; On xfce, disable the C-M for this:
;; C-M-f    move forward over a balanced expression (forward-sexp).
;; C-M-b    move backward over a balanced expression (backward-sexp).
;; C-M-n    move forward over a parenthetical group (forward-list).
;; C-M-p    move backward over a parenthetical group (backward-list).
;; C-M-u    move up in parenthesis structure (backward-up-list).
;; C-M-d    move down in parenthesis structure (down-list).
;; Dual screen:
;; C-x 5 2  new frame
;; C-x 5 o  swith frame
;; semantic:
;; semantic-symref
;; projectile:
;; C-c p s g run grep on the files in the project.
;; C-c p r   runs interactive query-replace on all files in the projects.
;; C-c p p   display a list of known projects you can switch to.
(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 )