configurations/dotfiles
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added: correct win32 paths

Browse Source
This commit is contained in:
rhjr 2025-11-29 09:32:59 +00:00
parent 15d5ece788
commit b96ab10a90
1 changed files with 22 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
.config/emacs/init.el
View File

@ -1,14 +1,22 @@
;; rhjr/paths ;; rhjr/paths
(defvar rhjr/paths/config "~/.config/emacs/") (defconst rhjr/base-config-dir
(defvar rhjr/paths/packages (concat rhjr/paths/config "packages/")) (if (eq system-type 'windows-nt)
(defvar rhjr/paths/thirdparty (concat rhjr/paths/config "thirdparty/")) "C:\\Users\\Rhjr\\AppData\\Roaming\\.emacs.d\\"
"~/.config/emacs/"))
(defvar rhjr/paths/no-littering/etc (concat rhjr/paths/config "config/")) (defconst rhjr/paths/config rhjr/base-config-dir)
(defvar rhjr/paths/no-littering/var (concat rhjr/paths/config "data/")) (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 ;; rhjr/archives
(require 'package) (require 'package)
@ -76,6 +84,12 @@
dired-recursive-deletes 'always dired-recursive-deletes 'always
dired-listing-switches "-laGh1v --group-directories-first")) 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 ;;; rhjr/functions
;; private functions ;; private functions
(defun display-startup-echo-area-message () (defun display-startup-echo-area-message ()
@ -232,4 +246,4 @@
;; If you edit it by hand, you could mess it up, so be careful. ;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance. ;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right. ;; If there is more than one, they won't work right.
) )