cursork

use v5.014;
use warnings;

use List::MoreUtils qw/zip/;
use Term::ANSIColor qw/color/;

# Basic log colourisation for Clojure apps using the default Timbre config

# N.B. '\ ' is an escaped space, as /x modifier ignores whitespace in pattern
my $log_line_re = qr/^(\d{4}-[A-z]{3}-\d\d)\  # date

cursork

Follow up from issues raised here: https://groups.google.com/d/msg/datomic/blgLZkYF5xA/LFjGCASHZNUJ

N.B. These experiments were carried out on a restored backup of the DB (so therefore backing up and restoring isn't a viable solution).

Keywords appear to get added to DB values like so:

user=> (.addKeyword db :this-is-a-test 999999999)
datomic.db.Db@d37f7c59
user=> (d/ident *1 999999999)

cursork

" Initial workings for creating a new namespace from Vim:
"   * Transform - to _ (I *still* always forget and have to do a mv)
"   * Make directories if needed

" TODO auto-completion would be ah-maaazing!
" TODO only copes with typical src / src/clj setups
" TODO handle cljs
" TODO currently assumes use of Rooter to go to git root directory
" Requires classpath.vim
if !exists('*EditNamespace')

cursork

(defn arities
  "Returns the possible arities of a function implementing ifn. For want of
  anything better to return for a variadic 'rest function', returns
  nil."
  [ifn]
  {:pre [(ifn? ifn)]}
  (let [invokes (filter #(= (.getName %) "invoke") (.getDeclaredMethods (class ifn)))
        arity   #(count (.getParameterTypes %))]
    (if (instance? clojure.lang.RestFn ifn)
      '(nil)

cursork

// # nmap <F3> :exec 'r!'.substitute(getline('.'),'^//','','')<CR>
// echo test

// curl http://google.com

cursork

#!/usr/bin/env perl

use v5.012;
use warnings FATAL => 'all';
use utf8;
use autodie  ':all';

use Mojo::UserAgent;

my $circle_token = $ENV{'CIRCLE_TOKEN'}

cursork

use strict;
use warnings;

use Test::More;

use FindBin::libs;
use CompareXML qw/compare_xml/;

ok(compare_xml(
                '<foo><bar baz="456">123</bar></foo>',

cursork

[user]
    email = TODO
    name = Neil Kirsopp

[push]
    default=current

[merge]
    defaulttoupstream=true

cursork

alias ls="ls -G -F"

source ~/perl5/perlbrew/etc/bashrc
source ~/perl5/perlbrew/etc/perlbrew-completion.bash

export HISTCONTROL="ignoreboth"
export HISTFILESIZE=25000
export HISTSIZE=25000
shopt -s histappend
shopt -s histverify

cursork

# Allow slightly longer lines
--maximum-line-length 100

# 4 space tabs used everywhere
--entab-leading-whitespace 4
--tabs
--continuation-indentation 4

# Don't outdent labels
--no-outdent-labels