;(setq gnutls-algorithm-priority "NORMAL:-VERS-TLS1.3")
(setq package-check-signature nil)

(package-initialize)

(require 'package)
(add-to-list 'package-archives '("gnu" . "https://elpa.gnu.org/packages/") t)
(add-to-list 'package-archives
	     '("melpa" . "https://melpa.org/packages/") t)
;(add-to-list 'package-archives
;	     '("marmalade" . "https://marmalade-repo.org/packages/") t)
(add-to-list 'custom-theme-load-path "~/.emacs.d/themes/") t
(add-to-list 'load-path "~/.emacs.d/lisp/" t)

(setq use-package-always-ensure t)

(unless (package-installed-p 'use-package)
  (package-refresh-contents)
  (package-install 'use-package)
  (package-install 'use-package-chords))

(require 'use-package)

(use-package async)

(use-package cargo
  :init
  (add-hook 'rust-mode-hook 'cargo-minor-mode))

(use-package counsel
  :bind (("M-x" . counsel-M-x)
	 ("C-x C-f" . counsel-find-file)))

(use-package dracula-theme
  :config (load-theme 'dracula t))

(use-package editorconfig
  :ensure t
  :config
  (editorconfig-mode 1))

(use-package evil
  :init
  (setq evil-want-fine-undo t)
  :config (evil-mode 1))

(use-package evil-collection
  :init (setq evil-magit-state 'normal))

(use-package fill-column-indicator
  :init
  (setq fci-rule-column 80))

(use-package git-commit)

(use-package go-mode
  :mode ("\\.go\\'" . go-mode))

(use-package goto-chg)

(use-package haskell-mode
  :mode ("\\.hs\\'" . haskell-mode)
  :interpreter ("haskell" . haskell-mode))

(use-package ivy
  :init (setq ivy-use-virtual-buffers t
	      ivy-count-format ""
	      ivy-display-style nil)
  :config (ivy-mode 1))

(use-package less-css-mode
  :mode ("\\.less\\'" . less-css-mode))

(use-package magit)

(use-package magit-popup)

(use-package nasm-mode
  :mode ("\\.s\\'" . nasm-mode)
  :mode ("\\.asm\\'" . nasm-mode)
  :mode ("\\.nasm\\'" . nasm-mode))

(use-package pkg-info)

(use-package python
  :mode ("\\.py\\'" . python-mode)
  :interpreter ("python" . python-mode))

(use-package rust-mode
  :mode ("\\.rs\\'" . rust-mode)
  :init
  (setq rust-format-on-save t))

(use-package s)

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

(use-package terraform-mode)

(use-package toml-mode
  :mode ("\\.toml\\'" . toml-mode))

(use-package tramp
  :init
  (setq tramp-default-method "ssh"))

(use-package undo-tree)

(use-package web-mode
  :mode ("\\.html\\'" . web-mode)
  :mode ("\\.js\\'" . web-mode)
  :mode ("\\.css\\'" . web-mode)
  :mode ("\\.tpl\\.php\\'" . web-mode)
  :mode ("\\.[agj]sp\\'" . web-mode)
  :mode ("\\.as[cp]x\\'" . web-mode)
  :mode ("\\.erb\\'" . web-mode)
  :mode ("\\.mustache\\'" . web-mode)
  :mode ("\\.djhtml\\'" . web-mode)
  :mode ("\\.html?\\'" . web-mode)
  :init
  (setq web-mode-markup-indent-offset 2
	web-mode-code-indent-offset 2
	web-mode-css-indent-offset 2))

(use-package with-editor)

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

(when (fboundp 'menu-bar-mode) (menu-bar-mode -1))
(when (fboundp 'tool-bar-mode) (tool-bar-mode -1))
(when (fboundp 'scroll-bar-mode) (scroll-bar-mode -1))
(when (fboundp 'windmove-default-keybindings) (windmove-default-keybindings))

(add-to-list 'default-frame-alist '(font . "Menlo 8"))
(set-face-font 'bold "Menlo Bold 8")
(set-face-font 'italic "Menlo Italic 8")
(set-face-font 'bold-italic "Menlo Bold Italic 8")
(set-frame-font "Menlo 8")

(setq frame-title-format
      '(buffer-file-name "%f" (dired-directory dired-directory "%b"))
      custom-file                       "~/.emacs.d/custom.el"
      auth-source-save-behavior         nil
      enable-local-variables            nil
      inhibit-startup-screen            t
      vc-follow-symlinks                t
      inhibit-compacting-font-caches    1
      mouse-wheel-scroll-amount         '(3 ((shift) . 3))
      mouse-wheel-progressive-speed     nil
      mouse-wheel-follow-mouse          't
      ;;      scroll-margin                     1
      scroll-conservatively             10000
      ;;      scroll-up-aggressively            0.01
      ;;      scroll-down-aggressively          0.01
      scroll-step                       1
      auto-save-interval                1000
      auto-window-vscroll               nil
      backup-by-copying                 t
      backup-directory-alist            '(("." . "~/.saves"))
      undo-tree-history-directory-alist '(("." . "~/.undo-tree"))
      delete-old-versions               t
      kept-new-versions                 6
      kept-old-versions                 2
      version-control                   t
      backup-directory-alist            `((".*" . ,temporary-file-directory))
      auto-save-file-name-transforms    `((".*" ,temporary-file-directory t))
      undo-tree-auto-save-history       t
      vc-mode                           1
      ring-bell-function                'ignore
      column-number-mode                1)

(setq-default scroll-up-aggressively    0.01
	      scroll-down-aggressively   0.01
	      indent-tabs-mode           t
	      tab-width                  8)

(global-auto-revert-mode 1)
(fringe-mode '(0 . 0))
(show-paren-mode t)
(electric-pair-mode 1)
(global-hl-line-mode 1)
(blink-cursor-mode 0)
(display-time-mode 1)

(load "~/.emacs.d/lisp/plsql.el")
(load "~/.emacs.d/lisp/dockerfile-mode.el")
(load "~/.emacs.d/lisp/nasm-mode.el")
(add-to-list 'auto-mode-alist
	     '("\\.\\(p\\(?:k[bg]\\|ls\\)\\|sql\\)\\'" . plsql-mode))
(add-to-list 'auto-mode-alist '("Dockerfile\\'" . dockerfile-mode))

(defun c-lineup-arglist-tabs-only (ignored)
  "Line up argument lists by tabs, not spaces"
  (let* ((anchor (c-langelem-pos c-syntactic-element))
	 (column (c-langelem-2nd-pos c-syntactic-element))
	 (offset (- (1+ column) anchor))
	 (steps (floor offset c-basic-offset)))
    (* (max steps 1)
       c-basic-offset)))

(add-hook 'c-mode-common-hook
	  (lambda ()
	    (c-add-style "libvirt"
			 '((indent-tabs-mode . nil)
			   (c-basic-offset . 4)
			   (c-indent-level . 4)
			   (c-offsets-alist
			    (label . 1))))
	    ;; Add kernel style
	    (c-add-style "linux-tabs-only"
			 '("linux"
			   (c-offsets-alist
			    (arglist-cont-nonempty
			     c-lineup-gcc-asm-reg
			     c-lineup-arglist-tabs-only))))))

(defun my-c-mode-hooks ()
  (let ((bname (buffer-file-name)))
    (cond
     ((string-match "libvirt/" bname) (c-set-style "libvirt"))
     ((string-match "datastructures/" bname) (c-set-style "linux"))
     ((string-match "linux/" bname) (c-set-style "linux-tabs-only"))
     ((string-match ".*" bname) (c-set-style "linux"))
     )))

(add-hook 'sh-mode-hook
	  (lambda () (setq indent-tabs-mode nil)))

(defun remove-elc-on-save ()
  "If you're saving an elisp file, likely the .elc is no longer valid."
  (add-hook 'after-save-hook
	    (lambda ()
	      (if (file-exists-p (concat buffer-file-name "c"))
		  (delete-file (concat buffer-file-name "c"))))
	    nil
	    t))

(add-hook 'emacs-lisp-mode-hook 'remove-elc-on-save)
(add-hook 'c-mode-hook 'my-c-mode-hooks)
(add-hook 'before-save-hook 'delete-trailing-whitespace)

(define-key minibuffer-local-map [escape] 'minibuffer-keyboard-quit)
(define-key minibuffer-local-ns-map [escape] 'minibuffer-keyboard-quit)
(define-key minibuffer-local-completion-map [escape] 'minibuffer-keyboard-quit)
(define-key minibuffer-local-must-match-map [escape] 'minibuffer-keyboard-quit)
(define-key minibuffer-local-isearch-map [escape] 'minibuffer-keyboard-quit)

(defun gcm-scroll-down () (interactive) (scroll-up 1))

(defun gcm-scroll-up () (interactive) (scroll-down 1))

(global-set-key [(control down)] 'gcm-scroll-down)
(global-set-key [(control up)]   'gcm-scroll-up)

(global-set-key [(control next)] 'gcm-scroll-down)
(global-set-key [(control prior)]   'gcm-scroll-up)

(defvar linum-current-line 1 "Current line number.")
(defvar linum-format-fmt   "" " ")
(defvar linum-format "" " ")

(defface linum-current-line
  `((t :inherit linum
       :foreground "chocolate"
       :weight bold
       ))
  "Face for displaying the current line number."
  :group 'linum)

(defadvice linum-update (before advice-linum-update activate)
  "Set the current line."
  (setq linum-current-line (line-number-at-pos)))

(add-hook 'linum-before-numbering-hook
	  (lambda ()
	    (setq-local linum-format-fmt
			(let ((w (length (number-to-string (count-lines
							    (point-min)
							    (point-max))))))
			  (concat " %" (number-to-string w) "d ")))))

(defun linum-format-func (line)
  (let ((face
	 (if (= line linum-current-line)
	     'linum-current-line 'linum)))
    (propertize (format linum-format-fmt line) 'face face)))

(setq linum-format 'linum-format-func)

(add-hook 'find-file-hook (lambda () (linum-mode 1)))
(add-hook 'eshell-mode-hook (lambda () (linum-mode -1)))
(linum-mode t)