#!/usr/bin/env python
# coding=utf-8

# erzeugt Samstag, 23. September 2017 12:57 (C) 2017 von Leander Jedamus
# modifiziert Donnerstag, 19. November 2020 09:07 von Leander Jedamus
# modifiziert Sonntag, 27. September 2020 00:52 von Leander Jedamus
# modifiziert Mittwoch, 22. Mai 2019 16:38 von Leander Jedamus
# modifiziert Dienstag, 14. Mai 2019 08:40 von Leander Jedamus
# modifiziert Donnerstag, 19. Oktober 2017 14:56 von Leander Jedamus
# modifiziert Samstag, 07. Oktober 2017 18:04 von Leander Jedamus
# modifiziert Montag, 25. September 2017 20:30 von Leander Jedamus
# modifiziert Samstag, 23. September 2017 23:46 von Leander Jedamus

"""
  Dieses Skript wird bei jedem Bufferwechsel in eine *.pl-
  Datei aufgerufen und setzt einige Register:

  @g (gettext): Setzt einige Zeilen für die Verwendung von gettext
    (um verschiedene Sprachen zu benutzen).

  @i (if): if-Konstrukt

  @e (else): else Konstrukt

  @l (elsif): elsif-Konstrukt

  @u (unless): unless-Konstrukt

  @w (while): while-Konstrukt

  @n (until): until-Konstrukt

  @d (do while): do-while-Konstrukt

  @t (do until): do-until-Konstrukt

  @f (for): for-Konstrukt

  @o (foreach): foreach-Konstrukt

"""

import os
import sys
sys.path.append(os.environ['HOME']+'/.vim/python')

import pyvim as p

p.drs()
#p.sr("a","iich bin in perl.\n\e")
p.sr("g","iuse Locale::gettext qw( gettext bindtextdomain textdomain bind_textdomain_codeset );\nuse POSIX;\nuse FindBin '$Bin';\nuse File::Spec;\n\nmy $domain = \"mycopy.pl\";\nbindtextdomain($domain,File::Spec->catfile($Bin,\"locale\"));\ntextdomain($domain);\nbind_textdomain_codeset($domain,\"UTF-8\");\nsub _ ($) { &gettext; }\n\e5k14l")

# if:
p.sr("i",":se ai\nA\nif () {\n};# if\ekA\n  \e^kwl")
# unless:
p.sr("u",":se ai\nA\nunless () {\n};# unless\ekA\n  \e^kwl")
# else:
p.sr("e",":se ai\n/;# \ns \eA\nelse {\n};# else\ekA\n  \e")
# elsif:
p.sr("l",":se ai\n/;# \ns \eA\nelsif () {\n};# elsif\ekA\n  \e^kwl")
# while
p.sr("w",":se ai\nA\nwhile () {\n};# while\ekA\n  \e^kwl")
# uNtil:
p.sr("n",":se ai\nA\nuntil () {\n};# until\ekA\n  \e^kwl")
# do while
p.sr("d",":se ai\nA\ndo {\n} while \ekA\n  \ej6l")
# do unTil
p.sr("t",":se ai\nA\ndo {\n} until \ekA\n  \ej6l")
# for
p.sr("f",":se ai\nA\nfor (my $;;) {\n};# for\ekA\n  \e^k3wl")
# fOreach
p.sr("o",":se ai\nA\nforeach my $ (@list) {\n};# foreach\ekA\n  \e^kw4l")

# vim:ai sw=2 sts=4 expandtab


3da305d9c8dcd1b5bbb2be44b8715e0c3223e5e7
<mask token>

<mask token>
sys.path.append(os.environ['HOME'] + '/.vim/python')
<mask token>
p.drs()
p.sr('g',
    """iuse Locale::gettext qw( gettext bindtextdomain textdomain bind_textdomain_codeset );
use POSIX;
use FindBin '$Bin';
use File::Spec;

my $domain = "mycopy.pl";
bindtextdomain($domain,File::Spec->catfile($Bin,"locale"));
textdomain($domain);
bind_textdomain_codeset($domain,"UTF-8");
sub _ ($) { &gettext; }
\\e5k14l"""
    )
p.sr('i', """:se ai
A
if () {
};# if\\ekA
  \\e^kwl""")
p.sr('u', """:se ai
A
unless () {
};# unless\\ekA
  \\e^kwl""")
p.sr('e', """:se ai
/;# 
s \\eA
else {
};# else\\ekA
  \\e""")
p.sr('l', """:se ai
/;# 
s \\eA
elsif () {
};# elsif\\ekA
  \\e^kwl""")
p.sr('w', """:se ai
A
while () {
};# while\\ekA
  \\e^kwl""")
p.sr('n', """:se ai
A
until () {
};# until\\ekA
  \\e^kwl""")
p.sr('d', """:se ai
A
do {
} while \\ekA
  \\ej6l""")
p.sr('t', """:se ai
A
do {
} until \\ekA
  \\ej6l""")
p.sr('f', """:se ai
A
for (my $;;) {
};# for\\ekA
  \\e^k3wl""")
p.sr('o', """:se ai
A
foreach my $ (@list) {
};# foreach\\ekA
  \\e^kw4l""")

