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.

66 lines
1.8 KiB

4 years ago
4 years ago
4 years ago
  1. (defvar dotfiles/font
  2. "Fira Code"
  3. "Unified system font family, used on all font faces.")
  4. (defvar dotfiles/font-size
  5. 96
  6. "Unified font size, of which all variations are relative to.")
  7. (defvar dotfiles/browser
  8. (getenv "BROWSER")
  9. "The default browser used by the system.")
  10. (defvar dotfiles/language
  11. (getenv "LANG")
  12. "The default system language.")
  13. (defconst dotfiles/modules-available
  14. '(core editor desktop writing projects interface)
  15. "All of the available modules for hosts to load.")
  16. (defvar dotfiles/modules
  17. dotfiles/modules-available
  18. "Enabled modules, modify this in your host configuration.")
  19. (defvar dotfiles/home
  20. user-emacs-directory
  21. "Original value of `user-emacs-directory'.")
  22. (defvar dotfiles/cache
  23. (expand-file-name "~/.cache/emacs")
  24. "Where `user-emacs-directory' redirects to.")
  25. (defvar dotfiles/idle
  26. 0.0
  27. "Length of time to wait before offering completions.")
  28. (defvar dotfiles/leader-key
  29. "SPC"
  30. "Custom leader key for custom actions.")
  31. (defvar dotfiles/leader-key-global
  32. (concat "C-" dotfiles/leader-key)
  33. "Global leader key available everywhere.")
  34. (defvar dotfiles/projects
  35. (expand-file-name "~/.local/source/")
  36. "Location where source code projects exist on disk.")
  37. (defvar dotfiles/passwords
  38. (expand-file-name "~/.password-store/")
  39. "Directory containing the password store.")
  40. (defvar dotfiles/public-key
  41. "37AB1CB72B741E478CA026D43025DCBD46F81C0F"
  42. "Public PGP key that Emacs will encrypt files to.")
  43. ;; Load the host configuration.
  44. (let ((host-file (concat dotfiles/home "/hosts/" system-name ".el")))
  45. (when (file-exists-p host-file)
  46. (load-file host-file)))
  47. ;; Load the enabled modules.
  48. (dolist (m dotfiles/modules)
  49. (let ((mod-file (concat dotfiles/home "/modules/" (symbol-name m) ".el")))
  50. (when (file-exists-p mod-file)
  51. (load-file mod-file))))