1
0
Fork 0

Added: correct win32 paths

Browse Source
This commit is contained in:
rhjr 2025-11-29 09:32:59 +00:00
parent 15d5ece788
commit b96ab10a90

View File

@ -1,14 +1,22 @@
;; rhjr/paths
(defvar rhjr/paths/config "~/.config/emacs/")
(defvar rhjr/paths/packages (concat rhjr/paths/config "packages/"))
(defvar rhjr/paths/thirdparty (concat rhjr/paths/config "thirdparty/"))
(defconst rhjr/base-config-dir
(if (eq system-type 'windows-nt)
"C:\\Users\\Rhjr\\AppData\\Roaming\\.emacs.d\\"
"~/.config/emacs/"))
(defvar rhjr/paths/no-littering/etc (concat rhjr/paths/config "config/"))
(defvar rhjr/paths/no-littering/var (concat rhjr/paths/config "data/"))
(defconst rhjr/paths/config rhjr/base-config-dir)
(defconst rhjr/paths/packages (concat rhjr/paths/config "packages/"))
(defconst rhjr/paths/thirdparty (concat rhjr/paths/config "thirdparty/"))
(defvar rhjr/paths/eln-cache (concat rhjr/paths/config "data/eln-cache"))
(defconst rhjr/paths/no-littering/etc (concat rhjr/paths/config "config/"))
(defconst rhjr/paths/no-littering/var (concat rhjr/paths/config "data/"))
(defvar rhjr/paths/home "~")
(defconst rhjr/paths/eln-cache (concat rhjr/paths/config "data/eln-cache"))
(defconst rhjr/paths/home
(if (eq system-type 'windows-nt)
"C:\\Users\\Rhjr\\Home\\"
"~"))
;; rhjr/archives
(require 'package)
@ -76,6 +84,12 @@
dired-recursive-deletes 'always
dired-listing-switches "-laGh1v --group-directories-first"))
;;; rhjr/win32
(when (eq system-type 'windows-nt)
(setq select-enable-clipboard t
grep-program "C:\\ProgramData\\chocolatey\\bin\\grep.exe"
find-program "C:\\Windows\\System32\\find.exe"))
;;; rhjr/functions
;; private functions
(defun display-startup-echo-area-message ()
@ -232,4 +246,4 @@
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
)
)