(message nil);; Debian packages: elpa-use-package elpa-fill-column-indicator

;; This is only needed once, near the top of the file
(eval-when-compile
  (require 'use-package))

(add-to-list 'default-frame-alist
             '(font . "DejaVu Sans Mono-12"))

;; Added by Package.el.  This must come before configurations of
;; installed packages.  Don't delete this line.  If you don't want it,
;; just comment it out by adding a semicolon to the start of the line.
;; You may delete these explanatory comments.
(package-initialize)

(add-to-list 'package-archives
             '("melpa-stable" . "https://stable.melpa.org/packages/") t)

(add-to-list 'load-path "~/.emacs.local.d/elisp")

;; ------
;; Require misc stuff
;; ------
(require 'fill-column-indicator)

;; Place backups in ~/.backups/ directory, like a civilized program.
;; ------
(if (file-directory-p "~/.backup")
    (setq backup-directory-alist '(("." . "~/.backup")))
  (message "Directory does not exist: ~/.backup"))

(filesets-init)

(setq backup-by-copying t    ; Don't delink hardlinks
      delete-old-versions t  ; Clean up the backups
      version-control t      ; Use version numbers on backups,
      kept-new-versions 3    ; keep some new versions
      kept-old-versions 2)   ; and some old ones, too

;;; backup/autosave - old studd, just in case
;; (defvar backup-dir (expand-file-name "~/.emacs.d/backup/"))
;; (defvar autosave-dir (expand-file-name "~/.emacs.d/autosave/"))
;; (setq backup-directory-alist (list (cons ".*" backup-dir)))
;; (setq auto-save-list-file-prefix autosave-dir)
;; (setq auto-save-file-name-transforms `((".*" ,autosave-dir t)))


;; ---------
;; Generic keybindings
;; ---------
(global-set-key (kbd "C-c d") 'diff-buffer-with-file)
(global-set-key (kbd "C-c R") 'revert-buffer)

(global-set-key (kbd "C-<next>") 'next-buffer)
(global-set-key (kbd "C-<prior>") 'previous-buffer)

;; compile
(global-set-key [f12] 'compile)

;; ------
;; General config BS
;; ------

(setq fill-column 79)

;; Make sure that pressing middle mouse button pastes right at point,
;; not where the mouse cursor is.
(setq mouse-yank-at-point t)
(setq column-number-mode 1)
(setq line-number-mode 1)
(setq-default indent-tabs-mode nil)
(setq-default tab-width 4)

(setq-default c-basic-offset 4)

;; ------
;; Initialize some things
;; ------


(setenv "TMPDIR" (concat (getenv "HOME") "/tmp"))
(server-start)

;; ------
;; Terminal / window specific stuff
;; ------

;; Don't minimize my emacs! Honestly wtf
(when window-system
  (progn
    (global-unset-key (kbd "C-z"))
    (setq scroll-bar-mode nil)
    (tool-bar-mode nil)
    (menu-bar-mode nil)))

;; ------
;; Helper for compilation.
;; ------
;; Close the compilation window if there was no error at all.
(defun compilation-exit-autoclose (status code msg)
  ;; If M-x compile exists with a 0
  (when (and (eq status 'exit) (zerop code))
    ;; then bury the *compilation* buffer, so that C-x b doesn't go there
    (bury-buffer)
    ;; and delete the *compilation* window
    (delete-window (get-buffer-window (get-buffer "*compilation*"))))
  ;; Always return the anticipated result of compilation-exit-message-function
  (cons msg code))
;; Specify my function (maybe I should have done a lambda function)
(setq compilation-exit-message-function 'compilation-exit-autoclose)
(setq compilation-read-command nil)

;; Themes
(add-to-list 'custom-theme-load-path "~/.emacs.d/themes/")

;; Remove scratch message
(setq initial-scratch-message "")

;; Turn of scroll bar
(when (featurep 'scroll-bar) (scroll-bar-mode -1))

;; Ask y or n instead of yes or no
(defalias 'yes-or-no-p 'y-or-n-p)

;; Fancier buffer selection
(global-set-key (kbd "C-x C-b") 'bs-show)

;;; Stefan Monnier <foo at acm.org>. It is the opposite of fill-paragraph
(defun unfill-paragraph (&optional region)
  "Takes a multi-line paragraph and makes it into a single line of text."
  (interactive (progn (barf-if-buffer-read-only) '(t)))
  (let ((fill-column (point-max))
        ;; This would override `fill-column' if it's an integer.
        (emacs-lisp-docstring-fill-column t))
    (fill-paragraph nil region)))

;; Handy key definition
(define-key global-map "\M-Q" 'unfill-paragraph)

(setq custom-file "~/.emacs.d/custom.el")
(load custom-file 'noerror)

(menu-bar-mode -1)
(tool-bar-mode -1)


;; Start maximized
(add-to-list 'default-frame-alist '(fullscreen . maximized))

;; Only flash the mode line
(setq ring-bell-function
      (lambda ()
        (let ((orig-fg (face-foreground 'mode-line)))
          (set-face-foreground 'mode-line "#F2804F")
          (run-with-idle-timer 0.1 nil
                               (lambda (fg) (set-face-foreground 'mode-line fg))
                               orig-fg))))

;; Highlight parens
(setq show-paren-delay 0)
(show-paren-mode 1)

;; Use default brwoser
;;(setq browse-url-browser-function 'browse-url-generic browse-url-generic-program "chromium")

;; Mutt support.
(setq auto-mode-alist (append '((".*tmp/mutt.*" . mail-mode)) auto-mode-alist))
(setq auto-mode-alist (append '((".*tmp/neomutt.*" . mail-mode)) auto-mode-alist))