Update Emacs configuration

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index ccad8caa054e658a6afc99e6db48a547ffd6dc8d..7e21a9afe8dfac057165f6c34da20a10b3fd0d82 100644 (file)
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -467,7 +467,9 @@ DEADLINE: %(format-time-string \"<%Y-%m-%d %H:%M>\" (org-read-date t t))
  TeX-source-correlate-mode t
  TeX-electric-sub-and-superscript t
  ;; TeX-electric-escape t
- LaTeX-electric-left-right-brace t)
+ LaTeX-electric-left-right-brace t
+ ;; Read remote man pages
+ Man-support-remote-systems t)
 
 (setq-default indent-tabs-mode nil)
 
@@ -550,7 +552,7 @@ DEADLINE: %(format-time-string \"<%Y-%m-%d %H:%M>\" (org-read-date t t))
 (defun esy/ttyper ()
   (interactive)
   (let ((default-directory "~"))
-    (eat "ttyper" t)))
+    (eat "ttyper -c ~/.config/ttyper/config.toml" t)))
 
 (defun esy/hut-builds ()
   (interactive)
@@ -611,8 +613,14 @@ DEADLINE: %(format-time-string \"<%Y-%m-%d %H:%M>\" (org-read-date t t))
                     (point-max)
                     filename))))
 
+(defface comint '((t :background "#fff2f3")) "")
+
 (with-eval-after-load 'comint
-  (keymap-set comint-mode-map "C-c C-q" #'esy/log-buffer))
+  (keymap-set comint-mode-map "C-c C-q" #'esy/log-buffer)
+  (add-hook 'comint-mode-hook
+            (lambda ()
+              (dolist (face '(default fringe mode-line-inactive))
+                (face-remap-add-relative face 'comint)))))
 
 (defun esy/recent-log-summary ()
   "Display a summary of my website's most recent access log."
@@ -1231,7 +1239,8 @@ as the initial input for completion, and return that directory."
 ;;; Configure terminal emulation via `vterm'
 
 (with-eval-after-load 'vterm
-  (add-to-list 'vterm-tramp-shells '("kubernetes" "/bin/bash")))
+  (add-to-list 'vterm-tramp-shells '("kubernetes" "/bin/bash"))
+  (add-to-list 'vterm-tramp-shells '("ssh" "/bin/bash")))
 
 ;;; Remove some over-intrusive keybindings in `paredit'
 
@@ -1279,10 +1288,16 @@ as the initial input for completion, and return that directory."
 
 ;;; Configure Help
 
+(defface help '((t :background "#f0fff0")) "")
+
 (with-eval-after-load 'help-fns
   (with-eval-after-load 'shortdoc
     (add-hook 'help-fns-describe-function-functions
-              #'shortdoc-help-fns-examples-function)))
+              #'shortdoc-help-fns-examples-function))
+  (add-hook 'help-mode-hook
+            (lambda ()
+              (dolist (face '(default fringe mode-line-inactive))
+                (face-remap-add-relative face 'help)))))
 
 ;;; Configure dictionary