From: Tim Vaughan <plugd@thelambdalab.xyz>
Date: Wed, 16 Jun 2021 08:47:32 +0000 (+0200)
Subject: Commands are removed from prompt after sending.
X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=commitdiff_plain;h=c4589c706bfc030574e4c2eabfec881c747d33db;p=lurk.git

Commands are removed from prompt after sending.
---

diff --git a/lirc.el b/lirc.el
index cd746b5..f8c23b2 100644
--- a/lirc.el
+++ b/lirc.el
@@ -1,4 +1,4 @@
-;;; lirc.el --- Lambdalabs irc client  -*- lexical-binding:t -*-
+;;; lirc.el --- Lightweight irc client  -*- lexical-binding:t -*-
 
 ;; Copyright (C) 2021 Tim Vaughan
 
@@ -43,21 +43,25 @@
   "Default full name.")
 (defcustom lirc-user-name "plugd"
   "Default user name.")
-(defcustom lirc-host "localhost"
+(defcustom lirc-host "irc.libera.chat"
   "Default server.")
 (defcustom lirc-port 6667
   "Default port.")
 
-(defcustom lirc-prompt-string "prompt> "
+(defcustom lirc-prompt-string "> "
   "Prompt.")
 
 ;;; Faces
 ;;
 
 (defface lirc-prompt
-  '((t :inherit font-lock-string-face))
+  '((t :inherit org-level-2))
   "Face used for the prompt.")
 
+(defface lirc-channel
+  '((t :inherit org-list-dt))
+  "Face used for the channel name in the prompt.")
+
 ;;; Global variables
 ;;
 
@@ -186,10 +190,16 @@
     (save-excursion
       (goto-char lirc-prompt-marker)
       (let ((inhibit-read-only t))
-        (insert (propertize lirc-prompt-string
-                            'face 'lirc-prompt
-                            'read-only t
-                            'rear-nonsticky t))))
+        (insert
+         (propertize (if lirc-current-channel
+                         lirc-current-channel
+                       "[no channel]")
+                     'face 'lirc-channel
+                     'read-only t)
+         (propertize lirc-prompt-string
+                     'face 'lirc-prompt
+                     'read-only t
+                     'rear-nonsticky t))))
     (set-marker-insertion-type lirc-input-marker nil)))
   
 (defvar lirc-prompt-marker nil
@@ -240,7 +250,10 @@
   (interactive)
   (with-current-buffer "*lirc*"
     (lirc-enter-string
-     (buffer-substring lirc-input-marker (point-max)))))
+     (buffer-substring lirc-input-marker (point-max)))
+    (let ((inhibit-read-only t))
+      (delete-region lirc-input-marker (point-max)))))
+
 
 
 ;;; Mode