emacs.d.gnu/init.el at master · ddsteed/emacs.d.gnu · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
;;; init.el --- Load the full configuration -*- lexical-binding: t -*-
;;; Commentary:

;; This file bootstraps the configuration, which is divided into
;; a number of other files.

;;; Code:

(let ((minver "28.1"))
  (when (version< emacs-version minver)
    (error "Your Emacs is too old -- this config requires v%s or higher" minver)))

(when (version< emacs-version "30.0")
  (message "Your Emacs is old, and some functionality in this config will be disabled. Please upgrade if possible."))


;; Use a hook so the message doesn't get clobbered by other messages.
(add-hook 'emacs-startup-hook
        (lambda ()
          (message "Emacs ready in %s with %d garbage collections."
                   (format "%.2f seconds"
                           (float-time
                            (time-subtract after-init-time before-init-time)))
                   gcs-done)))

(add-to-list 'load-path (expand-file-name "lisp" user-emacs-directory))
(add-to-list 'load-path "~/.emacs.d.rds/elpa")
(add-to-list 'load-path "~/.emacs.d.rds/addons")

(setq custom-file (locate-user-emacs-file "custom.el"))

(use-package server
  :defer 5
  :config
  (autoload 'server-running-p "server")
  (unless (server-running-p) (server-start))
)

(require 'init-elpa)
(require 'init-exec-path)
(require 'init-frame-hooks)
(require 'init-look)
(require 'init-general)
(require 'init-buffer)
(require 'init-chinese)
(require 'init-vi)
(require 'init-dired)
(require 'init-terminal)
(require 'init-calendar)
(require 'init-program)
;(require 'init-lsp)
;(require 'init-lsp-bridge)
(require 'init-eglot)
(require 'init-company)
(require 'init-cpp)
(require 'init-cmake)
(require 'init-fortran)
(require 'init-git)
(require 'init-lisp)
(require 'init-markdown)
(require 'init-python)
(require 'init-ruff)
(require 'init-wolfram)
(require 'init-tex)
(require 'init-vue)
(require 'init-org)
(require 'init-roam)
(require 'init-ref)
(require 'init-ai)

(when (eq system-type 'darwin)
  (setq insert-directory-program "/opt/homebrew/bin/gls"))

;; 启动时全屏
;; Default frame settings. This is actually maximized, not full screen.
(push '(fullscreen . maximized) initial-frame-alist)
(push '(ns-transparent-titlebar . t) default-frame-alist)

(provide 'init)
;;; init.el ends here