emenel/dot-doom
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

binds and tweaks

Browse source
This commit is contained in:
Matt Nish-Lapidus 2025-05-26 15:42:40 -04:00
parent ba2bc75e8b
commit a6ea3f38f9
3 changed files with 18 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
bindings.el
View file

@ -297,7 +297,7 @@
:desc "Delete trailing newlines" "W" #'doom/delete-trailing-newlines :desc "Delete trailing newlines" "W" #'doom/delete-trailing-newlines
:desc "List errors" "x" #'+default/diagnostics :desc "List errors" "x" #'+default/diagnostics
:desc "Spaces -> Tabs" "<tab>" #'tabify :desc "Spaces -> Tabs" "<tab>" #'tabify
:desc "Tabs -> Spaces" "<S-tab>" #'untabify :desc "Tabs -> Spaces" "C-<tab>" #'untabify
:desc "Diff buffer and file" "b" #'diff-buffer-with-file :desc "Diff buffer and file" "b" #'diff-buffer-with-file
(:prefix ("-" . "String Case") (:prefix ("-" . "String Case")
:desc "cycle" "~" #'string-inflection-all-cycle :desc "cycle" "~" #'string-inflection-all-cycle

16
config.el
View file

@ -10,7 +10,7 @@
;; See 'C-h v doom-font' for documentation and more examples of what they ;; See 'C-h v doom-font' for documentation and more examples of what they
;; accept. For example: ;; accept. For example:
(setq doom-font (font-spec :family "JetBrains Mono" :size 18)) (setq doom-font (font-spec :family "IBM Plex Mono" :size 18))
(setq fancy-splash-image (concat doom-user-dir "splash.png")) (setq fancy-splash-image (concat doom-user-dir "splash.png"))
(setq doom-theme 'doom-one) (setq doom-theme 'doom-one)
@ -278,3 +278,17 @@
(beg (region-beginning)) (beg (region-beginning))
(end (region-end))) (end (region-end)))
(font-lock-flush beg end)))) (font-lock-flush beg end))))
(defun +workspaces-associate-frame-fn (frame &optional _new-frame-p)
"Create a blank, new perspective and associate it with FRAME."
(when persp-mode
(with-selected-frame frame
(if (not (cdr-safe (persp-frame-list-without-daemon)))
(+workspace-switch +workspaces-main t)
(+workspace-switch (format "#%s" (+workspace--generate-id)) t))
(unless (doom-real-buffer-p (current-buffer))
(switch-to-buffer (doom-fallback-buffer)))
(set-frame-parameter frame 'workspace (+workspace-current-name))
;; ensure every buffer has a buffer-predicate
(persp-set-frame-buffer-predicate frame))
(run-at-time 0.1 nil #'+workspace/display)))

4
meow.el
View file

@ -91,7 +91,7 @@
'("u" . undo) '("u" . undo)
'("U" . undo-redo) '("U" . undo-redo)
'("v" . meow-visit) '("v" . meow-visit)
'("V" . meow-goto-line) ;; '("V" . )
'("w" . meow-mark-word) '("w" . meow-mark-word)
'("W" . meow-mark-symbol) '("W" . meow-mark-symbol)
'("x" . cua-cut-region) '("x" . cua-cut-region)
@ -99,7 +99,7 @@
'("y" . kmacro-start-macro) '("y" . kmacro-start-macro)
'("Y" . kmacro-end-macro) '("Y" . kmacro-end-macro)
'("z" . meow-line) '("z" . meow-line)
'("Z" . meow-line-expand) '("Z" . meow-goto-line)
'("<" . meow-beginning-of-thing) '("<" . meow-beginning-of-thing)
'(">" . meow-end-of-thing) '(">" . meow-end-of-thing)
'("/" . +default/search-buffer) '("/" . +default/search-buffer)