Move machine and platform specific code into new files
Move some config out of custom.el for portability
This commit is contained in:
28
config.el
28
config.el
@@ -9,6 +9,8 @@
|
||||
;; (setq user-full-name "John Doe"
|
||||
;; user-mail-address "john@doe.com")
|
||||
|
||||
(add-load-path! (expand-file-name "lisp" doom-user-dir))
|
||||
|
||||
;; Doom exposes five (optional) variables for controlling fonts in Doom:
|
||||
;;
|
||||
;; - `doom-font' -- the primary font to use
|
||||
@@ -43,11 +45,9 @@
|
||||
;; (setq display-line-numbers-type t)
|
||||
(setq display-line-numbers-type 'relative)
|
||||
|
||||
;; If you use `org' and don't want your org files in the default location below,
|
||||
;; change `org-directory'. It must be set before org loads!
|
||||
(setq!
|
||||
org-directory
|
||||
"C:/Users/EmmaTurner/OneDrive - Exponential Technology Group, Inc/Documents/Notes/")
|
||||
(require (intern (system-name)))
|
||||
(require (intern (format "%s" system-type)))
|
||||
|
||||
|
||||
;; Whenever you reconfigure a package, make sure to wrap your config in an
|
||||
;; `after!' block, otherwise Doom's defaults may override your settings. E.g.
|
||||
@@ -83,6 +83,8 @@
|
||||
(after!
|
||||
org (setq org-hide-emphasis-markers t) (setq org-log-done 'time)
|
||||
|
||||
(push '("cs" . csharp) org-src-lang-modes)
|
||||
|
||||
;; Collect all .org from my Org directory and subdirs
|
||||
(defun load-org-agenda-files-recursively (dir)
|
||||
"Find all directories in DIR."
|
||||
@@ -127,22 +129,6 @@
|
||||
:commands (elisp-autofmt-mode elisp-autofmt-buffer)
|
||||
:hook (emacs-lisp-mode . elisp-autofmt-mode))
|
||||
|
||||
;; Windows path
|
||||
(when (eq system-type 'windows-nt)
|
||||
|
||||
;; https://emacs.stackexchange.com/a/29949
|
||||
;; Make sure Unix tools are in front of `exec-path'
|
||||
;; (let ((bash (executable-find "bash")))
|
||||
;; (when bash
|
||||
;; (push (file-name-directory bash) exec-path)))
|
||||
(push "C:/Program Files/Git/usr/bin/" exec-path)
|
||||
|
||||
;; Update PATH from exec-path
|
||||
(let ((path
|
||||
(mapcar
|
||||
'file-truename
|
||||
(append exec-path (split-string (getenv "PATH") path-separator t)))))
|
||||
(setenv "PATH" (mapconcat 'identity (delete-dups path) path-separator))))
|
||||
|
||||
;; Based off https://github.com/alphapapa/unpackaged.el#ensure-blank-lines-between-headings-and-before-contents
|
||||
;;;###autoload
|
||||
|
||||
Reference in New Issue
Block a user