From b8f2b9da272e1228338e870c7f9fd9439bc6b006 Mon Sep 17 00:00:00 2001
From: Hugo Thunnissen <devel@hugot.nl>
Date: Tue, 30 May 2023 22:17:09 +0200
Subject: [PATCH] Add pantalaimon config + some ement settings

---
 config/pantalaimon/pantalaimon.conf |  9 +++++++++
 emacs/init.el                       |  3 +++
 main.go                             | 16 ++++++++++------
 3 files changed, 22 insertions(+), 6 deletions(-)
 create mode 100644 config/pantalaimon/pantalaimon.conf

diff --git a/config/pantalaimon/pantalaimon.conf b/config/pantalaimon/pantalaimon.conf
new file mode 100644
index 0000000..cb4ade1
--- /dev/null
+++ b/config/pantalaimon/pantalaimon.conf
@@ -0,0 +1,9 @@
+[Default]
+SSL = True
+
+[im.hugot.nl]
+Homeserver = https://im.hugot.nl
+ListenAddress = 127.0.0.1
+ListenPort = 14023
+SSL = True
+UseKeyring = True
\ No newline at end of file
diff --git a/emacs/init.el b/emacs/init.el
index 52f55b8..02c6f8d 100644
--- a/emacs/init.el
+++ b/emacs/init.el
@@ -480,6 +480,9 @@ OLD-FUNCTION must be the function that is being adviced."
 
 (when (require 'ement nil t)
   (setq ement-save-sessions t)
+  (setq ement-room-left-margin-width 0)
+  (setq ement-room-message-format-spec "[%S]\n%B%r\n%R%t")
+
 
   (defun hugot-ement-hook ()
     (emojify-mode))
diff --git a/main.go b/main.go
index 5c10e5b..4fe1fa1 100644
--- a/main.go
+++ b/main.go
@@ -50,6 +50,9 @@ var bashAliases string
 //go:embed git/config
 var gitConfig string
 
+//go:embed config/pantalaimon/pantalaimon.conf
+var pantalaimonConfig string
+
 //go:embed git/ignore
 var gitIgnore string
 
@@ -410,12 +413,13 @@ func DumpInitFiles() error {
 	err := EnsureDirectory(elispThemeDir)
 
 	files := map[string]string{
-		home + "/.emacs":                   initLisp,
-		home + "/.custom.el":               customLisp,
-		home + "/.bash_aliases":            bashAliases,
-		elispThemeDir + "/epaper-theme.el": elispEpaperTheme,
-		home + "/.gitconfig":               gitConfig,
-		home + "/.gitignore":               gitIgnore,
+		home + "/.emacs":                               initLisp,
+		home + "/.custom.el":                           customLisp,
+		home + "/.bash_aliases":                        bashAliases,
+		elispThemeDir + "/epaper-theme.el":             elispEpaperTheme,
+		home + "/.gitconfig":                           gitConfig,
+		home + "/.gitignore":                           gitIgnore,
+		home + "/.config/pantalaimon/pantalaimon.conf": pantalaimonConfig,
 	}
 
 	for file, contents := range files {