<mask token>
import os
import sys
sys.path.append(os.environ['HOME'] + '/.vim/python')
import pyvim as p
p.drs()
p.sr('g',
    """iuse Locale::gettext qw( gettext bindtextdomain textdomain bind_textdomain_codeset );
use POSIX;
use FindBin '$Bin';
use File::Spec;

my $domain = "mycopy.pl";
bindtextdomain($domain,File::Spec->catfile($Bin,"locale"));
textdomain($domain);
bind_textdomain_codeset($domain,"UTF-8");
sub _ ($) { &gettext; }
\\e5k14l"""
    )
p.sr('i', """:se ai
A
if () {
};# if\\ekA
  \\e^kwl""")
p.sr('u', """:se ai
A
unless () {
};# unless\\ekA
  \\e^kwl""")
p.sr('e', """:se ai
/;# 
s \\eA
else {
};# else\\ekA
  \\e""")
p.sr('l', """:se ai
/;# 
s \\eA
elsif () {
};# elsif\\ekA
  \\e^kwl""")
p.sr('w', """:se ai
A
while () {
};# while\\ekA
  \\e^kwl""")
p.sr('n', """:se ai
A
until () {
};# until\\ekA
  \\e^kwl""")
p.sr('d', """:se ai
A
do {
} while \\ekA
  \\ej6l""")
p.sr('t', """:se ai
A
do {
} until \\ekA
  \\ej6l""")
p.sr('f', """:se ai
A
for (my $;;) {
};# for\\ekA
  \\e^k3wl""")
p.sr('o', """:se ai
A
foreach my $ (@list) {
};# foreach\\ekA
  \\e^kw4l""")

#!/usr/bin/env python
# coding=utf-8

# erzeugt Samstag, 23. September 2017 12:57 (C) 2017 von Leander Jedamus
# modifiziert Donnerstag, 19. November 2020 09:07 von Leander Jedamus
# modifiziert Sonntag, 27. September 2020 00:52 von Leander Jedamus
# modifiziert Mittwoch, 22. Mai 2019 16:38 von Leander Jedamus
# modifiziert Dienstag, 14. Mai 2019 08:40 von Leander Jedamus
# modifiziert Donnerstag, 19. Oktober 2017 14:56 von Leander Jedamus
# modifiziert Samstag, 07. Oktober 2017 18:04 von Leander Jedamus
# modifiziert Montag, 25. September 2017 20:30 von Leander Jedamus
# modifiziert Samstag, 23. September 2017 23:46 von Leander Jedamus

"""
  Dieses Skript wird bei jedem Bufferwechsel in eine *.pl-
  Datei aufgerufen und setzt einige Register:

  @g (gettext): Setzt einige Zeilen für die Verwendung von gettext
    (um verschiedene Sprachen zu benutzen).

  @i (if): if-Konstrukt

  @e (else): else Konstrukt

  @l (elsif): elsif-Konstrukt

  @u (unless): unless-Konstrukt

  @w (while): while-Konstrukt

  @n (until): until-Konstrukt

  @d (do while): do-while-Konstrukt

  @t (do until): do-until-Konstrukt

  @f (for): for-Konstrukt

  @o (foreach): foreach-Konstrukt

"""

import os
import sys
sys.path.append(os.environ['HOME']+'/.vim/python')

import pyvim as p

p.drs()
#p.sr("a","iich bin in perl.\n\e")
p.sr("g","iuse Locale::gettext qw( gettext bindtextdomain textdomain bind_textdomain_codeset );\nuse POSIX;\nuse FindBin '$Bin';\nuse File::Spec;\n\nmy $domain = \"mycopy.pl\";\nbindtextdomain($domain,File::Spec->catfile($Bin,\"locale\"));\ntextdomain($domain);\nbind_textdomain_codeset($domain,\"UTF-8\");\nsub _ ($) { &gettext; }\n\e5k14l")

# if:
p.sr("i",":se ai\nA\nif () {\n};# if\ekA\n  \e^kwl")
# unless:
p.sr("u",":se ai\nA\nunless () {\n};# unless\ekA\n  \e^kwl")
# else:
p.sr("e",":se ai\n/;# \ns \eA\nelse {\n};# else\ekA\n  \e")
# elsif:
p.sr("l",":se ai\n/;# \ns \eA\nelsif () {\n};# elsif\ekA\n  \e^kwl")
# while
p.sr("w",":se ai\nA\nwhile () {\n};# while\ekA\n  \e^kwl")
# uNtil:
p.sr("n",":se ai\nA\nuntil () {\n};# until\ekA\n  \e^kwl")
# do while
p.sr("d",":se ai\nA\ndo {\n} while \ekA\n  \ej6l")
# do unTil
p.sr("t",":se ai\nA\ndo {\n} until \ekA\n  \ej6l")
# for
p.sr("f",":se ai\nA\nfor (my $;;) {\n};# for\ekA\n  \e^k3wl")
# fOreach
p.sr("o",":se ai\nA\nforeach my $ (@list) {\n};# foreach\ekA\n  \e^kw4l")

# vim:ai sw=2 sts=4 expandtab

