diff --git a/.config/shepherd/services.scm b/.config/shepherd/services.scm index 70105df1..407e7042 100644 --- a/.config/shepherd/services.scm +++ b/.config/shepherd/services.scm @@ -141,18 +141,18 @@ be missing." #:respawn? #t)) (define location-paris "48.51:2.20") -(define redshift ; TODO: Test! +(define redshift (make #:provides '(redshift) #:docstring "Redshift adjusts the color temperature of your screen according to your surroundings. This may help your eyes hurt less if you are working in front of the screen at night." - #:start (make-system-constructor - (format #f "redshift -l ~a -t 6500:3500" location-paris) - #:log-file (string-append - (or (getenv "XDG_CONFIG_HOME") - (string-append (getenv "HOME") "/.config")) - "/redshift/redshift.log")) + #:start (make-forkexec-constructor + (list "redshift" "-l" location-paris "-t 6500:3500") + #:log-file (string-append + (or (getenv "XDG_CONFIG_HOME") + (string-append (getenv "HOME") "/.config")) + "/redshift/redshift.log")) #:stop (make-kill-destructor) #:respawn? #t)) diff --git a/.emacs.d/lisp/init-exwm.el b/.emacs.d/lisp/init-exwm.el index 07c1d3c2..e9973eed 100644 --- a/.emacs.d/lisp/init-exwm.el +++ b/.emacs.d/lisp/init-exwm.el @@ -278,6 +278,11 @@ WIth SETTING to :ENABLE or :DISABLE, set" ;; TODO: Turn the toggle into a global minor mode. ;; Even better: Use autorandr_launcher (https://github.com/phillipberndt/autorandr/issues/210). +;; Don't intercept "C-c" since it frequently used to copy text. +;; EXWM local key bindings won't be availble then. +;; See https://github.com/ch11ng/exwm/wiki#local-key-bindings. +(define-key exwm-mode-map (kbd "C-c") nil) + (setq exwm-edit-bind-default-keys nil) ;; REVIEW: The following prevents passing "C-c" to the child window. ;; (when (require 'exwm-edit nil 'noerror) diff --git a/.xprofile b/.xprofile index 5dd98f76..6dc364a7 100644 --- a/.xprofile +++ b/.xprofile @@ -24,9 +24,6 @@ x-scheme-handler/https=$BROWSER.desktop x-scheme-handler/mailto=emacs-mail.desktop EOF -## redshift -redshift -l 48.51:2.20 -t 6500:3500 & - ## Start user services. ## For now, we need to start it here after X has started since it has graphical services. shepherd