arvidj

#!/bin/bash

page=1
while true; do
    echo $page;
    if ! wget "https://api.github.com/users/standardebooks/repos?page=$page" -O "repos.$page"; then
        break;
    fi;
    page=$(($page + 1))

arvidj

import sys
import getopt

from os.path import join, split, isfile, isdir
from os import mkdir

from pptx import Presentation
from anki import Collection

arvidj

#!/usr/bin/ruby

require 'open-uri'         
require 'uri'
require 'net/http'
require 'json'

@user = ''
@pass = ''
@team = ''

arvidj

;;; autoreload-mode.el --- Reload chrome after each save

;; Author: Arvid Jakobsson <arvid@bl00m.com>
;; URL: https://github.com/arvidj/phpunit.el
;; Version: 0.1.0
;; Keywords: chrome, reload, web

;;; License:

;; Copyright (C) 2014, 2015 Nicolas Lamirault <nicolas.lamirault@gmail.com>

arvidj

(defun open-bitbucket-link ()
  ""
  (interactive)
  (let* ((rev (magit-rev-parse "HEAD"))
  	 (remote (magit-get "remote" (magit-get-current-remote) "url"))
		 (url (concat
			   "https://"
			   (replace-regexp-in-string "^ssh://git@\\|.git$" "" remote)
			   "/src/"
			   rev

arvidj

def ord_test(f)
    Integer(File::basename(f).split('.')[0])
end

def sort_test(a, b)
    ord_test(a) <=> ord_test(b)
end

COMP="./rubic"

arvidj

# -*- coding: utf-8 -*-
require 'rubygems'
require 'enumerator'
require 'mechanize'
require 'json'

key = '' # FILL IN YOUR API-KEY

sysexts = [
           # 'about',

arvidj

module Transf.FixParenConcat where

import Lang.Php
import TransfUtil
import Text.ParserCombinators.Parsec.Expr
import qualified Data.Intercal as IC
import Debug.Trace

transfs :: [Transf]
transfs = [

arvidj

module Transf.KillTrailingComma where

import Lang.Php
import TransfUtil
import qualified Data.Intercal as IC

transfs :: [Transf]
transfs = [
  "kill-trailing-comma" -:- ftype -?-
  "Kills trailing commas from Arrays."

arvidj

;; Never understood why Emacs doesn't have this function.
;; http://steve.yegge.googlepages.com/my-dot-emacs-file
(defun rename-file-and-buffer (new-name)
  "Renames both current buffer and file it's visiting to NEW-NAME." (interactive "sNew name: ")
  (let ((name (buffer-name))
	(filename (buffer-file-name)))
    (if (not filename)
	(message "Buffer '%s' is not visiting a file!" name)
      (if (get-buffer new-name)
          (message "A buffer named '%s' already exists!" new-name)