dot/ercrc.el: Do something more useful for long input lines.

[profile] / dot / ercrc.el

diff --git a/dot/ercrc.el b/dot/ercrc.el
index 4505b4a9e09e4541a88f33b3af8a52fdd784451f..2eeb2f1ae48bf06fedce3f72833b1e83e80fb64e 100644 (file)
--- 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