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

;;; garbage collection threshold maneuvre

(setq gc-cons-threshold (* 512 1024 1024))

;;; tell me the start time at start-up

;;;###autoload
(defun message-start-time ()
  "Tell me the start time at start-up."
  (interactive)
  (message "%s" (emacs-init-time)))

(add-hook 'emacs-startup-hook #'message-start-time)

;;; Macro to conveniently load files

;;;###autoload
(defvar load-file-directory (cond ((stringp load-file-name) (file-name-directory load-file-name))
                                  (t default-directory))
  "The directory to load files")

;;;###autoload
(defsubst load-config (file-name)
  "Conviently load configuration files in the same directory as this file."
  (load-file (expand-file-name file-name load-file-directory)))

;;;###autoload
(defun load-config-later (file-name seconds)
  "Load FILE-NAME SECONDS later."
  (run-with-idle-timer seconds nil (lambda () (load-config file-name))))

;;;###autoload
(defmacro prepare-in-hook-once (entry-name hook file)
  "Define a function called ENTRY-NAME that loads FILE in HOOK once."
  `(progn
     (defun ,entry-name ()
      (remove-hook ',hook ',entry-name)
      (load-config ,file))
     (add-hook ',hook ',entry-name)))

;;;###autoload
(defmacro load-after-function (function-name file-path doc redefine-p &rest def)
  "Load FILE-PATH after FUNCTION-NAME.
After loading, execute DEF.
Finally if REDEFINE-P is non-nil, 
then FUNCTION-NAME will be defined as DEF after loading."
  `(defun ,function-name ()
    ,doc
    (interactive)
    (load-config ,file-path)
    ,@def
    ,(cond
      (redefine-p
       `(defun ,function-name ()
	 ,doc
	 (interactive)
	 ,@def)))))

(load-config "common.el")

(load-config "basic.el")

(load-config "backup-conf.el")

(load-config "recentf-conf.el")

(load-config "dashboard.el")

(load-config "theme.el")

(load-config "modeline.el")

(add-hook 'emacs-lisp-mode-hook
	  (lambda () (set 'mode-name "ELisp")))

(prepare-in-hook-once prepare-elisp emacs-lisp-mode-hook "elisp.el")

(prepare-in-hook-once prepare-org org-mode-hook "org-conf.el")

;;;###autoload
(load-after-function durand-mu4e "mail.el" "Open mu4e." t (mu4e))

(add-to-list 'auto-mode-alist (cons "pdf$" #'pdf-view-mode))

;;;###autoload
(load-after-function pdf-view-mode "pdf.el" "Fake mode that loads the pacakge." nil
		     (pdf-view-mode))

;;; bongo

;;;###autoload
(load-after-function bongo "bongo.el" "Listen to music in Emacs." nil
		     (bongo))

;;; gnus

(load-config "gnus-conf.el")

;;; comb

;; (load-config "comb/comb.el")
;; (load-config "comb/comb-annotation.el")

;;; orderless

;; TODO: Write my own completion styles library
(load-config "comb/orderless-conf.el")

;;; dired configurations

(prepare-in-hook-once prepare-dired dired-mode-hook "dired-conf.el")
(add-hook 'dired-mode-hook 'dired-hide-details-mode)

;;; ibuffer

(load-config "ibuffer.el")

;;; center buffer

(load-config "center-buffer.el")

;;; tab configurations

(load-config "tab-conf.el")

;;; Save sessions

(load-config "desktop-conf.el")

;;; Text Configurations

(prepare-in-hook-once prepare-text text-mode-hook "text-conf.el")

;;; embark

(load-config "embark-conf.el")

;;; Don't let s-q quit as I oft press that by accident.

(define-key global-map (vector ?\s-q) #'window-toggle-side-windows)

(setq gc-cons-threshold (* 2 1024 1024))