diff options
author | Vasil Zlatanov <vasil.zlatanov@gmail.com> | 2014-11-20 21:19:11 +0100 |
---|---|---|
committer | Vasil Zlatanov <vasil.zlatanov@gmail.com> | 2014-11-20 21:19:11 +0100 |
commit | 4604a1f920a9ce7be0fb7b21004c17ef66e17025 (patch) | |
tree | b84aca7af9fe4c857a62a14b739a0aeefbc88cf0 /vim/boxdraw/bdub2a.pl | |
parent | 597e42cbff085310c3a0d9a3971cbfb00ab88dfa (diff) | |
download | dotfiles-4604a1f920a9ce7be0fb7b21004c17ef66e17025.tar.gz dotfiles-4604a1f920a9ce7be0fb7b21004c17ef66e17025.tar.bz2 dotfiles-4604a1f920a9ce7be0fb7b21004c17ef66e17025.zip |
add vim folder
Diffstat (limited to 'vim/boxdraw/bdub2a.pl')
-rw-r--r-- | vim/boxdraw/bdub2a.pl | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/vim/boxdraw/bdub2a.pl b/vim/boxdraw/bdub2a.pl new file mode 100644 index 0000000..4482923 --- /dev/null +++ b/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
+# │ ║
+
|