pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-06-14 12:21:20 +00:00
Code Issues Projects Releases Packages Wiki Activity

Compare commits

base: pestctrl:c36a49ec945b5be66613e61a8e325c0cbf320fa7
Branches Tags
pestctrl:master
pestctrl:build36
pestctrl:llvm-conf
...
compare: pestctrl:b5e6b36e99d1aa625c088d1d346a164c27f6920d
Branches Tags
pestctrl:master
pestctrl:build36
pestctrl:llvm-conf

5 commits
c36a49ec94 ... b5e6b36e99

Author SHA1 Message Date
Benson Chu
b5e6b36e99 Apparently the program has been renamed 2025-09-16 19:42:05 -05:00
Benson Chu
93ce56e2ef Make that function interactive 2025-09-16 19:42:05 -05:00
Benson Chu
21e392eb31 Don't show tags for weekly report 2025-09-10 16:10:39 -05:00
Benson Chu
3ba0143065 I would like this consult line thingy 2025-09-10 16:10:39 -05:00
Benson Chu
8186d0b564 Cool, that's neat! 2025-09-10 16:10:39 -05:00
3 changed files with 13 additions and 10 deletions
Show stats Expand all files Collapse all files

16
config-min.org
View file

@ -94,13 +94,13 @@
(setq vertico-count 8) (setq vertico-count 8)
(use-package consult (use-package consult
;; :bind ( :bind (
;; ("C-x b" . consult-buffer) ;; orig. switch-to-buffer ;; ("C-x b" . consult-buffer) ;; orig. switch-to-buffer
;; ("C-x 4 b" . consult-buffer-other-window) ;; orig. switch-to-buffer-other-window ;; ("C-x 4 b" . consult-buffer-other-window) ;; orig. switch-to-buffer-other-window
;; ("C-x 5 b" . consult-buffer-other-frame) ;; orig. switch-to-buffer-other-frame ;; ("C-x 5 b" . consult-buffer-other-frame) ;; orig. switch-to-buffer-other-frame
;; ("C-x t b" . consult-buffer-other-tab) ;; orig. switch-to-buffer-other-tab ;; ("C-x t b" . consult-buffer-other-tab) ;; orig. switch-to-buffer-other-tab
;; ) ("M-s l" . consult-line)
) ))
(setq completion-in-region-function (setq completion-in-region-function
(lambda (&rest args) (lambda (&rest args)
@ -506,7 +506,7 @@
(dedicated . t) (dedicated . t)
(inhibit-same-window . t))) (inhibit-same-window . t)))
(global-set-key (kbd "C-x g") 'magit-status) (global-set-key (kbd "C-x g") 'magit-status)
(global-set-key (kbd "C-x M-g") 'magit-dispatch) (global-set-key (kbd "C-x M-g") 'magit-file-dispatch)
(require 'magit-overrides) (require 'magit-overrides)
;; Magit uses ediff ;; Magit uses ediff

3
lisp/exwm-lib/exwm-aux/exwm-startup.el
View file

@ -26,7 +26,7 @@
(defvar exwm-startup-programs (defvar exwm-startup-programs
'(("megasync" "QT_SCALE_FACTOR=1 megasync") '(("megasync" "QT_SCALE_FACTOR=1 megasync")
"/usr/lib/kdeconnectd" "/usr/lib/kdeconnectd"
("compton" "compton -f -i .7 -b") ("compton" "picom --backend=glx -f -i .7 -b")
;; ("compton -f -i .7 -b --backend glx --blur-background --blur-method kawase --blur-strength 2") ;; ("compton -f -i .7 -b --backend glx --blur-background --blur-method kawase --blur-strength 2")
"start-pulseaudio-x11;pactl upload-sample /usr/share/sounds/gnome/default/alerts/drip.ogg beep; pactl load-module module-x11-bell sample=beep; xset b 100" "start-pulseaudio-x11;pactl upload-sample /usr/share/sounds/gnome/default/alerts/drip.ogg beep; pactl load-module module-x11-bell sample=beep; xset b 100"
"kdeconnect-indicator" "kdeconnect-indicator"
@ -46,6 +46,7 @@
(start-process-shell-command (file-name-nondirectory program) nil program)))) (start-process-shell-command (file-name-nondirectory program) nil program))))
(defun call-startup-programs () (defun call-startup-programs ()
(interactive)
(start-minimum-programs) (start-minimum-programs)
(when (y-or-n-p "Run startup programs? ") (when (y-or-n-p "Run startup programs? ")
(dolist (program exwm-startup-programs) (dolist (program exwm-startup-programs)

4
lisp/ti-config/work-org-stuff.el
View file

@ -162,6 +162,7 @@
(org-agenda-start-on-weekday 3) (org-agenda-start-on-weekday 3)
(org-agenda-show-log t) (org-agenda-show-log t)
(org-agenda-include-inactive-timestamps t) (org-agenda-include-inactive-timestamps t)
(org-agenda-hide-tags-regexp ".*")
;; (org-agenda-skip-function (lambda () ;; (org-agenda-skip-function (lambda ()
;; (let ((tags (org-get-tags))) ;; (let ((tags (org-get-tags)))
;; (unless (and (or (member ,tag tags) ;; (unless (and (or (member ,tag tags)
@ -631,7 +632,8 @@
(setq org-agenda-hide-tags-regexp (setq org-agenda-hide-tags-regexp
(rx (or "prod" (rx (or "prod"
(and symbol-start "_" (+ nonl) "_" symbol-end) (and symbol-start "_" (+ nonl) "_" symbol-end)
"Project" "active"))) "Project" "active"
"dailies")))
(defun ti/generate-org-exit-interrupt () (defun ti/generate-org-exit-interrupt ()
(--> (-->