mirrors
/
ambevar-dotfiles
mirror of https://gitlab.com/ambrevar/dotfiles/
1
0
Fork 0
Code Issues Releases Wiki Activity

EXWM: Remove C-c prefix key to allow for copying in graphical programs.

master
Pierre Neidhardt 2021-02-21 13:24:45 +01:00
parent 3b1d3823eb
commit f68ca16425
3 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
.config/shepherd/services.scm
View File

@ -141,18 +141,18 @@ be missing."
#:respawn? #t)) #:respawn? #t))
(define location-paris "48.51:2.20") (define location-paris "48.51:2.20")
(define redshift ; TODO: Test! (define redshift
(make <service> (make <service>
#:provides '(redshift) #:provides '(redshift)
#:docstring "Redshift adjusts the color temperature of your screen according #: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 to your surroundings. This may help your eyes hurt less if you are working in
front of the screen at night." front of the screen at night."
#:start (make-system-constructor #:start (make-forkexec-constructor
(format #f "redshift -l ~a -t 6500:3500" location-paris) (list "redshift" "-l" location-paris "-t 6500:3500")
#:log-file (string-append #:log-file (string-append
(or (getenv "XDG_CONFIG_HOME") (or (getenv "XDG_CONFIG_HOME")
(string-append (getenv "HOME") "/.config")) (string-append (getenv "HOME") "/.config"))
"/redshift/redshift.log")) "/redshift/redshift.log"))
#:stop (make-kill-destructor) #:stop (make-kill-destructor)
#:respawn? #t)) #:respawn? #t))

5
.emacs.d/lisp/init-exwm.el
View File

@ -278,6 +278,11 @@ WIth SETTING to :ENABLE or :DISABLE, set"
;; TODO: Turn the toggle into a global minor mode. ;; TODO: Turn the toggle into a global minor mode.
;; Even better: Use autorandr_launcher (https://github.com/phillipberndt/autorandr/issues/210). ;; 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) (setq exwm-edit-bind-default-keys nil)
;; REVIEW: The following prevents passing "C-c" to the child window. ;; REVIEW: The following prevents passing "C-c" to the child window.
;; (when (require 'exwm-edit nil 'noerror) ;; (when (require 'exwm-edit nil 'noerror)

3
.xprofile
View File

@ -24,9 +24,6 @@ x-scheme-handler/https=$BROWSER.desktop
x-scheme-handler/mailto=emacs-mail.desktop x-scheme-handler/mailto=emacs-mail.desktop
EOF EOF
## redshift
redshift -l 48.51:2.20 -t 6500:3500 &
## Start user services. ## Start user services.
## For now, we need to start it here after X has started since it has graphical services. ## For now, we need to start it here after X has started since it has graphical services.
shepherd shepherd