;; -*- lexical-binding: t; -*-


;;;; auto-generated files
;; disable the custom file by making it temporary
(setopt custom-file (make-temp-file "emacs-custom-")
        tramp-auto-save-directory (expand-file-name "tmp/auto_saves/sessions/" user-emacs-directory)
        ;; disable lockfiles
        create-lockfiles nil
        ;; move auto-saves to tmp folder
        auto-save-list-file-prefix (expand-file-name "tmp/auto_saves/sessions/" user-emacs-directory)
        auto-save-file-transforms `((".*" ,(expand-file-name "tmp/auto_saves/" user-emacs-directory) t))
        ;; move backups to tmp folder
        backup-directory-alist `(("." . ,(expand-file-name "tmp/backups/" user-emacs-directory))))
(make-directory (expand-file-name "tmp/auto_saves/" user-emacs-directory) t)


;;;; path
(setenv "PATH" (format "%s:%s" (expand-file-name "~/Personal/scripts/") (getenv "PATH")))

;;;; warnings
(setopt warning-minimum-level :error)


;;;; startup some programs
(start-process-shell-command "picom" nil "picom")
(start-process-shell-command "bg" nil "set-bg")
(start-process-shell-command "xrate" nil "xset r rate 250 70")
(start-process-shell-command "status" nil "time-getter")


;;;; configure packages
;; external package manager
(setopt package-archives nil
        package-enable-at-startup t)
(add-to-list 'load-path (expand-file-name "~/.guix-profile/share/emacs/site-lisp"))
(guix-emacs-autoload-packages)
;; use-package
(require 'use-package-ensure)
(setopt use-package-always-ensure t)
;; (setq use-package-verbose t)


;;;; add my modules to load path
(mapc
 (lambda (path)
   (add-to-list 'load-path (locate-user-emacs-file path)))
 '("modules" "libraries"))


;;;; load modules
(require 'bd--themes)
(require 'bd--essentials)
(require 'bd--essential-windowing)
(require 'bd--rss)
(require 'bd--eww)
(require 'bd--dired)
(require 'bd--image)
(require 'bd--dictionary)
(require 'bd--erc)
(require 'bd--shells)
(require 'bd--minibuffer)
(require 'bd--popper)
(require 'bd--devel)
(require 'bd--org)
(require 'bd--roam)
(require 'bd--emms)
(require 'bd--notmuch) ;; (gitignored)
(require 'bd--modeline)
(require 'bd--tabs)


(server-start)