Reorganize core/*.el
This commit is contained in:
parent
68b7203749
commit
c1418ad76b
6 changed files with 15 additions and 101 deletions
|
@ -1,6 +0,0 @@
|
||||||
;;; core-autoload.el
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
(provide 'core-autoload)
|
|
||||||
;;; core-autoload.el ends here
|
|
|
@ -1,33 +0,0 @@
|
||||||
;;; core-dashboard.el
|
|
||||||
|
|
||||||
(setq initial-major-mode 'doom-mode
|
|
||||||
initial-scratch-message "\n Loading..."
|
|
||||||
inhibit-startup-screen t
|
|
||||||
;; shuts up emacs at startup
|
|
||||||
inhibit-startup-echo-area-message user-login-name)
|
|
||||||
|
|
||||||
(define-derived-mode doom-mode special-mode
|
|
||||||
(concat "v" doom-version)
|
|
||||||
"Major mode for DOOM buffers.")
|
|
||||||
|
|
||||||
(define-derived-mode doom-dashboard-mode doom-mode
|
|
||||||
(concat "v" doom-version)
|
|
||||||
"Major mode for DOOM buffers.")
|
|
||||||
|
|
||||||
(defvar doom-dashboard-buffer value
|
|
||||||
"")
|
|
||||||
|
|
||||||
(defvar doom-dashboard-buffer-name " *doom*"
|
|
||||||
"")
|
|
||||||
|
|
||||||
(defvar doom-dashboard--edited nil
|
|
||||||
"")
|
|
||||||
|
|
||||||
(defvar doom-dashboard-inhibit-reload nil
|
|
||||||
"")
|
|
||||||
|
|
||||||
(defvar doom-dashboard-mode-line-format (assq 'minimal doom-modeline-formats)
|
|
||||||
"")
|
|
||||||
|
|
||||||
(provide 'core-dashboard)
|
|
||||||
;;; core-dashboard.el ends here
|
|
|
@ -1,41 +0,0 @@
|
||||||
;;; custom-debug.el --- debugging with `realgud'
|
|
||||||
|
|
||||||
(after! debug
|
|
||||||
;; For elisp debugging
|
|
||||||
(map! :map debugger-mode-map
|
|
||||||
:n "RET" 'debug-help-follow
|
|
||||||
:n "n" 'debugger-step-through
|
|
||||||
:n "c" 'debugger-continue))
|
|
||||||
|
|
||||||
(use-package realgud
|
|
||||||
:commands (realgud:gdb realgud:trepanjs realgud:bashdb realgud:zshdb)
|
|
||||||
:config
|
|
||||||
(map! :map realgud:shortkey-mode-map
|
|
||||||
:n "j" 'evil-next-line
|
|
||||||
:n "k" 'evil-previous-line
|
|
||||||
:n "h" 'evil-backward-char
|
|
||||||
:n "l" 'evil-forward-char
|
|
||||||
:m "n" 'realgud:cmd-next
|
|
||||||
:m "b" 'realgud:cmd-break
|
|
||||||
:m "B" 'realgud:cmd-clear
|
|
||||||
:n "c" 'realgud:cmd-continue)
|
|
||||||
|
|
||||||
;; Popup rules
|
|
||||||
(def-popup! "\\`\\*\\(g\\|zsh\\|bash\\)db.*?\\*\\'" :size 20 :regexp t)
|
|
||||||
(def-popup! "\\`\\*trepanjs.*?\\*\\'" :size 20 :regexp t)
|
|
||||||
|
|
||||||
;; Temporary Ex commands for the debugger
|
|
||||||
(def-tmp-excmd! doom:def-debug-on doom:def-debug-off
|
|
||||||
("n[ext]" . realgud:cmd-next)
|
|
||||||
("s[tep]" . realgud:cmd-step)
|
|
||||||
("b[reak]" . doom:debug-toggle-breakpoint)
|
|
||||||
("c[ontinue]" . realgud:cmd-continue))
|
|
||||||
|
|
||||||
;; TODO does this work with shackle?
|
|
||||||
(advice-add 'realgud-cmdbuf-init :after 'doom:def-debug-on)
|
|
||||||
(advice-add 'realgud:cmd-quit :after 'doom:def-debug-off)
|
|
||||||
;; Monkey-patch `realgud:run-process' to run in a popup.
|
|
||||||
(advice-add 'realgud:run-process :override 'doom*realgud:run-process))
|
|
||||||
|
|
||||||
(provide 'custom-debug)
|
|
||||||
;;; custom-debug.el ends here
|
|
|
@ -1,6 +0,0 @@
|
||||||
;;; core-sessions.el
|
|
||||||
|
|
||||||
;; TODO
|
|
||||||
|
|
||||||
(provide 'core-sessions)
|
|
||||||
;;; core-sessions.el ends here
|
|
|
@ -1,9 +1,13 @@
|
||||||
;;; core-settings.el --- centralized inter-package configuration
|
;;; core-set.el --- centralized inter-package configuration
|
||||||
|
|
||||||
(defvar doom-settings '()
|
(defvar doom-settings '()
|
||||||
"docstring")
|
"docstring")
|
||||||
|
|
||||||
(defun doom-define-setting (name &optional docs &rest args))
|
(defun doom-define-setting (name &optional docs &rest args)
|
||||||
|
(declare (indent defun)))
|
||||||
|
|
||||||
|
(defun doom-set (mode key value)
|
||||||
|
(declare (indent defun)))
|
||||||
|
|
||||||
(defmacro config! (package-name &rest args)
|
(defmacro config! (package-name &rest args)
|
||||||
(declare (indent defun))
|
(declare (indent defun))
|
||||||
|
@ -15,8 +19,5 @@
|
||||||
|
|
||||||
(defmacro set! (&rest args))
|
(defmacro set! (&rest args))
|
||||||
|
|
||||||
(defun doom-set (mode key value)
|
(provide 'core-set)
|
||||||
(declare (indent defun)))
|
;;; core-set.el ends here
|
||||||
|
|
||||||
(provide 'core-settings)
|
|
||||||
;;; core-settings.el ends here
|
|
11
core/core.el
11
core/core.el
|
@ -149,7 +149,7 @@ enable multiple minor modes for the same regexp.")
|
||||||
(package! smex :commands smex)
|
(package! smex :commands smex)
|
||||||
|
|
||||||
;;; Let 'er rip! (order matters!)
|
;;; Let 'er rip! (order matters!)
|
||||||
;; (require 'core-settings) ; configuration management system
|
;; (require 'core-set) ; configuration management system
|
||||||
;; (require 'core-popups) ; taming sudden yet inevitable windows
|
;; (require 'core-popups) ; taming sudden yet inevitable windows
|
||||||
(require 'core-evil) ; come to the dark side, we have cookies
|
(require 'core-evil) ; come to the dark side, we have cookies
|
||||||
;; (require 'core-project)
|
;; (require 'core-project)
|
||||||
|
@ -158,13 +158,12 @@ enable multiple minor modes for the same regexp.")
|
||||||
;; (require 'core-modeline)
|
;; (require 'core-modeline)
|
||||||
;; (require 'core-editor)
|
;; (require 'core-editor)
|
||||||
;; (require 'core-completion)
|
;; (require 'core-completion)
|
||||||
;; (require 'core-syntax-checking)
|
;; (require 'core-jump)
|
||||||
;; (require 'core-snippets)
|
|
||||||
;; (require 'core-repl)
|
;; (require 'core-repl)
|
||||||
;; (require 'core-sessions)
|
;; (require 'core-snippets)
|
||||||
;; (require 'core-workspaces)
|
;; (require 'core-syntax-checking)
|
||||||
;; (require 'core-vcs)
|
;; (require 'core-vcs)
|
||||||
;; (require 'core-dashboard)
|
;; (require 'core-workspaces)
|
||||||
|
|
||||||
(unless (require 'autoloads nil t)
|
(unless (require 'autoloads nil t)
|
||||||
(doom/refresh-autoloads t)))
|
(doom/refresh-autoloads t)))
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue