I showed you my source code, pls respond
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

50 lines
1.4 KiB

4 years ago
4 years ago
4 years ago
  1. (defvar dotfiles/browser
  2. (getenv "BROWSER")
  3. "The default browser used by the system.")
  4. (defconst dotfiles/modules-available
  5. '(core desktop writing projects interface)
  6. "All of the available modules for hosts to load.")
  7. (defvar dotfiles/modules
  8. dotfiles/modules-available
  9. "Enabled modules, modify this in your host configuration.")
  10. (defvar dotfiles/home
  11. user-emacs-directory
  12. "Original value of `user-emacs-directory'.")
  13. (defvar dotfiles/cache
  14. (expand-file-name "~/.cache/emacs")
  15. "Where `user-emacs-directory' will be redirected.")
  16. (defvar dotfiles/idle
  17. 0.0
  18. "Length of time to wait before offering completions.")
  19. (defvar dotfiles/leader-key
  20. "SPC"
  21. "Custom leader key for custom actions.")
  22. (defvar dotfiles/leader-key-global
  23. (concat "C-" dotfiles/leader-key)
  24. "Global leader key available everywhere.")
  25. (defvar dotfiles/projects
  26. (expand-file-name "~/.local/source/")
  27. "Location where source code projects are stored.")
  28. (defvar dotfiles/passwords
  29. (expand-file-name "~/.password-store/")
  30. "Directory containing the password store.")
  31. ;; Load the host configuration.
  32. (let ((host-file (concat dotfiles/home "/hosts/" system-name ".el")))
  33. (when (file-exists-p host-file)
  34. (load-file host-file)))
  35. ;; Load the enabled modules.
  36. (dolist (m dotfiles/modules)
  37. (let ((mod-file (concat dotfiles/home "/modules/" (symbol-name m) ".el")))
  38. (when (file-exists-p mod-file)
  39. (load-file mod-file))))