Display control characters in caret notation.

shugo · Jan 4, 2017 · b693764 · b693764
1 parent 55326f0
commit b693764
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 2 deletions.
diff --git a/lib/text_bringer/echo_area.rb b/lib/text_bringer/echo_area.rb
@@ -43,7 +43,7 @@ def redisplay
             if c == "\n"
               break
             end
-            @window << c
+            @window << escape(c)
             @buffer.forward_char
           end
           if @buffer.point_at_mark?(saved)

diff --git a/lib/text_bringer/window.rb b/lib/text_bringer/window.rb
@@ -36,7 +36,7 @@ def redisplay
             @window.clrtoeol
             break if @window.cury == @window.maxy - 1
           end
-          @window << c
+          @window << escape(c)
           break if @window.cury == @window.maxy - 1 &&
             @window.curx == @window.maxx - 1
           @buffer.forward_char
@@ -80,6 +80,12 @@ def framer
       end
     end
 
+    def escape(s)
+      s.gsub(/[\0-\b\v-\x1f]/) { |c|
+        "^" + (c.ord ^ 0x40).chr
+      }
+    end
+
     def beginning_of_line
       e = @buffer.point
       @buffer.beginning_of_line