;; |------------------------------------|
;; |             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/")
			 ("melpa" . "https://melpa.org/packages/")
			 ("quelpa" . "https://")))

;; (unless (package-installed-p 'quelpa)
;;   (with-temp-buffer
;;     (url-insert-file-contents "https://raw.githubusercontent.com/quelpa/quelpa/master/quelpa.el")
;;     (eval-buffer)
;;     (quelpa-self-upgrade)))

;; (quelpa
;;  '(quelpa-use-package
;;    :fetcher git
;;    :url "https://github.com/quelpa/quelpa-use-package.git"))
;; (require 'quelpa-use-package)

(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
;;   ;; (load-theme 'ef-cyprus t)
;;   (define-key global-map (kbd "<f5>") #'ef-themes-toggle)
;;   (setq ef-themes-to-toggle '(ef-autumn ef-cyprus)))

;; (use-package modus-themes
;;   :ensure t
;;   :config
;;   ;; (load-theme 'modus-operandi-tinted t)
;;   (setq modus-themes-to-toggle '(modus-vivendi modus-operandi-tinted))
;;   (define-key global-map (kbd "M-<f5>") #'modus-themes-toggle))

(use-package zenburn-theme
  :ensure t
  :config
  (load-theme 'zenburn t))

(use-package rainbow-mode
  :ensure t)

(use-package mixed-pitch
  :ensure t
  :hook
  (olivetti-mode . mixed-pitch-mode)
  :config
  (setq mixed-pitch-cursor-type 'box))

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

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

;; ;; 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 helm
  :ensure t
  :init
  (helm-mode 1)
  :bind (("M-x" . helm-M-x)
	 ("C-x C-f" . helm-find-files)
	 ("C-x b" . helm-mini)
	 ("M-s" . helm-occur))
  :config
  (define-key helm-map (kbd "C-<backspace>") 'backward-kill-word)
  (define-key helm-map (kbd "<tab>") 'helm-execute-persistent-action) ; rebind tab to do persistent action
  (define-key helm-map (kbd "C-i") 'helm-execute-persistent-action) ; make TAB works in terminal
  (define-key helm-map (kbd "C-z")  'helm-select-action))

(use-package helm-rg
  :ensure t
  :config
  (setq helm-rg-default-extra-args '("--hidden" "--smart-case"))
  (setq helm-rg-prompt "Search for: ")
  (setq helm-rg-result-file-action
        (lambda (path)
          (find-file path)))
  (setq helm-rg-use-fuzzy-match t)
  :bind (("C-c s" . 'helm-rg)))

(use-package orderless
  :ensure t)

(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 orderless
  :ensure t
  :custom
  (completion-styles '(orderless basic))
  (completion-category-overrides '((file (styles basic partial-completion)))))

(use-package projectile
  :ensure t)

(use-package counsel
  :ensure t
  :config
  (setq councel-rg-base-command "rg --no-heading --colors always %s .")
  (setq counsel-rg-command-prefix "rg --no-heading --color always %s ."))

(use-package dashboard
  :ensure t
  :config
    (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)
			    (projects  . 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 org-cliplink
  :ensure t)

(use-package hl-todo
  :ensure t
  :init
  (global-hl-todo-mode t)
  :config
  (setq hl-todo-keyword-faces
        '(("TODO"        error bold)
          ("FIXME"       error bold)
          ("WAIT"        warning bold)
          ("HACK"        completions-common-part bold)
          ("DEPRECATED"  completions-annotations bold)
	  ("DONE"        font-lock-doc-face bold)
          ("BUG"         error bold))))

(use-package pdf-tools
  :ensure t)

(use-package toc-org
  :ensure t)

(use-package expand-region
  :ensure t
  :bind ("C-=" . 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 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 helm-gtags
  :ensure t
  :config
  (add-hook 'dired-mode-hook 'helm-gtags-mode)
  (add-hook 'eshell-mode-hook 'helm-gtags-mode)
  (add-hook 'c-mode-hook 'helm-gtags-mode)
  (add-hook 'c++-mode-hook 'helm-gtags-mode)

  (setq
   helm-gtags-ignore-case t
   helm-gtags-auto-update t
   helm-gtags-use-input-at-cursor t
   helm-gtags-pulse-at-cursor t
   helm-gtags-prefix-key "\C-cg"
   helm-gtags-suggested-key-mapping t)
  
  (define-key helm-gtags-mode-map (kbd "C-c g a") 'helm-gtags-tags-in-this-function)
  (define-key helm-gtags-mode-map (kbd "C-j") 'helm-gtags-select)
  (define-key helm-gtags-mode-map (kbd "M-.") 'helm-gtags-dwim))

(use-package emacs-everywhere
  :ensure t)

(provide 'bard-emacs-package.el)