Add vterm configuration

I find vterm very useful when combined with the command 'btm'.  I can
use this combination to monitor many computer states conveniently,
which I did not find a way to accomplish with the built-in terminal
emulator 'term' in Emacs.

* init.el (vterm): Load vterm if necessary.

* vterm-conf.el: Thin configurations.

2 files changed, 42 insertions, 0 deletions

diff --git a/init.el b/init.el
index ae90b89..5fad3cb 100644
--- a/init.el
+++ b/init.el
@@ -462,6 +462,9 @@ no effect."
 (define-key global-map (vector 3 ?w ?l) #'durand-prepare-wifi-bluetooth)
 (define-key global-map (vector 3 ?w ?j) #'durand-prepare-wifi-bluetooth)
 
+(load-after-function
+    vterm "vtem-conf.el" "Load Vterm terminal emulator." nil)
+
 ;;; server
 
 ;; (cond
diff --git a/vterm-conf.el b/vterm-conf.el
new file mode 100644
index 0000000..3185d0e
--- /dev/null
+++ b/vterm-conf.el
@@ -0,0 +1,39 @@
+;;; vterm-conf.el --- Configurations for Vterm       -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2023  Jean Sévère Durand
+
+;; Author: Jean Sévère Durand <durand@jsdurand.xyz>
+;; Keywords: emulations, terminals, unix
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; My configurations for the Vterm temrinal emulator.
+
+;;; Code:
+
+;; Manually load the dynamic library to avoid module suffix problems.
+(load-file "~/elisp_packages/emacs-libvterm/vterm-module.so")
+
+(use-package "emacs-libvterm" 'vterm)
+
+;; Use mono-spaced fonts inside vterm.
+(add-hook 'vterm-mode-hook
+          (lambda ()
+            (set (make-local-variable 'buffer-face-mode-face) 'fixed-pitch)
+                 (buffer-face-mode t)))
+
+(provide 'vterm-conf)
+;;; vterm-conf.el ends here