kyle
/
emacsd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

account for brain-damaged machine

This commit is contained in:
Kyle Isom 2025-05-06 13:56:55 -07:00
parent 4869093491
commit 0d9779af5e
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
init.el
View File

@ -27,11 +27,14 @@ present on disk."
(expand-file-name path (expand-file-name path
(expand-file-name "cache" user-emacs-directory))) (expand-file-name "cache" user-emacs-directory)))
(defun braindead-machine-p ()
(member (system-name) '("GEIMACFHPL9CRFG9")))
;; set up package handling ;; set up package handling
(require 'package) (require 'package)
(setq package-user-dir (cache-path "packages")) (setq package-user-dir (cache-path "packages"))
(package-initialize) (package-initialize)
(when (equal (system-name) "GEIMACFHPL9CRFG9") (when (braindead-machine-p)
(customize-set-variables 'url-proxy-services (customize-set-variables 'url-proxy-services
'(("no_proxy" . "^\\(localhost\\|127\\..*\\)") '(("no_proxy" . "^\\(localhost\\|127\\..*\\)")
("http" . "127.0.0.1:9000") ("http" . "127.0.0.1:9000")
@ -299,7 +302,8 @@ present on disk."
(put 'downcase-region 'disabled nil) (put 'downcase-region 'disabled nil)
;;;; org-mode publishing ;;;; org-mode publishing
(load (emacs-path "org.el")) (unless (braindead-machine-p)
(load (emacs-path "org.el")))
(defvar *host-font-size* (defvar *host-font-size*
#s(hash-table #s(hash-table