Transient manu for system interaction and make text modification transient global

This commit is contained in:
Jakub 2025-09-26 18:19:19 +08:00
parent 044360e2b7
commit 97f9e119ad
2 changed files with 20 additions and 3 deletions

View file

@ -22,6 +22,8 @@
;;; Code: ;;; Code:
(require 'transient)
(defcustom theurgy-enable-vterm-windows nil (defcustom theurgy-enable-vterm-windows nil
"Whether `vterm' should be enabled on Windows sytems." "Whether `vterm' should be enabled on Windows sytems."
:type 'boolean :type 'boolean
@ -83,6 +85,21 @@
(slot . 0) (slot . 0)
(window-height . 0.2))) (window-height . 0.2)))
(use-package restart-emacs)
(use-package system-packages)
(transient-define-prefix system-interactions-transient ()
"Transient menu for interfacing with the system via system-packages and restart."
["Emacs system actions" ("R" "Restart" restart-emacs)]
["Package..." ("s" "Search" system-packages-search)
("u" "Update" system-packages-update)
("i" "Install" system-packages-install)
("r" "Uninstall" system-packages-uninstall)
("o" "Remove Orphans" system-packages-remove-orphaned)])
(define-key global-map (kbd "C-c o s") #'system-interactions-transient)
(provide 'terminal) (provide 'terminal)
;;; terminal.el ends here ;;; terminal.el ends here

View file

@ -252,7 +252,7 @@
("p" "Paragraph" mark-paragraph) ("p" "Paragraph" mark-paragraph)
("b" "Buffer" mark-whole-buffer)]) ("b" "Buffer" mark-whole-buffer)])
(define-key org-mode-map (kbd "C-c o SPC") #'mark-menu-transient) (define-key global-map (kbd "C-c o SPC") #'mark-menu-transient)
;; Section navigation and reordering ;; Section navigation and reordering
(defun move-sentence-right (&optional arg) (defun move-sentence-right (&optional arg)
@ -322,7 +322,7 @@
["Move paragraph..." ("u" "Up" move-paragraph-up) ["Move paragraph..." ("u" "Up" move-paragraph-up)
("d" "Down" move-paragraph-down)]) ("d" "Down" move-paragraph-down)])
(define-key org-mode-map (kbd "C-c o r") #'reorder-transient) (define-key global-map (kbd "C-c o r") #'reorder-transient)
;; Focused rewriting ;; Focused rewriting
(defun break-out-sentence () (defun break-out-sentence ()
@ -350,7 +350,7 @@
(break-out-choose-sentence) (break-out-choose-sentence)
(break-out-sentence))) (break-out-sentence)))
(define-key org-mode-map (kbd "C-c o b") #'break-out-dwim) (define-key global-map (kbd "C-c o b") #'break-out-dwim)
;; Powerthesaurus ;; Powerthesaurus
(use-package powerthesaurus (use-package powerthesaurus