;; |------------------------------------|
;; |             Packages               |
;; |------------------------------------|

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

(setq package-archives '(("org" . "https://orgmode.org/elpa/")
                         ("elpa" . "https://elpa.gnu.org/packages/")
			 ("nongnu" . "https://elpa.nongnu.org/nongnu/")
			 ("melpa" . "https://melpa.org/packages/")))

(package-initialize)
(unless package-archive-contents
 (package-refresh-contents))

;; Initialize use-package on non-Linux platforms
(unless (package-installed-p 'use-package)
   (package-install 'use-package))

(require 'use-package)
(setq use-package-always-ensure t)

;; Ef-themes
(use-package ef-themes
  :ensure t
  :config
  (setq ef-themes-headings
      '((1 variable-pitch 1.5)
        (2 regular 1.3)
        (3 1.1)
        (agenda-date 1.3)
        (agenda-structure variable-pitch light 1.8)
        (t variable-pitch)))
  (defun bard/ef-themes-hl-todo-faces ()
    "Configure `hl-todo-keyword-faces' with Ef themes colors.
The exact color values are taken from the active Ef theme."
    (ef-themes-with-colors
      (setq hl-todo-keyword-faces
            `(("WAIT" . ,yellow)
              ("TODO" . ,red)
              ("NEXT" . ,blue)
              ("THEM" . ,magenta)
              ("PROG" . ,cyan-warmer)
              ("OKAY" . ,green-warmer)
              ("DONT" . ,yellow-warmer)
              ("FAIL" . ,red-warmer)
              ("BUG" . ,red-warmer)
              ("DONE" . ,green)
              ("NOTE" . ,blue-warmer)
              ("KLUDGE" . ,cyan)
              ("HACK" . ,cyan)
              ("TEMP" . ,red)
              ("FIXME" . ,red-warmer)
              ("XXX+" . ,red-warmer)
	      ("KILLED" . ,cyan)
              ("REVIEW" . ,red)
              ("DEPRECATED" . ,yellow)))))

  (add-hook 'ef-themes-post-load-hook #'bard/ef-themes-hl-todo-faces)
  (define-key global-map (kbd "M-<f5>") #'ef-themes-toggle)
  (setq ef-themes-to-toggle '(ef-winter ef-frost))
  ;; (load-theme 'ef-winter)
  )

(use-package modus-themes
  :ensure t
  :config
  (setq modus-themes-headings
      '((1 . (variable-pitch 1.5))
        (2 . (regular 1.3))
        (agenda-date . (1.3))
        (agenda-structure . (variable-pitch light 1.8))
        (t . (1.1))))
  (defun bard/modus-themes-hl-todo-faces ()
    "Configure `hl-todo-keyword-faces' with Modus themes colors.
The exact color values are taken from the active Ef theme."
    (modus-themes-with-colors
      (setq hl-todo-keyword-faces
            `(("WAIT" . ,yellow)
              ("TODO" . ,red)
              ("NEXT" . ,blue)
              ("THEM" . ,magenta)
              ("PROG" . ,cyan-warmer)
              ("OKAY" . ,green-warmer)
              ("DONT" . ,yellow-warmer)
              ("FAIL" . ,red-warmer)
              ("BUG" . ,red-warmer)
              ("DONE" . ,green)
              ("NOTE" . ,blue-warmer)
              ("KLUDGE" . ,cyan)
              ("HACK" . ,cyan)
              ("TEMP" . ,red)
              ("FIXME" . ,red-warmer)
              ("XXX+" . ,red-warmer)
              ("REVIEW" . ,red)
	      ("KILLED" . ,cyan)
              ("DEPRECATED" . ,yellow)))))

  (add-hook 'modus-themes-post-load-hook #'bard/modus-themes-hl-todo-faces)
  (setq modus-themes-to-toggle '(modus-vivendi modus-operandi-tinted))
  (define-key global-map (kbd "<f5>") #'modus-themes-toggle)
  (load-theme 'modus-vivendi t))

(use-package fontaine
  :ensure t)

(use-package rainbow-mode
  :ensure t)

(use-package mixed-pitch
  :ensure t
  ;; :hook
  ;; (olivetti-mode . mixed-pitch-mode)
  :config
  (with-eval-after-load mixed-pitch-mode
    (setq mixed-pitch-cursor-type nil)))

;; Multiple Cursors
(use-package multiple-cursors
  :ensure t)

;; Magit
(use-package magit
  :ensure t)

(use-package magit-todos
  :ensure t
  :config
  (magit-todos-mode 1))

;; Vertico completion
(use-package vertico
  :ensure t
  :init
  (vertico-mode 1))

;; Marginalia - works with vertico
(use-package marginalia
  :ensure t
  :init
  (marginalia-mode))

(use-package company
  :ensure t
  :init
  (global-company-mode 1))

(use-package consult
  :ensure t
  :config
  (global-set-key (kbd "C-x b") nil)
  (global-set-key (kbd "C-x b") #'consult-buffer)
  (global-set-key (kbd "C-c s") #'consult-line)
  (global-set-key (kbd "C-c C-s") nil)
  (global-set-key (kbd "C-z s") #'consult-ripgrep))

(use-package yasnippet
  :init
  (yas-global-mode)
  :ensure t)

(use-package yasnippet-snippets
  :ensure t)

(use-package which-key
  :init
  (which-key-mode 1)
  :ensure t)

(use-package org-roam
  :ensure t
  :custom
  (org-roam-directory (file-truename "~/Notes/Org-Roam"))
  :bind (("C-c n l" . org-roam-buffer-toggle)
         ("C-c n f" . org-roam-node-find)
         ("C-c n g" . org-roam-graph)
         ("C-c n i" . org-roam-node-insert)
         ("C-c n c" . org-roam-capture)
         ("C-c n j" . org-roam-dailies-capture-today))
  :config
  (org-roam-db-autosync-mode 1))

(use-package org-roam-ui
  :ensure t)

(use-package org-fragtog
  :ensure t)

(use-package orderless
  :ensure t
  :custom
  (completion-styles '(orderless basic))
  (completion-category-overrides '((file (styles basic partial-completion)))))

(use-package dashboard
  :ensure t
  :config
  (setq initial-buffer-choice 'dashboard-open)
  (dashboard-setup-startup-hook)
  (setq dashboard-startup-banner "~/.emacs.d/img/catwithscarf.jpg")
  (setq dashboard-banner-logo-width 50)
  (setq dashboard-banner-logo-height 50)
  (setq dashboard-center-content t)
  (setq dashboard-items '((recents   . 5)
			  (bookmarks . 5)))
  (setq dashboard-banner-logo-title "An Old Farmer's Smile")
  (setq dashboard-set-footer nil))

(use-package elfeed
  :ensure t
  :config
  (global-set-key (kbd "C-x w") 'elfeed)
  (setq elfeed-search-filter "+unread -academia"))

(use-package elfeed-org
  :ensure t
  :init
  (elfeed-org)
  :config
  (setq rmh-elfeed-org-files (list "~/.emacs.d/feeds.org"
				   "~/.emacs.d/youtube.org")))

(use-package elfeed-goodies
  :ensure t
  :init
  (elfeed-goodies/setup)
  :config
  (setq elfeed-goodies/powerline-default-separator 'box))

(use-package tmr
  :ensure t
  :config
    ;; Set to nil to disable the sound
  (setq tmr-sound-file "/usr/share/sounds/freedesktop/stereo/alarm-clock-elapsed.oga")
  ;; Desktop notification urgency level
  (setq tmr-notification-urgency 'normal)
  (setq tmr-descriptions-list 'tmr-description-history)
  (define-key global-map (kbd "M-<f8>") 'tmr-tabulated-view)
  (define-key global-map (kbd "<f8>") 'tmr-with-description))

(use-package hl-todo
  :ensure t
  :init
  (global-hl-todo-mode t))

(use-package pdf-tools
  :ensure t)

(use-package org-timeblock
  :ensure t
  :config
  (define-key global-map (kbd "M-<f6>") 'org-timeblock))

(use-package expand-region
  :ensure t
  :bind ("M--" . er/expand-region))

(use-package clojure-mode
  :ensure t)

(use-package cider
  :ensure t)

(use-package clojure-snippets
  :ensure t)

(use-package haskell-mode
  :ensure t)

(use-package rust-mode
  :ensure t)

(use-package flycheck
  :ensure t
  :init
  (global-flycheck-mode t))

(use-package smartparens
  :ensure t
  :config
  (smartparens-global-mode t)
  (show-smartparens-global-mode t)
  :bind
  (("C-<down>" . sp-down-sexp))
  ("C-<up>"    . sp-up-sexp)
  ("M-<down>"  . sp-backward-up-sexp)
  ("M-<up>"    . sp-backward-up-sexp)
  ("C-M-a"     . sp-beginning-of-sexp)
  ("C-M-e"     . sp-end-of-sexp))

(use-package ggtags
  :ensure t
  :config
  (add-hook 'c-mode-common-hook
	    (lambda ()
	      (when (derived-mode-p 'c-mode 'c++-mode 'java-mode)
		(ggtags-mode 1)))))

(use-package tramp
  :ensure t)

(use-package circe
  :ensure t)

(use-package spacious-padding
  :ensure t
  :config
  (setq spacious-padding-widths
      '( :internal-border-width 10
         :header-line-width 4
         :mode-line-width 6
         :tab-width 4
         :right-divider-width 30
         :scroll-bar-width 8)))

(use-package darkroom
  :ensure t
  :bind
  (("<f9>" . bard/darkroom-toggle))
  :config
  (setq darkroom-margins 'darkroom-guess-margins)
  (setq darkroom-text-scale-increase 1.2)
  (defun bard/darkroom-toggle ()
    (interactive)
    (if (equal darkroom-tentative-mode nil)
        (progn
	  (visual-line-mode t)
          (darkroom-tentative-mode t)
	  ;; (setq cursor-type 'bar)
	  )
      (progn
        (darkroom-tentative-mode 0)
        (mixed-pitch-mode 0)
	(visual-line-mode nil)
        ;; (fringe-mode nil)
        ;; (setq cursor-type 'box)
	))))

(use-package xah-fly-keys
  :ensure t
  :config
  (require 'xah-fly-keys)
  (define-key xah-fly-command-map (kbd "M-<") #'beginning-of-buffer)
  (define-key xah-fly-command-map (kbd "M->") #'end-of-buffer)
  (define-key xah-fly-command-map (kbd "q") #'beginning-of-line)
  (define-key xah-fly-command-map (kbd "Q") #'end-of-line)
  (define-key xah-fly-command-map (kbd "C-a") #'beginning-of-line))

(provide 'bard-emacs-package.el)