diff options
| author | Vasil Zlatanov <vasil.zlatanov@gmail.com> | 2015-08-18 01:54:42 +0200 |
|---|---|---|
| committer | Vasil Zlatanov <vasil.zlatanov@gmail.com> | 2015-08-18 01:54:42 +0200 |
| commit | e26958b154d0457c1019bc48a5ff0ed637cf3eac (patch) | |
| tree | d11a37bb0e2a6916b3ffb421aab9cf68e5f3bba6 /Editor/vim/boxdraw/bdub2a.pl | |
| parent | 9d56811c86e81cbc70f03cde70e5a62378c187ef (diff) | |
| download | dotfiles-e26958b154d0457c1019bc48a5ff0ed637cf3eac.tar.gz dotfiles-e26958b154d0457c1019bc48a5ff0ed637cf3eac.tar.bz2 dotfiles-e26958b154d0457c1019bc48a5ff0ed637cf3eac.zip | |
update vim
Diffstat (limited to 'Editor/vim/boxdraw/bdub2a.pl')
| -rw-r--r-- | Editor/vim/boxdraw/bdub2a.pl | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/Editor/vim/boxdraw/bdub2a.pl b/Editor/vim/boxdraw/bdub2a.pl new file mode 100644 index 0000000..4482923 --- /dev/null +++ b/Editor/vim/boxdraw/bdub2a.pl @@ -0,0 +1,30 @@ +# Convert +-| style drawings into utf characters
+# BoxDraw-unicode-box to ascii
+# 2003-11-25 12:48:17 -- created by nsg
+
+use 5.8.0;
+use strict;
+use utf8;
+# binmode (STDOUT, ":utf8"); # incompatible with perl 5.6.1
+# binmode (STDIN, ":utf8"); # incompatible with perl 5.6.1
+
+while(<STDIN>) {
+ my $l=length;
+ tr/┌┬┐╓╥╖╒╤╕╔╦╗├┼┤╟╫╢╞╪╡╠╬╣└┴┘╙╨╜╘╧╛╚╩╝/++++++++++++++++++++++++++++++++++++/;
+ tr/═─│║/\-\-\|\|/;
+ printf "%03d ",$l;
+ print ;
+}
+
+# corners/splits:
+# ┌┬┐╓╥╖╒╤╕╔╦╗ 6ec
+# ├┼┤╟╫╢╞╪╡╠╬╣ 7fd
+# └┴┘╙╨╜╘╧╛╚╩╝ 3b9
+# round corners:
+# 256d 256e
+# 2570 256f
+# horizontal
+# ═ ─
+# vertical
+# │ ║
+
|