From b375c2447db003c771dc27e8b4a3865b0553f635 Mon Sep 17 00:00:00 2001 From: tslil clingman <> Date: Sat, 2 Dec 2023 11:47:46 +0100 Subject: [emacs] disable tinymenu and god mode --- emacs/inits/06-god.el | 23 --------------------- emacs/inits/07-tinymenu.el | 48 ------------------------------------------- emacs/inits/NO-06-god.el | 23 +++++++++++++++++++++ emacs/inits/NO-07-tinymenu.el | 48 +++++++++++++++++++++++++++++++++++++++++++ 4 files changed, 71 insertions(+), 71 deletions(-) delete mode 100644 emacs/inits/06-god.el delete mode 100644 emacs/inits/07-tinymenu.el create mode 100644 emacs/inits/NO-06-god.el create mode 100644 emacs/inits/NO-07-tinymenu.el (limited to 'emacs') diff --git a/emacs/inits/06-god.el b/emacs/inits/06-god.el deleted file mode 100644 index a17a5a4..0000000 --- a/emacs/inits/06-god.el +++ /dev/null @@ -1,23 +0,0 @@ -;; Time-stamp: <2021-09-27 08h47 EDT (hobbies)> - -(use-package god-mode - :ensure t - :init - (defvar my-god-cursor-colour (frame-parameter (selected-frame) 'cursor-color)) - :bind (("" . god-local-mode) - ;; ("" . god-mode) ;; this is just too much trouble - ;; useful - ("C-x C-1" . delete-other-windows) - ("C-x C-2" . split-window-below) - ("C-x C-3" . split-window-right) - ("C-x C-0" . delete-window)) - :config - (push 'term-mode god-exempt-major-modes) - - (defun my-god-update-cursor () - (interactive) - (if (bound-and-true-p god-local-mode) - (set-cursor-color "red") - (set-cursor-color my-god-cursor-colour))) - (add-hook 'god-mode-enabled-hook #'my-god-update-cursor) - (add-hook 'god-mode-disabled-hook #'my-god-update-cursor)) diff --git a/emacs/inits/07-tinymenu.el b/emacs/inits/07-tinymenu.el deleted file mode 100644 index 1e734ab..0000000 --- a/emacs/inits/07-tinymenu.el +++ /dev/null @@ -1,48 +0,0 @@ -;; Time-stamp: <2020-08-12 22:15:01 (user@hobbies)> - -(use-package tiny-menu - :ensure t) - -;; (eval-after-load "tiny-menu" -;; (progn -;; (defun hexl-input-smart () -;; (hexl-insert-char (0xc-string-to-number (read-string "Input: ")) 1)) - -;; (setq tiny-menu-forever t -;; tiny-menu-items '(("hexl-menu" -;; ("hexl" -;; ((?i "Insert" hexl-input-smart) -;; (?b "Byte" hexl-forward-char) -;; (?e "bytE" hexl-backward-char) -;; (?s "Short" hexl-forward-short) -;; (?t "shorT" hexl-backward-short)))) -;; )))) - -;; (add-hook 'hexl-mode-hook -;; (lambda () -;; (require '0xc) -;; (require 'tiny-menu) -;; (define-key hexl-mode-map (kbd "M-l") -;; (lambda () (interactive) (tiny-menu "hexl-menu"))))) - - -(use-package pulseaudio-control - :ensure t - :bind ("C-x /" . (lambda () (interactive) (tiny-menu "pulseaudio-control-menu"))) - :config - (defun pulseaudio-control-tinymenu-header () - (let ((words (split-string (pulseaudio-control--get-current-volume))) - (mute (if (string-equal "yes" (cadr (split-string (pulseaudio-control--get-current-mute)))) - "[mute]" ""))) - (concat "PulseAudio " mute "(" (nth 4 words) " / " (nth 11 words) ")"))) - (add-to-list 'tiny-menu-items - '("pulseaudio-control-menu" - (pulseaudio-control-tinymenu-header - ((?+ "Vol+" pulseaudio-control-increase-volume "pulseaudio-control-menu") - (?- "Vol-" pulseaudio-control-decrease-volume "pulseaudio-control-menu") - (?? "Vol?" pulseaudio-control-display-volume) - (?m "Mute" pulseaudio-control-toggle-current-sink-mute) - (?e "Mute sink" pulseaudio-control-toggle-sink-mute-by-name) - (?d "Use @DEF" pulseaudio-control-toggle-use-of-default-sink "pulseaudio-control-menu") - (?n "Sink" pulseaudio-control-select-sink-by-name "pulseaudio-control-menu") - (?p "Vol%" pulseaudio-control-set-volume)))))) diff --git a/emacs/inits/NO-06-god.el b/emacs/inits/NO-06-god.el new file mode 100644 index 0000000..a17a5a4 --- /dev/null +++ b/emacs/inits/NO-06-god.el @@ -0,0 +1,23 @@ +;; Time-stamp: <2021-09-27 08h47 EDT (hobbies)> + +(use-package god-mode + :ensure t + :init + (defvar my-god-cursor-colour (frame-parameter (selected-frame) 'cursor-color)) + :bind (("" . god-local-mode) + ;; ("" . god-mode) ;; this is just too much trouble + ;; useful + ("C-x C-1" . delete-other-windows) + ("C-x C-2" . split-window-below) + ("C-x C-3" . split-window-right) + ("C-x C-0" . delete-window)) + :config + (push 'term-mode god-exempt-major-modes) + + (defun my-god-update-cursor () + (interactive) + (if (bound-and-true-p god-local-mode) + (set-cursor-color "red") + (set-cursor-color my-god-cursor-colour))) + (add-hook 'god-mode-enabled-hook #'my-god-update-cursor) + (add-hook 'god-mode-disabled-hook #'my-god-update-cursor)) diff --git a/emacs/inits/NO-07-tinymenu.el b/emacs/inits/NO-07-tinymenu.el new file mode 100644 index 0000000..1e734ab --- /dev/null +++ b/emacs/inits/NO-07-tinymenu.el @@ -0,0 +1,48 @@ +;; Time-stamp: <2020-08-12 22:15:01 (user@hobbies)> + +(use-package tiny-menu + :ensure t) + +;; (eval-after-load "tiny-menu" +;; (progn +;; (defun hexl-input-smart () +;; (hexl-insert-char (0xc-string-to-number (read-string "Input: ")) 1)) + +;; (setq tiny-menu-forever t +;; tiny-menu-items '(("hexl-menu" +;; ("hexl" +;; ((?i "Insert" hexl-input-smart) +;; (?b "Byte" hexl-forward-char) +;; (?e "bytE" hexl-backward-char) +;; (?s "Short" hexl-forward-short) +;; (?t "shorT" hexl-backward-short)))) +;; )))) + +;; (add-hook 'hexl-mode-hook +;; (lambda () +;; (require '0xc) +;; (require 'tiny-menu) +;; (define-key hexl-mode-map (kbd "M-l") +;; (lambda () (interactive) (tiny-menu "hexl-menu"))))) + + +(use-package pulseaudio-control + :ensure t + :bind ("C-x /" . (lambda () (interactive) (tiny-menu "pulseaudio-control-menu"))) + :config + (defun pulseaudio-control-tinymenu-header () + (let ((words (split-string (pulseaudio-control--get-current-volume))) + (mute (if (string-equal "yes" (cadr (split-string (pulseaudio-control--get-current-mute)))) + "[mute]" ""))) + (concat "PulseAudio " mute "(" (nth 4 words) " / " (nth 11 words) ")"))) + (add-to-list 'tiny-menu-items + '("pulseaudio-control-menu" + (pulseaudio-control-tinymenu-header + ((?+ "Vol+" pulseaudio-control-increase-volume "pulseaudio-control-menu") + (?- "Vol-" pulseaudio-control-decrease-volume "pulseaudio-control-menu") + (?? "Vol?" pulseaudio-control-display-volume) + (?m "Mute" pulseaudio-control-toggle-current-sink-mute) + (?e "Mute sink" pulseaudio-control-toggle-sink-mute-by-name) + (?d "Use @DEF" pulseaudio-control-toggle-use-of-default-sink "pulseaudio-control-menu") + (?n "Sink" pulseaudio-control-select-sink-by-name "pulseaudio-control-menu") + (?p "Vol%" pulseaudio-control-set-volume)))))) -- cgit v1.2.3