First commit.

lisp/init-constants.el

@@ -0,0 +1,44 @@
+;;; init-constants.el --- Set up constants required during initialization -*- lexical-binding: t; -*-
+;;; Commentary:
+;;; Code:
+
+(require 'lib/path)
+(require 'lib/env)
+(require 'lib/pkg-config)
+
+
+;;; (Directories) ;;;
+(defconst *user-home-directory*
+  (getenv-or "HOME" (concat (expand-file-name "~") "/"))
+  "Path to user home directory.")
+(defconst *user-local-directory*
+  (if (getenv "XDG_DATA_HOME")
+      (path-dirname (getenv "XDG_DATA_HOME"))
+    (path-join *user-home-directory* ".local"))
+  "Path to user's local store.")
+(defconst *user-config-directory*
+  (path-join (getenv-or "XDG_CONFIG_HOME"
+                        (path-join *user-home-directory* ".config"))
+             "emacs")
+  "Path to user's local cache store.")
+(defconst *user-data-directory*
+  (path-join (getenv-or "XDG_DATA_HOME"
+                        (path-join *user-local-directory* "share"))
+             "emacs")
+  "Path to user's local data store.")
+(defconst *user-cache-directory*
+  (path-join (getenv-or "XDG_CACHE_HOME"
+                        (path-join *user-home-directory* ".cache"))
+             "emacs")
+  "Path to user's local cache store.")
+(defconst *user-documents-directory*
+  (path-join *user-home-directory* "Documents")
+  "Path to user's documents directory.")
+
+(defconst *user-local-init*
+  (path-join *user-home-directory* ".emacs.local.el")
+  "Path to user's machine-local configuration file.")
+
+
+(provide 'init-constants)
+;;; init-constants.el ends here