通过命令行实现笔记本的按键功能

Question

编辑添加：2018.03.28 自从我现在使用 nm-applet 后，就补充了网络部分的内容，此外还添加了 Alt+Tab 交换缓冲区和 emacs.el ​ 的 exwm 部分的内容。

我正在尝试使用 exwm，它与 i3wm 体验类似（但文档记录较少)，重量级的窗口管理器能为您的笔记本电脑提供很多功能。目前我旅行用的笔记本电脑就经常使用这些功能，我每天用它连接不同的 wifi 网络，连接对接站，连接额外的显示器和其他设备，切换触摸板等等。 在我寻求在 exwm 实现这些功能的过程中，我主要解决了以下这些问题。

控制电源键

电源按钮不是由窗口管理器管理的，而是由 systemd 管理的，例如，在我的 /etc/systemd/logind.conf 中有以下内容

[Login]
HandlePowerKey=hibernate
HandleLidSwitch=ignore
IdleAction=suspend
IdleActionSec=20min

切换触摸板

这是通过 shell 脚本实现的：

#!/bin/bash

declare -i ID
ID``xinput list | grep -Eo 'Touchpads*id`[0-9]{1,2}' | grep -Eo '[0-9]{1,2}'`
declare -i STATE
STATE=`xinput list-props $ID|grep 'Device Enabled'|awk '{print $4}'`
if [ $STATE -eq 1 ]
then
    xinput disable $ID
    echo "Touchpad disabled."
    # notify-send -a 'Touchpad' 'Disabled' -i /usr/share/icons/Adwaita/48x48/devices/input-touchpad.png
else
    xinput enable $ID
    echo "Touchpad enabled."
    # notify-send -a 'Touchpad' 'Enabled' -i /usr/share/icons/Adwaita/48x48/devices/input-touchpad.png
fi

然后我将该脚本绑定到我想要的快捷键上（因为我使用 exwm，所以我将它配置到我的 emacs.el 中，并以 touchpad_toggle 作为脚本名):

(exwm-input-set-key (kbd "s-<f7>")
                    (lambda () (interactive)
                      (shell-command (executable-find "touchpad_toggle"))))

锁屏

xscreensaver 解决了这个问题。一旦从 repos 安装了 xscreensaver 后（包括额外包以获得我想要的作为锁屏屏保的 gl-slideshow),我通过 xscreensaver-demo 来配置屏保。 然后我创建了一个名为 lockscreen 的单行程序，并将它写入我的 emacs 文件:

#!/bin/bash

xscreensaver-command -lock

(exwm-input-set-key (kbd "s-l") (lambda () (interactive) (shell-command (executable-find "lockscreen"))))

然后就是关闭锁屏时遇到了一个问题：https://unix.stackexchange.com/questions/81692/suspend-and-lock-screen-on-closing-lid-in-arch-systemd​

电池状态

简单地使用 fancy-battery mode 就好 (它现在已经不再维护的，但我在 melpa 上安装好它后，目前在我电脑上工作正常)

(use-package fancy-battery
  :ensure t
  (fancy-battery-mode))

简单的 Wifi 管理

nmtui 带有一个很好的 NetworkManager 文本接口，它的接口也是最简单的。问题是，它不能用于任何一种 Emacs 终端中，这些 Emacs 终端作为是我的 shell 解决方案已经有很长一段时间了。

放弃通过 CLI 接口来管理 Wifi，我发现 nm-applet 挺不错的。它的图标停靠屏幕的底部而且还具有我想要的密码记忆和自动连接功能。

简单地快速切换到多个监视器

However, exwm has solutions for this, which go into my emacs.el file: 当我插入一个外部显示器时，在 KDE 下只需要简单地插上显示器就可以了（尽管我可能需要做调整一下分辨率)。 但是在 exwm 中，这么做什么都不会发生。不过，exwm 对此有解决方案，我把这些解决方案放入我的 emacs.el 文件中:

(require 'exwm-randr)
(setq exwm-randr-workspace-output-plist '(0 "DP-1")) ;; DP-1 being the name of my new monitor as shown by `randr'
(add-hook 'exwm-randr-screen-change-hook
          (lambda ()
            (start-process-shell-command
              "xrandr" nil "xrandr --output DP-1 --left-of eDP-1 --auto"))) ;; eDP-1 being the name of my original (laptop) monitor
(exwm-enable)
(exwm-randr-enable)

音频音量

幸好我的声音是基于 Alsa 的，所以不需要安装任何东西。 根据之前在不同设备上的尝试经验，声音是很难处理的。 通过 Alsa，我可以在 exwm 配置中调节音量。

(exwm-input-set-key (kbd "<XF86AudioLowerVolume>")
                    (lambda () (interactive) (shell-command "amixer set Master 5%-")))
(exwm-input-set-key (kbd "<XF86AudioRaiseVolume>")
                    (lambda () (interactive) (shell-command "amixer set Master 5%+")))
(exwm-input-set-key (kbd "<XF86AudioMute>")
                    (lambda () (interactive) (shell-command "amixer set Master 1+ toggle")))

屏幕亮度

我在 KDE 下可以通过硬件键使我的屏幕变暗/变亮。我怎样才能在 exwm 中恢复这个功能?答案是 light 包（它比 xbacklight 容易得多，后者总是告诉我 No outputs have backlight property)。

https://github.com/haikarainen/light

按照说明安装后再设置好快捷键:

(exwm-input-set-key (kbd "<XF86MonBrightnessDown>") (lambda () (interactive) (shell-command "light -U 5; light")))
(exwm-input-set-key (kbd "<XF86MonBrightnessUp>") (lambda () (interactive) (shell-command "light -A 5; light")))

