saitoha

#!/usr/bin/env perl

foreach (<stdin>) {
        # DCS/OSC/SOS/PM/APC
        $_ =~ s/\x1b[P\]X\^_].*(\x07|\x1b\\)//g;

        # CSI
        $_ =~ s/\x1b\[[\x30-\x3f]*[\x20-\x2f]*[\x40-\x7e]//g;

        # single shift 

mollifier

# vcs_info 設定

RPROMPT=""

autoload -Uz vcs_info
autoload -Uz add-zsh-hook
autoload -Uz is-at-least
autoload -Uz colors

# 以下の3つのメッセージをエクスポートする

ttdoda

ANSIColor=0,7,54,66, 1,203,75,22, 2,88,110,117, 3,101,123,131, 4,131,148,150, 5,108,113,196, 6,147,161,161, 7,253,246,227, 8,0,43,54, ,220,50,47, 10,133,153,0, 11,181,137,0, 12,38,139,210, 13,211,54,130, 14,42,161,152, 15,238,232,213

; Solarized Dark
VTColor=131,148,150,0,43,54
VTBoldColor=147,161,161,7,54,66
VTBlinkColor=133,153,0,0,43,54
;VTReverseColor=0,43,54,131,148,150
VTReverseColor=101,123,131,253,246,227
URLColor=181,137,0,0,43,54

sh2

#!/usr/bin/perl

use strict;
use warnings;

my (%sequential, %random);
my ($type, $blocksize, $ratio, $iodepth, $header);


while (my $line = <STDIN>) {

saitoha

function! s:ITerm2Copy() range
    let l:tmp = @@
    silent normal gvy
    let l:selected = @@
    let l:i = 0
    let l:len = strlen(l:selected)
    let l:escaped = ''
    while l:i < l:len
        let l:c = strpart(l:selected, l:i, 1)
        let l:escaped .= printf("\\u%04x", char2nr(l:c))

kazuho

fizz = function f() {
 fizz = function () {
  fizz = function () {
   fizz = f
   return "Fizz"
  }
 }
}

buzz = function f() {

saitoha

diff --git a/src/ansi.c b/src/ansi.c
index d88e153..fc42a0a 100644
--- a/src/ansi.c
+++ b/src/ansi.c
@@ -1493,8 +1493,24 @@ int c;
 {
   if (curr->w_stringp >= curr->w_string + MAXSTR - 1)
     curr->w_state = LIT;
+# ifdef UTF8
+  else if (c < 0x80)

saitoha

diff --git a/src/ansi.c b/src/ansi.c
index d88e153..088ab0b 100644
--- a/src/ansi.c
+++ b/src/ansi.c
@@ -193,6 +193,7 @@ register struct win *p;
   p->w_insert = 0;
   p->w_revvid = 0;
   p->w_mouse = 0;
+  p->w_mouse_protocol = 0;
   p->w_curinv = 0;

saitoha

diff --git a/src/ansi.c b/src/ansi.c
index d88e153..89116c3 100644
--- a/src/ansi.c
+++ b/src/ansi.c
@@ -193,6 +193,8 @@ register struct win *p;
   p->w_insert = 0;
   p->w_revvid = 0;
   p->w_mouse = 0;
+  p->w_bracketed = 0;
+  p->w_cursorstyle = 0;

saitoha

#!/usr/bin/env perl

use strict;
use warnings;

if ($#ARGV != 0) {
    print "ussage: drcsconv.pl <filename>.";
    exit 0;
}
my $file = $ARGV[0];