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

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

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

#![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

(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

(defentity INFORMATION_SCHEMA.tables)
(def tables (map #(get % :TABLE_NAME) 
              (select 'INFORMATION_SCHEMA.tables (fields :TABLE_NAME) 
                      (where {:TABLE_TYPE "BASE TABLE"})))) ;notice the quote

(prn tables)
;(map #(def %) tables) ;additional concept
(map #(defentity %) tables) ;not sure this is required anymore

(select (first tables))

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

;;  (ns somenamespace
;;  (:refer-clojure :exclude [* - + == /])
;;  (:use clojure.core.matrix)
;;  (:use clojure.core.matrix.operators)
;;  (:gen-class))


(defn inv [n] "returns the inverse, (* -1 n)" (* -1 n))

(defn projection [l r b t, n f, aspect fov]

viperscape

;;uses core.async and refers chan, >!, go, alts!! and timeout functions

(def c (chan))

(go (>! c {:msg "hi"}))

(defn peek! [ch & args]
  "quickly looks at a channel for new incoming data, pulls it if it exists, quits otherwise;
returns seq if specifying max elements to pull"
  (if-not (nil? args)

viperscape

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

        in vec3 pos;
        in vec3 norm;

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