summaryrefslogtreecommitdiff
path: root/init.el
diff options
context:
space:
mode:
authorJSDurand <mmemmew@gmail.com>2021-01-16 14:04:07 +0800
committerJSDurand <mmemmew@gmail.com>2021-01-16 14:06:06 +0800
commit96d038c44a1ef26892adf4b775d1e2efe9e7b44b (patch)
tree559dd92faefcba14bb7b045289017dc34d80c9b5 /init.el
parent66e440458db37f91903ce8d0c19867f010f7a1a2 (diff)
The first stable version
Fixes: Avoid adding suffix-link repeatedly * embark-conf.el ("embark"): Use view-mode instead of view-file * init.el (load-after-function): Modify the macro so that it no longer redefines built-in functions. (global-map): ("view-conf.el"): Rename view-functions.el to view-conf.el * suffix tree/generalized-suffix-tree.el (gst-edge-length): (gst-add-suffix-link): (gst-canonize): (gst-extend-tree): (gst-build-for-strs): Fixed the bug. * suffix tree/gst debugging platform.txt (strs): Add a new debugging file * suffix tree/gst test ground (2).txt (strs): Do more debugging * tab-conf.el (durand-switch-tab-dwim): Add my own dwim tab function. (global-map): Bind it to the global map. * theme.el Update the modus-themes. * view-conf.el Rename view-functions.el to view-conf.el.
Diffstat (limited to 'init.el')
-rw-r--r--init.el31
1 files changed, 20 insertions, 11 deletions
diff --git a/init.el b/init.el
index 0ce3c09..f0cbc5b 100644
--- a/init.el
+++ b/init.el
@@ -46,17 +46,20 @@
After loading, execute DEF.
Finally if REDEFINE-P is non-nil,
then FUNCTION-NAME will be defined as DEF after loading."
- `(defun ,function-name ()
- ,doc
- (interactive)
- (load-config ,file-path)
- ,@def
- ,(cond
- (redefine-p
- `(defun ,function-name ()
- ,doc
- (interactive)
- ,@def)))))
+ (cond
+ ((fboundp function-name))
+ (t
+ `(defun ,function-name ()
+ ,doc
+ (interactive)
+ (load-config ,file-path)
+ ,@def
+ ,(cond
+ (redefine-p
+ `(defun ,function-name ()
+ ,doc
+ (interactive)
+ ,@def)))))))
(load-config "common.el")
@@ -143,6 +146,12 @@ then FUNCTION-NAME will be defined as DEF after loading."
(defalias 'magit 'magit-status)
(magit))
+(define-key global-map (vector 3 103) 'magit)
+
+;;; Viewing things
+
+(load-config "view-conf.el")
+
;;; flymake
(prepare-in-hook-once prepare-flymake prog-mode-hook "flymake-conf.el")