Browse Source

Added debugger config, other stuff

* Customizations for GUD to behave similar to Visual Studio, which is
what I'm most used to. It's a flawed config, but better than nothing
* Override slime M-p so I can still quickly open org files
* Use a cute little folder for org ellipsis
* Add PHP mode (I never use this...)
* Comment lua-mode for now (fixme)
* Add support for my new language, Cakelisp
master
Macoy Madson 1 year ago
parent
commit
496cb7a84d
  1. 5
      Emacs/core-settings.el
  2. 24
      Emacs/debugger.el
  3. 4
      Emacs/keybinds.el
  4. 2
      Emacs/org-customizations.el
  5. 1
      Emacs/packages.el
  6. 10
      Emacs/syntaxes.el

5
Emacs/core-settings.el

@ -201,6 +201,11 @@ would dismiss the compile log, if it was visible"
(defun macoy-copy-buffer-filename-to-clipboard ()
(interactive)
(simpleclip-set-contents buffer-file-name))
;; TODO
;; (defun macoy-browse-copy-path ()
;; (interactive)
;; (simpleclip-set-contents (ido-find-file)))
)
;; Open file in explorer

24
Emacs/debugger.el

@ -0,0 +1,24 @@
(when (require 'gud)
(defvar macoy-gud-minor-mode-map
(let ((map (make-sparse-keymap)))
(define-key map (kbd "S-<f5>") 'gud-run)
(define-key map (kbd "C-<f5>") 'gud-run)
(define-key map (kbd "<f5>") 'gud-cont)
(define-key map (kbd "<f9>") 'gud-break)
;; Do not enter functions
(define-key map (kbd "<f10>") 'gud-next)
;; Do enter functions
(define-key map (kbd "<f11>") 'gud-step)
;; Step out of function
(define-key map (kbd "S-<f11>") 'gud-finish)
;; Print at mark
(define-key map (kbd "C-SPC") 'gud-print)
(define-key map (kbd "C-S-SPC") 'gud-watch)
map)
"macoy-gud-minor-mode keymap.")
(define-minor-mode macoy-gud-minor-mode
"A minor mode for Visual-Studio-like gud keybindings."
:init-value nil
:lighter " Macoy-GUD")
)

4
Emacs/keybinds.el

@ -241,6 +241,10 @@
(with-eval-after-load 'magit
(define-key magit-mode-map (kbd "C-<tab>") nil))
(with-eval-after-load 'slime
;; Jump to org file is more important!
(define-key slime-mode-indirect-map (kbd "M-p") nil))
;;
;; Multiple cursors

2
Emacs/org-customizations.el

@ -165,3 +165,5 @@
(require 'org-mru-clock)
(global-set-key (kbd "<f8>") 'org-mru-clock-in)
(global-set-key (kbd "S-<f8>") 'org-clock-out)
(setq org-ellipsis " 🗀")

1
Emacs/packages.el

@ -51,6 +51,7 @@
multiple-cursors
;; org-jira
org-mru-clock
php-mode
powerline
projectile
rainbow-mode

10
Emacs/syntaxes.el

@ -65,9 +65,9 @@
)
;; Disable due to Emacs 28 not supported
(when (version< emacs-version "28")
(when (require 'lua-mode)
(setq lua-indent-level 4)))
;; (when (version< emacs-version "28")
;; (when (require 'lua-mode)
;; (setq lua-indent-level 4)))
;; (when (require 'smart-tabs-mode
;; (smart-tabs-insinuate 'c 'c++)))
@ -89,3 +89,7 @@
(when (require 'glsl-mode)
(add-to-list 'auto-mode-alist '("\\.shader?\\'" . glsl-mode)))
(require 'php-mode)
(add-to-list 'auto-mode-alist '("\\.cake?\\'" . lisp-mode))

Loading…
Cancel
Save