-
Notifications
You must be signed in to change notification settings - Fork 1
/
init.el
54 lines (41 loc) · 1.61 KB
/
init.el
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
;;; -*- mode: emacs-lisp; coding: utf-8 -*-
;;; init.el --- config entry point
;;
;; Copyright (c) 2010-2018 WisdomFusion
;;
;; @author: WisdomFusion <[email protected]>
;; @url: https://github.com/WisdomFusion/dotemacs
;; Version: 1.0.0
;;
(when (version< emacs-version "29.0")
(error "This dotemacs requires at least GNU Emacs 29.0, but you're running %s" emacs-version))
(setq byte-compile-warnings '(cl-functions))
;; Added by Package.el. This must come before configurations of
;; installed packages. Don't delete this line. If you don't want it,
;; just comment it out by adding a semicolon to the start of the line.
;; You may delete these explanatory comments.
(package-initialize)
(message "GNU Emacs is powering up... Be patient plz.")
;; Always load newest byte code
(setq load-prefer-newer t)
;; define dirs to store personal files or data
(defvar wf-root-dir (file-name-directory load-file-name)
"The root dir of the GNU Emacs.")
(defvar wf-my-dir (expand-file-name "my" wf-root-dir)
"This directory is for my personal configs, files or data.")
(unless (file-exists-p wf-my-dir)
(make-directory wf-my-dir))
(defvar wf-my-savefile-dir (expand-file-name "save" wf-my-dir)
"This folder stores all the automatically generated save, history, ... files.")
(unless (file-exists-p wf-my-savefile-dir)
(make-directory wf-my-savefile-dir))
(require 'server)
(unless (server-running-p)
(server-start))
;; turn on slime when lisp and slime working
(defconst *hack-slime-p* nil)
;; load config.org
;;(require 'org-install)
(require 'ob-tangle)
(org-babel-load-file "~/.emacs.d/config.org")
;;; init.el ends here