c9s

"		buffer sel by pattern {{{
" ====================================
function! BufSel(pattern)
  let buf_count = bufnr("$")
  let cur_bufnr = 1
  let nummatches = 0
  let firstmatchingbufnr = 0
  while cur_bufnr <= buf_count
		if(bufexists(cur_bufnr))
      let currbufname = bufname(cur_bufnr)

c9s

#!/bin/bash
ls -1F | grep '/$' | while read dir ; do
    echo "--------Processing $dir"
    cd $dir
    if [ -d '.git' ] ; then
        git gc
    else
        echo "These is no .git directory"
    fi
    cd ..

c9s

#!/usr/bin/env perl
my $version = shift || '5.10';
my $path    = shift || '/opt/local/bin/';
while( <${path}*> ) {
    if( m/-?${version}$/ ){
        my $link = $_;
        $link =~ s/-?${version}$//;
        print "Linking $_ to $link\n";
        system(qq[ sudo ln -sfh $_ $link ] );
    }

c9s

#!/bin/bash
# subversion install script 
# please run this script as root
# last update: 08 Dec 24 12/24/2008

install_swig=1
install_subversion_svn=1

svn_version=1.5.3
swig_version=1.3.38

c9s

#!/usr/bin/env perl
use warnings;
use utf8;
local $|=1;
my @files = @ARGV;

for my $file ( @files ) {
    my $out = $file . ".out";
    print "Processing $file";
    open FH,"<", $file;

c9s

" vim:et:sw=2:fdm=marker:
" SD Ticket Syntax File
" Maintainer:   Yo-An Lin < cornelius.howl@gmail.com >
" URL:          http://oulixe.us/
" Last Change:	09 Apr 21 04/21/2009
" Version:      0.1
" Intro: 
"
"   This syntax file is for ticket summary file of SD (peer-to-peer bug
"   tracking system)

c9s

" vim:fdm=marker:sw=2:ts=2:et:noet:fdl=0:
"============================
" Author:   Cornelius < cornelius.howl{at}gmail{dot}com >
" WebSite:  http://c9s.blogspot.com
" Date:     Wed 28 Mar 2007 04:37:26 AM CST
" Usage:                                                                {{{
"   * press 'za' on each fold. then you can edit the settings.
"   * press 'zm' , 'zr' to open/close all folds.
"   * template for filetype is located in .vim/skeleton/
"   * gvim configuration is located at .gvimrc

c9s

    use Poppler;
    my $path = 'file:///path/to/some.pdf';

    my $o = Poppler::Document->new_from_file($path);

    my $page = $o->get_page( 0 );

    my $dimension = $page->get_size;

    warn $dimension->get_width;

c9s

use inc::Module::Install 0.46;
name('Jifty');
license('Perl');
include('Module::AutoInstall');
perl_version '5.8.3';
requires('App::CLI' => 0.08 ); # App::CLI::Command::Help App::CLI::Command
requires('Cache::Cache'); #Cache::FileCache
requires('Calendar::Simple');
requires('Class::Accessor'); # Class::Accessor::Fast
requires('Class::Container');

c9s

if ! has('gui')
  highlight Comment ctermfg=gray ctermbg=darkblue
endif