mirror of
https://github.com/pestctrl/emacs-config.git
synced 2026-02-16 16:24:18 +00:00
95 lines
2.8 KiB
EmacsLisp
95 lines
2.8 KiB
EmacsLisp
(setq package-list '(org use-package exwm))
|
|
;; list the repositories containing them
|
|
(setq package-archives '(("melpa" . "http://melpa.org/packages/")
|
|
("org" . "https://orgmode.org/elpa/")
|
|
("gnu" . "http://elpa.gnu.org/packages/")
|
|
("elpa" . "http://tromey.com/elpa/")
|
|
;;("marmalade" . "http://marmalade-repo.org/packages/")
|
|
))
|
|
|
|
;; activate all the packages (in particular autoloads)
|
|
(package-initialize)
|
|
|
|
(when (not package-archive-contents)
|
|
(package-refresh-contents))
|
|
;; fetch the list of packages available
|
|
(unless package-archive-contents
|
|
(package-refresh-contents))
|
|
|
|
;; install the missing packages
|
|
(dolist (package package-list)
|
|
(unless (package-installed-p package)
|
|
(package-install package)))
|
|
|
|
(require 'org)
|
|
(require 'use-package)
|
|
(setq use-package-always-ensure t)
|
|
|
|
;; Add my modules
|
|
(progn
|
|
(add-to-list 'load-path (expand-file-name "~/.emacs.d/lisp"))
|
|
|
|
(let ((default-directory "~/.emacs.d/lisp/"))
|
|
(normal-top-level-add-subdirs-to-load-path))
|
|
|
|
(let ((default-directory "~/.emacs.d/submodule/"))
|
|
(normal-top-level-add-subdirs-to-load-path)))
|
|
|
|
(require 'emacs-custom-load-or-ask)
|
|
|
|
(ec/load-or-ask-pred 'my/is-wsl "Are you running Emacs in WSL?")
|
|
(ec/load-or-ask-pred 'my/enable-exwm "Do you want to load EXMW?")
|
|
(ec/load-or-ask-pred 'my/at-ti "Are you at TI for work?")
|
|
(defvar is-windows (or my/is-wsl
|
|
(eq system-type
|
|
'windows-nt)))
|
|
|
|
(ec/load-or-ask-pred 'my/add-info-dir "Do you want an auxiliary info dir? ")
|
|
|
|
(when my/add-info-dir
|
|
(ec/load-or-ask-dir 'my/info-dir "Info Directory? ")
|
|
(add-to-list 'Info-directory-list my/info-dir))
|
|
|
|
(setq my/enable-exwm (and my/enable-exwm (eq 'x window-system)))
|
|
|
|
(require 'keymap)
|
|
(require 'libs)
|
|
|
|
(when (boundp 'face--new-frame-defaults)
|
|
(define-obsolete-variable-alias
|
|
'face-new-frame-defaults 'face--new-frame-defaults
|
|
"28.1"))
|
|
|
|
;; It is imperative that this be loaded for a nice emacs
|
|
;; experience. Only SUPER stable stuff goes in this file, and should
|
|
;; rarely be modified
|
|
(org-babel-load-file
|
|
(expand-file-name "config-min.org"
|
|
user-emacs-directory))
|
|
|
|
;; Load additional exwm stuff that changes constantly
|
|
(use-package exwm
|
|
:config
|
|
(org-babel-load-file
|
|
(expand-file-name "config-exwm.org"
|
|
user-emacs-directory)))
|
|
|
|
(org-babel-load-file
|
|
(expand-file-name "config-ext.org"
|
|
user-emacs-directory))
|
|
|
|
;; Load work stuff when at work.
|
|
(if my/at-ti
|
|
(require 'work-config)
|
|
(require 'my-org))
|
|
|
|
(org-babel-load-file
|
|
(expand-file-name "my-redefs.org"
|
|
user-emacs-directory))
|
|
|
|
(setq my/finished t)
|
|
;; Testing pull from windows
|
|
|
|
(put 'narrow-to-region 'disabled nil)
|
|
(put 'list-timers 'disabled nil)
|
|
(put 'erase-buffer 'disabled nil)
|