init.el (1524B)
1 ;;; init.el --- init.el -*- lexical-binding: t -*- 2 3 ;;; Commentary: 4 ;; trogloxene's Emacs 5 6 ;;; Code: 7 8 ;; from centaur emacs 9 ;; restore file-name-hadler-alist 10 (unless (or (daemonp) noninteractive init-file-debug) 11 (add-hook 'emacs-startup-hook 12 (lambda () 13 (setq file-name-handler-alist 14 (delete-dups (append file-name-handler-alist 15 my--file-name-handler-alist)))) 16 101)) 17 18 (add-to-list 'load-path 19 (expand-file-name (concat user-emacs-directory "lisp"))) 20 21 (setq custom-file (expand-file-name "custom.el" user-emacs-directory)) 22 (load custom-file t) 23 24 (defconst *is-mac* (eq system-type 'darwin)) 25 (defconst *is-linux* (eq system-type 'gnu/linux)) 26 (defconst *is-windows* (or (eq system-type 'ms-dos) (eq system-type 'windows-nt))) 27 (defconst *is-android* (if (getenv "TERMUX_VERSION") t nil)) 28 29 (if (or (display-graphic-p) *is-android*) 30 (progn 31 (require 'init-proxy nil t) 32 (require 'init-startup) 33 (require 'init-elpa) 34 (require 'init-base) 35 (require 'init-edit) 36 (require 'init-completion) 37 (require 'init-package) 38 (require 'init-org) 39 (require 'init-prog) 40 (require 'init-window) 41 (require 'init-exwm) 42 (require 'init-dired) 43 (require 'init-gptel) 44 (require 'init-ui) 45 (require 'init-kbd-func) 46 (require 'init-kbd) 47 (require 'init-segmentation) 48 (require 'init-local nil t)) 49 (require 'init-terminal)) 50 ;;; init.el ends here