截图

我写这篇文章时，意识到我最不需要的就是截屏。 我最喜欢的截图工具是 KDE 自带的 Spectacle. 我已经安装安装好了它，因此只需要把它绑定到 Printscreen 键就行了：

(exwm-input-set-key (kbd "<print>") (lambda () (interactive) (start-process-shell-command "spectacle" nil "spectacle")))

使用 Alt-Tab 切换 Buffer

通过 iflipb 包很容易就能重新获得 alt+tab 的功能（这个功能我经常在其他系统上使用)。下载后，我只需要配置一下：

(exwm-input-set-key (kbd "M-<tab>") 'iflipb-next-buffer)
(exwm-input-set-key (kbd "M-<iso-lefttab>") 'iflipb-previous-buffer)

我的全部设置

use-package 使得配置变得简单和干净。这是我的 emacs.el。其中包括一些没有在这里描述的片段：

(use-package exwm
  :ensure t
  :init
  (setq mouse-autoselect-window t
        focus-follows-mouse t)
  (use-package exwm-config)
  (require 'exwm-randr)
  (setq exwm-workspace-show-all-buffers t)
  (setq exwm-layout-show-all-buffers t)
  (setq exwm-randr-workspace-output-plist '(0 "DP1"))
  (add-hook 'exwm-randr-screen-change-hook
            (lambda ()
              (start-process-shell-command
                "xrandr" nil "xrandr --output DP1 --left-of eDP1 --auto")))
  (exwm-enable)
  (exwm-randr-enable) ; https://github.com/ch11ng/exwm/wiki
  (require 'exwm-systemtray)
  (exwm-systemtray-enable)
  :config
  (add-hook 'exwm-update-class-hook
            (lambda () (unless (or (string-prefix-p "sun-awt-X11-" exwm-instance-name) (string= "gimp" exwm-instance-name))
                          (exwm-workspace-rename-buffer exwm-class-name))))
  (defun tsa/exwm-rename ()
    (interactive)
    (exwm-workspace-rename-buffer (concat exwm-class-name " : " exwm-title)))
  (add-hook 'exwm-update-title-hook 'tsa/exwm-rename)
  (setq tsa/default-simulation-keys
        '(
          ;; move
          ([?C-b] . left)
          ([?M-b] . C-left)
          ([?C-f] . right)
          ([?M-f] . C-right)
          ([?C-p] . up)
          ([?C-n] . down)
          ([?M-<] . C-home)
          ([?M->] . C-end)
          ([?C-a] . home)
          ([?C-e] . end) ;; in spreadsheets: C-e C-p - go to top; C-e C-n - go to bottom
          ([?M-v] . prior)
          ([?C-v] . next)
          ;; delete
          ([?C-d] . delete)
          ([?C-k] . (S-end delete))
          ([?M-d] . (C-S-right delete))
          ;; cut/copy/paste.
                                        ;([?C-w] . ?C-x)
          ([?M-w] . ?C-c)
          ([?C-y] . ?C-v)
          ;; search
          ([?C-s] . ?C-f)
          ))
  (exwm-input-set-simulation-keys tsa/default-simulation-keys)
  (exwm-input-set-key (kbd "s-r") 'exwm-reset)
  (exwm-input-set-key (kbd "s-n") 'tsa/exwm-rename)
  (exwm-input-set-key (kbd "s-N") 'rename-buffer)
  (exwm-input-set-key (kbd "s-w") #'exwm-workspace-switch)
  (exwm-input-set-key (kbd "s-f")
                      (lambda ()
                        (interactive)
                        (start-process-shell-command "firefox" nil "firefox")))
  (exwm-input-set-key (kbd "s-t")
                      (lambda ()
                        (interactive)
                        (start-process-shell-command "Telegram" nil "Telegram")))
  (exwm-input-set-key (kbd "s-<f7>") (lambda () (interactive) (shell-command (executable-find "touchpad_toggle"))))
  (exwm-input-set-key (kbd "C-c o") 'hydra-global-org/body)
  (exwm-input-set-key (kbd "C-M-o") 'hydra-window/body)
  (exwm-input-set-key (kbd "s-l") (lambda () (interactive) (shell-command (executable-find "lockscreen"))))
  (exwm-input-set-key (kbd "<f8>") 'tsa/go-or-make-agenda)
  (exwm-input-set-key (kbd "<f11>") 'helm-org-capture-templates)
  (exwm-input-set-key (kbd "<f9>") 'tsa/quick-gnus)
  (exwm-input-set-key (kbd "<XF86AudioLowerVolume>") (lambda () (interactive) (shell-command "amixer set Master 2%-")))
  (exwm-input-set-key (kbd "<XF86AudioRaiseVolume>") (lambda () (interactive) (shell-command "amixer set Master 2%+")))
  (exwm-input-set-key (kbd "<XF86AudioMute>") (lambda () (interactive) (shell-command "amixer set Master 1+ toggle")))
  (exwm-input-set-key (kbd "<XF86MonBrightnessDown>") (lambda () (interactive) (shell-command "light -U 5; light")))
  (exwm-input-set-key (kbd "<XF86MonBrightnessUp>") (lambda () (interactive) (shell-command "light -A 5; light")))
  (exwm-input-set-key (kbd "<print>") (lambda () (interactive) (start-process-shell-command "spectacle" nil "spectacle")))
  (exwm-input-set-key (kbd "s-<f9>") (lambda () (interactive) (shell-command "/home/torysa/bin/get-mail &" nil nil)))
  (exwm-input-set-key (kbd "M-<tab>") 'iflipb-next-buffer)
  (exwm-input-set-key (kbd "M-<iso-lefttab>") 'iflipb-previous-buffer))