From c4589c706bfc030574e4c2eabfec881c747d33db Mon Sep 17 00:00:00 2001 From: Tim Vaughan Date: Wed, 16 Jun 2021 10:47:32 +0200 Subject: [PATCH] Commands are removed from prompt after sending. --- lirc.el | 31 ++++++++++++++++++++++--------- 1 file changed, 22 insertions(+), 9 deletions(-) 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 -- 2.20.1