viperscape

// .. //
static VERT_SRC: &'static str = r"
        #version 140

        in vec3 pos;
        in vec3 norm;

        uniform mat4  transform;
        uniform vec3  size;
        uniform vec3  color;

viperscape

/// toml parser and config for keybindings, etc.
use toml::{Parser,Value};
use std::fs::File;
use std::io::Read;

use glium::glutin::VirtualKeyCode;
use std::collections::{HashMap,BTreeMap};

#[derive(Debug)]
pub struct Bindings(HashMap<String,VirtualKeyCode>);

viperscape

(set 'nitemode nil)
(defun toggle-nitemode ()
  "toggles nitemode"
  (interactive)
  (cond ((not nitemode)
	 (load-theme 'solarized-dark t)
	 (set 'nitemode 1))
	((eq 1 nitemode)
	 (load-theme 'solarized-light t)
	 (set 'nitemode nil))))

viperscape

#![feature(core)]
extern crate core;
use self::core::num::Int;

fn rng<T:PartialEq+Int, F:FnMut(T)> (d:T,dt:T,mut f:F) {
 if d>dt { for n in (dt..d).rev() { f(n); } }
 else { for n in (d..dt) { f(n); } }
}

fn main () {

viperscape

import boto.ec2
import sys

def get_snaps (desc, vol,conn):
    snapshots =  conn.get_all_snapshots(owner='id...',
                                        filters={'description':'*'+desc+'*'})
    return snapshots


def op_snaps (vols,max_snaps,conn):

viperscape

use std::sync::atomic::{AtomicBool,Ordering};
use std::sync::{Arc, RWLock};

struct Latch {
    latch:Arc<AtomicBool>,
}

impl Latch {
    fn new () -> Latch {
        Latch {latch:Arc::new(AtomicBool::new(false))}

viperscape

import urllib.request

address = 'http://apod.nasa.gov/apod/astropix.html'


file = urllib.request.urlopen(address) #read in the site and hunt for the image url
html = file.read()
data = html.decode('utf-8')
#print (data)
s = data.find("<a href=\"image")+14 #find the first instance of the image hyperlink

viperscape

(ns github
  "pull in github source files and gist content
  malformed api calls, invalid resource uri, and rate-limiting should return nil"
  (:require [cheshire.core :as json]
            [clojure.string :as string])
  (:import (org.apache.commons.codec.binary Base64 StringUtils)))

(defn get-gist [gist-uri]
  (let [gist-id (last (string/split gist-uri #"/+")) ;;just need id for git api
        gist-resp (try (slurp (str "https://api.github.com/gists/" gist-id))

viperscape

(defn lazy-re [re pp]
  (let [re-m (re-matcher re pp)
        re-cm #(re-find re-m)
        call-lzre 
        (fn step []
          (lazy-seq
           (when-let [r (re-cm)]
             (cons r
                   (step)))))]
    (call-lzre)))

viperscape

(defun rust-save-compile-and-run-this ()
  (interactive)
  (save-buffer)
  (compile
   (format "rustc %s && %s"
	   (buffer-file-name)
	   (file-name-sans-extension (buffer-file-name)))))
 
(defun rust-save-compile-and-run ()
  (interactive)