;;; thanos-packages.el ---                           -*- lexical-binding: t; -*-

;; Copyright (C) 2023  Thanos Apollo

;; Author: Thanos Apollo <public@thanosapollo.com>
;; Keywords: 

;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.

;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with this program.  If not, see <https://www.gnu.org/licenses/>.

;;; Commentary:
;; ╭━━━━┳╮╱╱╱╱╱╱╱╱╱╱╱╱╱╱╭━━━╮╱╱╱╱╱╭╮╭╮╱╱╱╱╱╱╱╱╭━━━╮
;; ┃╭╮╭╮┃┃╱╱╱╱╱╱╱╱╱╱╱╱╱╱┃╭━╮┃╱╱╱╱╱┃┃┃┃╱╱╱╱╱╱╱╱┃╭━━╯
;; ╰╯┃┃╰┫╰━┳━━┳━╮╭━━┳━━╮┃┃╱┃┣━━┳━━┫┃┃┃╭━━╮╱╱╱╱┃╰━━┳╮╭┳━━┳━━┳━━╮
;; ╱╱┃┃╱┃╭╮┃╭╮┃╭╮┫╭╮┃━━┫┃╰━╯┃╭╮┃╭╮┃┃┃┃┃╭╮┃╭━━╮┃╭━━┫╰╯┃╭╮┃╭━┫━━┫
;; ╱╱┃┃╱┃┃┃┃╭╮┃┃┃┃╰╯┣━━┃┃╭━╮┃╰╯┃╰╯┃╰┫╰┫╰╯┃╰━━╯┃╰━━┫┃┃┃╭╮┃╰━╋━━┃
;; ╱╱╰╯╱╰╯╰┻╯╰┻╯╰┻━━┻━━╯╰╯╱╰┫╭━┻━━┻━┻━┻━━╯╱╱╱╱╰━━━┻┻┻┻╯╰┻━━┻━━╯
;; ╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱┃┃
;; ╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╰╯
;;; Code:

(require 'package)

;; Install straight.el

(defvar bootstrap-version)

(let ((bootstrap-file
       (expand-file-name
        "straight/repos/straight.el/bootstrap.el"
        (or (bound-and-true-p straight-base-dir)
            user-emacs-directory)))
      (bootstrap-version 7))
  (unless (file-exists-p bootstrap-file)
    (with-current-buffer
        (url-retrieve-synchronously
         "https://raw.githubusercontent.com/radian-software/straight.el/develop/install.el"
         'silent 'inhibit-cookies)
      (goto-char (point-max))
      (eval-print-last-sexp)))
  (load bootstrap-file nil 'nomessage))

(setq package-enable-at-startup nil)

(require 'straight)

(setf straight-use-package-by-default t)

(defvar thanos/packages '(vertico marginalia org-roam nerd-icons-completion nerd-icons-ibuffer
	    consult org org-modern which-key elfeed elfeed-goodies python-mode emms org-download
	    visual-fill-column rainbow-delimiters eshell-git-prompt helpful password-store
	    json-mode ement magit corfu orderless consult pdf-tools markdown-mode eat doom-themes
	    org-auto-tangle sly eat nov eshell-syntax-highlighting emojify flycheck vterm doom-modeline
	    telega transmission gptel nerd-icons-dired sudo-edit mu4e-alert magit-todos jinx)
  "List of packages to install.")

(setf straight-recipe-overrides
      '((transmission :type git :host nil :repo "git@thanosapollo.org:/var/git/transmission")
	(yeetube :type git :host nil :repo "git@thanosapollo.org:/var/git/yeetube")))

(defvar thanos/custom-packages
  '((yeetube :local-repo "~/Dev/emacs-lisp/yeetube")
    (gnosis :local-repo "~/Dev/emacs-lisp/gnosis")
    (copilot :host github :repo "zerolfx/copilot.el" :files ("dist" "*.el")))
  "Custom package recipes.")

;; Get packages via straight
(cl-loop for package in (append thanos/custom-packages thanos/packages)
	 do (straight-use-package package))

;; Set and load custom.el
(setf custom-file (concat user-emacs-directory "custom.el"))
(load custom-file 'noerror)


(provide 'thanos-packages)
;;; thanos-packages.el ends here