torgeir

(ns example.core
  (:require [cljs.js :as cjs]
            [cljs.analyzer :as ana :include-macros true]
            [cljs.reader :as r]
            [cljs.pprint :as pprint]))

(enable-console-print!)

(let [src  "(ns t.math)
            (defn increase [n] (inc n))"

torgeir

/*
Lookup geometry: /usr/bin/xwininfo
Backup: https://gist.github.com/torgeir/401084929e678640b0cd36b3c92b5f03
*/
(and (is (application_name) "Firefox")
     (begin
      (set_workspace 1)
      (geometry "1387x1138+0-32")))

(and (is (application_name) "emacs-snapshot")

torgeir

const r2 = require("r2");
const npm = require("npm");
const { spawn } = require("child_process");

const [_, __, accessToken, repo] = process.argv;

const shellCmdStdoutToObject = (cmd, args) =>
  new Promise(function(resolve, reject) {
    const child = spawn(cmd, args);
    let result = "";

torgeir

const path = require('path');
const myth = require('myth');
const globby = require('globby');
const loaderUtils = require('loader-utils');

const resolve = function () {
    const p = [__dirname].concat(Array.from(arguments));
    return path.resolve.apply(path, p);
};

torgeir

import React from "react";
import ReactDOM from "react-dom";
import Rx from "rxjs/Rx";


// hyperappish

const identity = v => v;
const doto = (o, fn) => (fn(o), o);
const getIn = (obj, [k, ...ks]) => (ks.length == 0) ? obj[k] : getIn(obj[k], ks);

torgeir

const wait = s => new Promise((resolve) => setTimeout(resolve, s * 1000))

const state = {};
dataField(state, "ip", "http://ip.jsontest.com/");

console.log(state.ip);

wait(2)
 .then(() => state.ip)
 .then(console.log);

torgeir

const domains = ["domain.no"];
const normalize = s => s.replace(/[^a-z]/g, "")
const status = d => new Promise(function (resolve, reject) {
  const fn = `handle_result_${normalize(d)}`;
  window[fn] = data => resolve(data);
    
  const script = document.createElement("script");
  script.src = `https://das2.hostpartner.no/das/${encodeURIComponent(d)}?callback=${encodeURIComponent(fn)}`;
  script.onload = () => delete window[fn];
  script.onerror = function (err) {

torgeir

#!/usr/bin/env boot

;; https://github.com/boot-clj/boot#install

(set-env!
  :dependencies '[[org.clojure/clojure "1.9.0-RC2"]
                  [org.clojure/data.csv "0.1.4"]])


(require '[clojure.data.csv :as csv]

torgeir

const http = require('http');

const server = http.createServer(function (req, res) {

  res.writeHead(200, {
    "content-type": "text/plain",
    "transfer-encoding": "chunked"
  });

  let i = 0;

torgeir

public class CalculationExecutor {

    private final ThreadPoolExecutor executor;

    public CalculationExecutor() {
        executor = createThreadPool(1);
    }

    public void execute(Runnable runnable) {
        executor.execute(runnable);