(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)