From c655b794b4948bda7f6680e9040df11d94549fc5 Mon Sep 17 00:00:00 2001
Message-Id: <c655b794b4948bda7f6680e9040df11d94549fc5.1718988297.git.mdw@distorted.org.uk>
From: Mark Wooding <mdw@chiark.greenend.org.uk>
Date: Sat, 7 Jan 2012 17:15:23 +0000
Subject: [PATCH] dot/ercrc.el: Do something more useful for long input lines.
Organization: Straylight/Edgeware

From: Mark Wooding <mdw@distorted.org.uk>

Don't truncate; word wrap and include a distinctive prefix for wrapped
lines.
---
 dot/ercrc.el | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/dot/ercrc.el b/dot/ercrc.el
index 4505b4a..2eeb2f1 100644
--- a/dot/ercrc.el
+++ b/dot/ercrc.el
@@ -16,6 +16,15 @@ (setq erc-track-exclude-types '("NICK" "JOIN" "PART"))
 
 (setq erc-auto-query 'buffer)
 
+(defun mdw-erc-turn-off-truncate-lines ()
+  (setq truncate-lines nil
+	truncate-partial-with-windows nil
+	word-wrap t
+	wrap-prefix (concat (propertize "   >"
+					'face 'erc-prompt-face)
+			    " ")))
+(add-hook 'erc-mode-hook 'mdw-erc-turn-off-truncate-lines)
+
 (setq erc-autojoin t
       erc-autojoin-domain-only nil
       erc-autojoin-channels-alist
-- 
[mdw]