;; Put this in /home/$USER/.emacs.d/init.el before starting Emacs for the first time
;;----------------------------------------------------------------------------------

;; -------------------------------------
;; Foundation of this config. Using use-package plugin instead of built-in manager for easier organization of packages and faster Emacs booting
(package-initialize)

(require 'package)
(setq package-enable-at-startup nil)
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/"))
(add-to-list 'custom-theme-load-path "~/.emacs.d/themes")

;; Bootstrap use-package
(unless (package-installed-p 'use-package) 
  (package-refresh-contents) 
  (package-install 'use-package))
(setq use-package-always-ensure t)

;; -------------------------------------
;; Basic configuration
(toggle-frame-maximized)	   ;; Maximize Emacs on startup
(set-frame-font "Hack 9" nil t)	   ;; Set font
(set-language-environment "UTF-8") ;; Set input
(menu-bar-mode -1)		   ;; Remove menu bar
(tool-bar-mode -1)		   ;; Remove toolbar
(scroll-bar-mode -1)		   ;; Remove scrollbar
(setq inhibit-startup-message t)   ;; Disable startup message
(setq ring-bell-function 'ignore) ;; Disable raping your ears with error ring tone
(setq initial-scratch-message nil) ;; Disable text in scratch
(setq tramp-default-method "ssh") ;; Default connection method for TRAMP - remote files plugin
(setq gc-cons-threshold (* 10 1024 1024)) ;; Reduce the frequency of garbage collection (default is 0.76MB, this sets it to 10MB)
(setq confirm-kill-emacs #'y-or-n-p)      ;; Confirm kill Emacs
(set-default 'truncate-lines t) ;; Turn off line wrapping by default
(when (fboundp 'winner-mode)	;; I don't remember
  (winner-mode 1))
(global-prettify-symbols-mode +1) ;; Make symbols pretty e.g. lamba

;; -------------------------------------
;; Custom keybinds
(global-set-key (kbd "C-c w") 'toggle-truncate-lines) ;; wrap
(global-set-key (kbd "C-c e") 'eshell)		      ;; Eshell
(global-set-key (kbd "C-c t") 'term)		      ;; Term

;; -------------------------------------
;; Custom function

;; Close everything without closing Emacs
(defun close-all-buffers () 
  (interactive) 
  (mapc 'kill-buffer (buffer-list)))
(global-set-key (kbd "\C-c\ \c") 'close-all-buffers)

;; Set Emacs window title to current file path
(setq frame-title-format '("" invocation-name ": " 
			   (:eval (if (buffer-file-name) 
				      (abbreviate-file-name (buffer-file-name)) "%b"))))

;; Change mini buffer startup message
(defun display-startup-echo-area-message () 
  (message "..."))

;; y/n for yes/no confirmation dial
(defalias 'yes-or-no-p 'y-or-n-p)

;; Page scroll
(defun gcm-scroll-down () 
  (interactive) 
  (scroll-up 4))
(defun gcm-scroll-up () 
  (interactive) 
  (scroll-down 4))
(global-set-key (kbd "M-p") 'gcm-scroll-up)
(global-set-key (kbd "M-n") 'gcm-scroll-down)

;; Quick Eshell per buffer
(defun eshell-here () 
  (interactive) 
  (let* ((parent (if (buffer-file-name) 
		     (file-name-directory (buffer-file-name)) default-directory)) 
	 (height (/ (window-total-height) 3)) 
	 (name   (car (last (split-string parent "/" t))))) 
    (split-window-vertically (- height)) 
    (other-window 1) 
    (eshell "new") 
    (rename-buffer (concat "*eshell: " name "*")) 
    (insert (concat "ls")) 
    (eshell-send-input)))
(global-set-key (kbd "C-!") 'eshell-here)
(defun eshell/x () ;; type x in eshell to exit
  (delete-window) 
  (eshell/exit))

;; Term paste
(eval-after-load "term" '(define-key term-raw-map (kbd "C-c C-y") 'term-paste))

;; Security
(setq tls-checktrust t)
(setq gnutls-verify-error t)

;; Puts temporary autosave files in one directory, so they do not clutter whole filesystem
(defvar user-temporary-file-directory "~/.emacs-autosaves/")
(make-directory user-temporary-file-directory t)
(setq backup-by-copying t)
(setq backup-directory-alist `(("." . ,user-temporary-file-directory) 
			       (tramp-file-name-regexp nil)))
(setq auto-save-list-file-prefix (concat user-temporary-file-directory ".auto-saves-"))
(setq auto-save-file-name-transforms `((".*" ,user-temporary-file-directory t)))

;; -------------------------------------
;; Packages

;; Theme
(use-package 
  creamsody-theme 
  :init (load-theme 'creamsody t))

;; Smooth Scrolling
(use-package 
  smooth-scrolling 
  :config (smooth-scrolling-mode 1) 
  (setq smooth-scroll-margin 5))

;; Try package without installing them
(use-package 
  try)

;; Shows a nice and friendly panel with possible completions of your failed shortcut attemps
(use-package 
  which-key 
  :config (which-key-mode))

;; Search stuff
(use-package 
  swiper 
  :bind ("C-s" . swiper))

;; Makes sure Emacs commands use Ivy completion
(use-package 
  counsel 
  :bind ("M-x" . counsel-M-x) 
  ("C-x C-f" . counsel-find-file) 
  ("<f1> f" . counsel-describe-function) 
  ("<f1> v" . counsel-describe-variable) 
  ("<f1> l" . counsel-find-library) 
  ("<f2> i" . counsel-info-lookup-symbol) 
  ("<f2> u" . counsel-unicode-char) 
  ("C-c g" . counsel-git) 
  ("C-c j" . counsel-git-grep) 
  ("C-c k" . counsel-ag) 
  ("C-x l" . counsel-locate))

;; Completion mechanism for various things
(use-package 
  ivy 
  :config (setq ivy-use-virtual-buffers t) 
  :bind ("C-c C-r" . ivy-resume) 
  ("<f6>" . ivy-resume) 
  ("C-x b" . ivy-switch-buffer))

;; Fuzzy search
(use-package 
  avy 
  :bind ("M-s" . avy-goto-char))

(use-package 
  counsel-projectile)

(use-package 
  fix-word)

;; Recent files
(use-package 
  recentf 
  :config (setq recentf-max-saved-items 10 recentf-max-menu-items 10 recentf-auto-cleanup 'never) 
  (recentf-mode 1) 
  :bind ("C-x C-r" . recentf-open-files))

;; Completion framework
(use-package 
  company 
  :defer t 
  :init (global-company-mode) 
  :config (progn (bind-key [remap completion-at-point] #'company-complete company-mode-map) 
		 (setq company-tooltip-align-annotations t company-show-numbers t) 
		 (setq company-dabbrev-downcase nil)) 
  :diminish company-mode)
(use-package 
  company-quickhelp 
  :defer t 
  :init (add-hook 'global-company-mode-hook #'company-quickhelp-mode))

(use-package 
  flycheck 
  :diminish flycheck-mode)

;; Project management plugin, uses version control like git to detect projects
(use-package 
  projectile 
  :commands (projectile-find-file projectile-switch-project) 
  :diminish projectile-mode 
  :config (projectile-global-mode))

;; Pastebinlike service text upload
(use-package 
  ix)

;; Automatic parenthesis, duh
(use-package 
  smartparens 
  :config (progn 
	    (require 'smartparens-config)) 
  :bind ("C-x j" . smartparens-mode))

;; Slick tree for undo
(use-package 
  undo-tree 
  :diminish undo-tree-mode 
  :config (global-undo-tree-mode t) 
  (setq undo-tree-visualizer-diff t))

;; Parenthesis change color depending on depth
(use-package 
  rainbow-delimiters 
  :defer t 
  :init (add-hook 'prog-mode-hook 'rainbow-delimiters-mode))

;; Git on steroids
(use-package 
  magit 
  :bind ("C-x g" . magit-status))

(use-package 
  toml-mode)

(use-package 
  yaml-mode)

;; Unix config files mode
(use-package 
  conf-mode)

(use-package 
  elisp-format)

;; Integrate Emacs with your user env variables / paths
(use-package 
  exec-path-from-shell 
  :config (when (memq window-system '(mac ns x)) 
	    (exec-path-from-shell-initialize)))

(use-package 
  async 
  :init (dired-async-mode +1) 
  :config (progn (async-bytecomp-package-mode 1)))

(use-package 
  markdown-mode 
  :commands (markdown-mode gfm-mode) 
  :mode (("README\\.md\\'" . gfm-mode) 
	 ("\\.md\\'" . markdown-mode) 
	 ("\\.markdown\\'" . markdown-mode)) 
  :init (setq markdown-command "multimarkdown"))

;; Emacs org mode, markdown on steroids
(use-package 
  org 
  :mode (("\\.org$" . org-mode)) 
  :config (progn
            ;; config stuff
            ))
(use-package 
  org-bullets 
  :config (progn (add-hook 'org-mode-hook 
			   (lambda () 
			     (org-bullets-mode 1)))))

(use-package 
  docker 
  :commands docker-mode)

(use-package 
  dockerfile-mode 
  :mode "Dockerfile.*\\'")

;; Web
(use-package 
  web-mode 
  :mode "\\.phtml\\'" 
  :mode "\\.volt\\'" 
  :mode "\\.html\\'")

;; Scala
(use-package 
  ensime)

;; Haskell
(use-package 
  haskell-mode)

;; LaTeX
(use-package 
  tex-site 
  :ensure auctex 
  :mode ("\\.tex\\'" . latex-mode) 
  :config (setq TeX-auto-save t) 
  (setq TeX-parse-self t) 
  (setq-default TeX-master nil) 
  (add-hook 'LaTeX-mode-hook 
	    (lambda () 
	      (rainbow-delimiters-mode) 
	      (company-mode) 
	      (smartparens-mode) 
	      (turn-on-reftex) 
	      (setq reftex-plug-into-AUCTeX t) 
	      (reftex-isearch-minor-mode) 
	      (setq TeX-PDF-mode t) 
	      (setq TeX-source-correlate-method 'synctex) 
	      (setq TeX-source-correlate-start-server t)))

  ;; Update PDF buffers after successful LaTeX runs
  (add-hook 'TeX-after-TeX-LaTeX-command-finished-hook #'TeX-revert-document-buffer)

  ;; to use pdfview with auctex
  (add-hook 'LaTeX-mode-hook 'pdf-tools-install)

  ;; to use pdfview with auctex
  (setq TeX-view-program-selection '((output-pdf "pdf-tools")) TeX-source-correlate-start-server t)
  (setq TeX-view-program-list '(("pdf-tools" "TeX-pdf-tools-sync-view"))))
(use-package reftex
  :defer t
  :config
  (setq reftex-cite-prompt-optional-args t)); Prompt for empty optional arguments in cite
(use-package
  pdf-tools)