Browse Source

Various minor improvements

master
Nicolas Petton 2 years ago
parent
commit
10cae668ee
No known key found for this signature in database GPG Key ID: E8BCD7866AFCF978
3 changed files with 9 additions and 4 deletions
  1. +1
    -1
      bin/clipboard-manager.sh
  2. +6
    -2
      hosts/blueberry/init-exwm.el
  3. +2
    -1
      init.el

+ 1
- 1
bin/clipboard-manager.sh View File

@@ -2,7 +2,7 @@

old_clipboard_content=$(xclip -sel clip -o | sed 's/[\"]/\\&/g')

while sleep 2; do
while sleep 0.5; do
new_clipboard_content=$(xclip -sel clip -o | sed 's/[\"]/\\&/g')
if [ "${old_clipboard_content}" != "${new_clipboard_content}" ]; then
emacsclient -e "(kill-new \"${new_clipboard_content}\")"


+ 6
- 2
hosts/blueberry/init-exwm.el View File

@@ -17,7 +17,7 @@
"Start a clipboard manager, performing `kill-new' from xclip."
(interactive)
(start-process-shell-command "clipboard-manager"
nil
nil ;; We don't want all cuts to be logged
(locate-user-emacs-file "bin/clipboard-manager.sh")))

;; Watch smartcard to lock the screen
@@ -114,12 +114,16 @@ Append OUTPUT to the PROCESS buffer, and lock the screen when there is output."
([?\M-v] . prior)
([?\C-v] . next)
([?\C-d] . delete)
([?\C-k] . (S-end delete))
([?\C-k] . (S-end ?\C-x))
([?\M-<] . C-home)
([?\M->] . C-end)
;; cut/paste, selection
([?\C-w] . ?\C-x)
([?\M-w] . ?\C-c)
([?\C-y] . ?\C-v)
([?\C-x ?h] . ?\C-a)
([?\M-d] . (C-S-right ?\C-x))
([M-backspace] . (C-S-left ?\C-x))
;; search
([?\C-s] . ?\C-f)
;; escape


+ 2
- 1
init.el View File

@@ -106,7 +106,8 @@
auto-revert-verbose nil))

(use-package avy
:bind ("C-c C-j" . avy-goto-char-2)
:bind (("C-c C-j" . avy-goto-char-2)
("M-g g" . avy-goto-line))
:config
(progn
;; Home row


Loading…
Cancel
Save