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

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

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")
+  )

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

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 " 🗀")

Emacs/packages.el

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

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))