feat(emacs): minor changes

.emacs.d/init.el

@@ -1392,6 +1392,8 @@ Returns (<buffer> . <workspace-index>) or nil."
                         return (cl-position frame exwm-workspace--list)))))
     (when target-workspace (cons buf target-workspace))))
 
+(with-eval-after-load 'exwm
+  (with-eval-after-load 'dap-mode
     (defun my/dap--go-to-stack-frame-override (debug-session stack-frame)
       "Make STACK-FRAME the active STACK-FRAME of DEBUG-SESSION."
       (with-lsp-workspace (dap--debug-session-workspace debug-session)
@@ -1417,9 +1419,6 @@ Returns (<buffer> . <workspace-index>) or nil."
                   (forward-char column))
               (message "No source code for %s. Cursor at %s:%s." name line column))))
         (run-hook-with-args 'dap-stack-frame-changed-hook debug-session)))
-
-(with-eval-after-load 'exwm
-  (with-eval-after-load 'dap-mode
     (advice-add #'dap--go-to-stack-frame :override #'my/dap--go-to-stack-frame-override)))
 
 ;; (advice-remove #'dap--go-to-stack-frame #'my/dap--go-to-stack-frame-override)
@@ -1448,6 +1447,7 @@ Returns (<buffer> . <workspace-index>) or nil."
 (defun my/copilot-tab ()
   (interactive)
   (or (copilot-accept-completion)
+      (when (my/should-run-emmet-p) (my/emmet-or-tab))
       (indent-for-tab-command)))
 
 (defun my/setup-copilot ()
@@ -1456,7 +1456,9 @@ Returns (<buffer> . <workspace-index>) or nil."
 (defvar my/copilot-mode-map
   (let ((map (make-sparse-keymap)))
     (evil-define-key* 'insert map
-      (kbd "<tab>") #'my/copilot-tab)
+      (kbd "<tab>") #'my/copilot-tab
+      (kbd "M-j") #'copilot-accept-completion-by-line
+      (kbd "M-l") #'copilot-accept-completion-by-word)
     map))
 
 (define-minor-mode my/copilot-mode
@@ -1468,6 +1470,9 @@ Returns (<buffer> . <workspace-index>) or nil."
   :init
   (add-hook 'prog-mode-hook #'copilot-mode)
   :config
+  (general-define-key
+   :keymaps 'company-active-map
+   "<backtab>" #'my/copilot-tab)
   (add-hook 'copilot-mode-hook #'my/copilot-mode))
 
 (defun my/set-smartparens-indent (mode)
@@ -1480,6 +1485,12 @@ Returns (<buffer> . <workspace-index>) or nil."
   (setq-local lsp-diagnostic-package :none)
   (setq-local flycheck-checker 'javascript-eslint))
 
+(defun my/should-run-emmet-p ()
+  (and emmet-mode
+       (or (and (derived-mode-p 'web-mode)
+                (member (web-mode-language-at-pos) '("html" "css")))
+           (not (derived-mode-p 'web-mode)))))
+
 (use-package emmet-mode
   :straight t
   :hook ((vue-html-mode . emmet-mode)
@@ -1489,18 +1500,13 @@ Returns (<buffer> . <workspace-index>) or nil."
          (css-mode . emmet-mode)
          (scss-mode . emmet-mode))
   :config
-  ;; (setq emmet-indent-after-insert nil)
-  (setq my/emmet-mmm-submodes '(vue-html-mode css-mode))
   (defun my/emmet-or-tab (&optional arg)
     (interactive)
-    (if (and
+    (if (my/short-run-emmet-p)
-         (boundp 'mmm-current-submode)
-         mmm-current-submode
-         (not (member mmm-current-submode my/emmet-mmm-submodes)))
-        (indent-for-tab-command arg)
         (or (emmet-expand-line arg)
             (emmet-go-to-edit-point 1)
-          (indent-for-tab-command arg))))
+            (indent-for-tab-command arg))
+      (indent-for-tab-command arg)))
   (general-imap :keymaps 'emmet-mode-keymap
     "TAB" 'my/emmet-or-tab
     "<backtab>" 'emmet-prev-edit-point))
@@ -1600,7 +1606,9 @@ Returns (<buffer> . <workspace-index>) or nil."
 
 (defun my/web-mode-vue-setup (&rest _)
   (when (string-match-p (rx ".vue" eos) (buffer-name))
-    (setq-local web-mode-script-padding 0)))
+    (setq-local web-mode-script-padding 0)
+    (setq-local web-mode-style-padding 0)
+    (setq-local create-lockfiles nil)))
 
 (add-hook 'web-mode-hook 'my/web-mode-vue-setup)
 (add-hook 'editorconfig-after-apply-functions 'my/web-mode-vue-setup)

Emacs.org

@@ -2294,7 +2294,7 @@ A function to open a value from a treemacs node in a new buffer.
           (insert value))
         (select-window (display-buffer buffer))))))
 #+end_src
-**** Improved stack frame switching
+**** Switch to stack frame with filter
 One significant improvement over Chrome Inspector for my particular stack is an ability to filter the stack frame list, for instance, to see only frames that relate to my current project.
 
 So, here are functions that customize the filters:
@@ -2383,8 +2383,11 @@ Returns (<buffer> . <workspace-index>) or nil."
     (when target-workspace (cons buf target-workspace))))
 #+end_src
 
-And override =dap--go-to-stack-frame= to take that into account:
+And override =dap--go-to-stack-frame= to take that into account. For some reason, evaluating this before =dap-mode= doesn't work.
+
 #+begin_src emacs-lisp
+(with-eval-after-load 'exwm
+  (with-eval-after-load 'dap-mode
     (defun my/dap--go-to-stack-frame-override (debug-session stack-frame)
       "Make STACK-FRAME the active STACK-FRAME of DEBUG-SESSION."
       (with-lsp-workspace (dap--debug-session-workspace debug-session)
@@ -2410,9 +2413,6 @@ And override =dap--go-to-stack-frame= to take that into account:
                   (forward-char column))
               (message "No source code for %s. Cursor at %s:%s." name line column))))
         (run-hook-with-args 'dap-stack-frame-changed-hook debug-session)))
-
-(with-eval-after-load 'exwm
-  (with-eval-after-load 'dap-mode
     (advice-add #'dap--go-to-stack-frame :override #'my/dap--go-to-stack-frame-override)))
 
 ;; (advice-remove #'dap--go-to-stack-frame #'my/dap--go-to-stack-frame-override)
@@ -2453,6 +2453,7 @@ A general-purpose package to run formatters on files. While the most popular for
 (defun my/copilot-tab ()
   (interactive)
   (or (copilot-accept-completion)
+      (when (my/should-run-emmet-p) (my/emmet-or-tab))
       (indent-for-tab-command)))
 
 (defun my/setup-copilot ()
@@ -2461,7 +2462,9 @@ A general-purpose package to run formatters on files. While the most popular for
 (defvar my/copilot-mode-map
   (let ((map (make-sparse-keymap)))
     (evil-define-key* 'insert map
-      (kbd "<tab>") #'my/copilot-tab)
+      (kbd "<tab>") #'my/copilot-tab
+      (kbd "M-j") #'copilot-accept-completion-by-line
+      (kbd "M-l") #'copilot-accept-completion-by-word)
     map))
 
 (define-minor-mode my/copilot-mode
@@ -2473,6 +2476,9 @@ A general-purpose package to run formatters on files. While the most popular for
   :init
   (add-hook 'prog-mode-hook #'copilot-mode)
   :config
+  (general-define-key
+   :keymaps 'company-active-map
+   "<backtab>" #'my/copilot-tab)
   (add-hook 'copilot-mode-hook #'my/copilot-mode))
 #+end_src
 *** General additional config
@@ -2501,10 +2507,15 @@ Configs for various web development technologies I'm using.
 | TODO | make expand div[disabled] as <div disabled></div> |
 
 My bit of config here:
-- makes Emmet activate only in certain mmm-mode submodes.
 - makes =TAB= the only key I have to use
 
 #+begin_src emacs-lisp
+(defun my/should-run-emmet-p ()
+  (and emmet-mode
+       (or (and (derived-mode-p 'web-mode)
+                (member (web-mode-language-at-pos) '("html" "css")))
+           (not (derived-mode-p 'web-mode)))))
+
 (use-package emmet-mode
   :straight t
   :hook ((vue-html-mode . emmet-mode)
@@ -2514,18 +2525,13 @@ My bit of config here:
          (css-mode . emmet-mode)
          (scss-mode . emmet-mode))
   :config
-  ;; (setq emmet-indent-after-insert nil)
-  (setq my/emmet-mmm-submodes '(vue-html-mode css-mode))
   (defun my/emmet-or-tab (&optional arg)
     (interactive)
-    (if (and
+    (if (my/short-run-emmet-p)
-         (boundp 'mmm-current-submode)
-         mmm-current-submode
-         (not (member mmm-current-submode my/emmet-mmm-submodes)))
-        (indent-for-tab-command arg)
         (or (emmet-expand-line arg)
             (emmet-go-to-edit-point 1)
-          (indent-for-tab-command arg))))
+            (indent-for-tab-command arg))
+      (indent-for-tab-command arg)))
   (general-imap :keymaps 'emmet-mode-keymap
     "TAB" 'my/emmet-or-tab
     "<backtab>" 'emmet-prev-edit-point))
@@ -2648,7 +2654,9 @@ Vue settings
 #+begin_src emacs-lisp
 (defun my/web-mode-vue-setup (&rest _)
   (when (string-match-p (rx ".vue" eos) (buffer-name))
-    (setq-local web-mode-script-padding 0)))
+    (setq-local web-mode-script-padding 0)
+    (setq-local web-mode-style-padding 0)
+    (setq-local create-lockfiles nil)))
 
 (add-hook 'web-mode-hook 'my/web-mode-vue-setup)
 (add-hook 'editorconfig-after-apply-functions 'my/web-mode-vue-setup)