gsfr

" Send current or highlighted line(s) to Mac OS Terminal.app
function! SendToTerminal(visual, trim_leadspace) range
    " move to next line if not in visual mode
    if !a:visual
        execute "normal \<C-n>"
    endif
    let cmds = []
    if a:trim_leadspace
        for line in getline(a:firstline,a:lastline)
            let cmds += [escape(escape(substitute(line, '^\s\+', '', ''), '\"'), '\"`!#$%')]

gsfr

import os, zipfile, tarfile

def zip_all(path, outfile):
    if os.path.exists(outfile):
        os.remove(outfile)
    files = [os.path.join(path, f) for f in os.listdir(path)]
    with zipfile.ZipFile(outfile, 'a') as zf:
        for f in files:
            zf.write(f)

gsfr

#!/usr/bin/env python

import os
import sys
import pytz
import time
import hashlib
import requests
import datetime

gsfr

#!/usr/bin/env python

import os
import sys
import requests
import collections

if len(sys.argv) != 3:
    print 'usage: %s API_URL USERNAME' % os.path.basename(sys.argv[0])
    sys.exit(1)

gsfr

How to apply this patch on Ubuntu 14.04

curl http://dicom.offis.de/download/dcmtk/snapshot/old/dcmtk-3.6.1_20150924.tar.gz | tar xz
cd dcmtk-*
curl https://gist.githubusercontent.com/gsfr/3bbe2f89b76019792985/raw/movescu.cc.patch | patch --strip 1
./configure --prefix=$VIRTUAL_ENV
make all
make install

gsfr

#!/usr/bin/env python

import os
import ssl
import sys
import BaseHTTPServer
import SimpleHTTPServer

port = int(sys.argv[1]) if len(sys.argv) > 1 else 4443
certfile = os.path.dirname(__file__) + '/localhost.pem'

gsfr

" send current file path to be sourced by R, optionally temporarily changing R's working directory
function! RSourceFile(filepath, chdir)
    let cmd = 'source(\\\"' . a:filepath . '\\\", chdir=' . a:chdir . ')'
    silent execute '!osascript -e "tell application \"R64\" to cmd \"' . cmd . '\""'
endfunction

" execute current or highlighted line(s) in R
function! RExecuteLines(visual) range
    " move to next line if range is one line
    if !a:visual