(mapconcat
 (lambda (x) (if (file-directory-p x) (add-to-list 'exec-path x)) nil)
 `(
   "/usr/games"
   "/usr/texbin"
   "/sbin"
   "/usr/sbin"
   "/usr/local/sbin"
   "/bin"
   "/usr/bin"
   "/usr/local/bin"
   ,(concat (getenv "HOME") "/bin"))
 "")
(setenv "PATH" (mapconcat 'identity exec-path ":"))

(let* ((home (getenv "HOME"))
       (etc (concat home "/etc")))
  (setenv "FONTCONFIG_FILE" (concat etc "/fonts/conf"))
  (setenv "GNUPGHOME" (concat etc "/gnupg"))
  (setenv "XAUTHORITY" (concat etc "/X/Xauthority"))
  (setenv "XDG_CACHE_HOME" (concat home "/var/cache"))
  (setenv "XDG_CONFIG_DIR" (concat etc "/config"))
  (setenv "XDG_CONFIG_HOME" (concat etc "/X")))

(setenv "PAGER" "cat")

(provide 'ew-rc)