Nothing especially earth-shattering...
- Added a few of the new post-5.12 keywords to the syntax highlighter (fc, UNITCHECK, etc), and also some Moose-related keywords.
- Added .psgi and .t extensions to the list of file names which the Perl syntax highlighter is automatically applied to.
- Changed the "Go" command to execute perl via my shell rather than directly. This means that it will respect $PATH, and thus use whatever perl is currently selected by perlbrew, rather than system perl.
- Added a command which runs p5u ap -v (see P5U). This allows me to run my test suite by just hitting Ctrl+1 because P5U takes care of chdiring into the correct directory.
Here are the general and Perl-specific parts from my .SciTEUser.properties file:
#
# GENERAL
#
position.width=700
magnification=0
buffers=10
split.vertical=0
tabbar.visible=1
tabbar.hide.one=1
tabbar.multiline=1
toolbar.visible=0
statusbar.visible=1
line.margin.visible=1
use.monospaced=1
edge.mode=0
save.recent=1
selection.back=#3355ff
selection.alpha=96
menukey.file.exit=<control>Q
code.page=65001
#
# TABS
#
tabsize=3
indent.size=3
use.tabs=1
indent.automatic=1
indent.opening=0
indent.closing=0
#
# ASPELL
#
command.name.9.*=Inline Spellcheck
command.9.*=inline_aspell $(FilePath)
command.subsystem.9.*=3
command.mode.9.*=savebefore:yes
ext.lua.startup.script=$(SciteUserHome)/.SciTE/aspell.lua
#command.name.9.*=aspell
#command.9.*=/usr/bin/gnome-terminal -t 'aspell' -e "/usr/bin/aspell c
+heck $(FileDir)/$(FileNameExt)"
#command.subsystem.9.*=0
#command.is.filter.9.*=1
#
# PERL
#
file.patterns.perl=*.pl;*.pm;*.pod;*.PL;*.t;*.psgi
api.$(file.patterns.perl)=/home/tai/.SciTE/perl.api
command.compile.$(file.patterns.perl)=tcsh -c "perl -c -w $(FileNameEx
+t)"
command.go.$(file.patterns.perl)=tcsh -c "perl $(FileNameExt)"
command.name.0.$(file.patterns.perl)=Lint
command.0.$(file.patterns.perl)=tcsh -c "perl -MO=Lint,all $(FileNameE
+xt)"
command.name.1.$(file.patterns.perl)=Test Suite
command.1.$(file.patterns.perl)=p5u ap -v
command.name.2.$(file.patterns.perl)=Code Profiler
command.2.$(file.patterns.perl)=tcsh -c "perl -d:DProf $(FileNameExt)"
command.name.3.$(file.patterns.perl)=Profiler Parser
command.3.$(file.patterns.perl)=tcsh -c "dprofpp $(FileDir)/tmon.out"
keywords.$(file.patterns.perl)=\
NULL __FILE__ __LINE__ __PACKAGE__ __DATA__ __END__ AUTOLOAD \
BEGIN CORE DESTROY END EQ GE GT INIT LE LT NE CHECK abs accept \
alarm and atan2 bind binmode bless caller chdir chmod chomp chop \
chown chr chroot close closedir cmp connect continue cos crypt \
dbmclose dbmopen defined delete die do dump each else elsif endgrent \
endhostent endnetent endprotoent endpwent endservent eof eq eval \
exec exists exit exp fcntl fileno flock for foreach fork format \
formline ge getc getgrent getgrgid getgrnam gethostbyaddr gethostbynam
+e \
gethostent getlogin getnetbyaddr getnetbyname getnetent getpeername \
getpgrp getppid getpriority getprotobyname getprotobynumber getprotoen
+t \
getpwent getpwnam getpwuid getservbyname getservbyport getservent \
getsockname getsockopt glob gmtime goto grep gt hex if index \
int ioctl join keys kill last lc lcfirst le length link listen \
local localtime lock log lstat lt map mkdir msgctl msgget msgrcv \
msgsnd my ne next no not oct open opendir or ord our pack package \
pipe pop pos print printf prototype push quotemeta qu \
rand read readdir readline readlink readpipe recv redo \
ref rename require reset return reverse rewinddir rindex rmdir \
scalar seek seekdir select semctl semget semop send setgrent \
sethostent setnetent setpgrp setpriority setprotoent setpwent \
setservent setsockopt shift shmctl shmget shmread shmwrite shutdown \
sin sleep socket socketpair sort splice split sprintf sqrt srand \
stat study sub substr symlink syscall sysopen sysread sysseek \
system syswrite tell telldir tie tied time times truncate \
uc ucfirst umask undef unless unlink unpack unshift untie until \
use utime values vec wait waitpid wantarray warn while write \
xor \
given when default say state UNITCHECK fc \
class role with method extends before after around override augment \
has requires excludes blessed is returns action handle func \
guard build preprocess postprocess interface exception try catch
perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'