bosko

(defun custom-color--choose-action (widget &optional _event) ; this function is only needed if you want to use color-picker in Easy Customization
  "customize `widget-color--chose-action' to not split the screen"
  (list-colors-display
   nil nil
   `(lambda (color)
      (when (buffer-live-p ,(current-buffer))
	(widget-value-set ',(widget-get widget :parent) color)
        (pop-to-buffer ,(current-buffer))))))

(defun nscolor2hex (color)

lukechampine

#include<stdio.h>
#include<string.h>
#include<stdlib.h>
#include<sys/mman.h>
typedef void V;typedef int I;typedef double F;typedef unsigned char C,*S;typedef long L;
#define O           printf
#define R           return
#define I(a...)     if(a)
#define W(a...)     while(a)

patrickt

A Quick and Dirty Lens primer

Why does Lens exist? Well, Haskell records suck, for a number of reasons. I will enumerate them using this sample record.

data User = User { login    :: Text
                 , password :: ByteString
                 , email    :: Text
                 , created  :: UTCTime
 }

bhauman

Recent improvements to the ClojureScript compiler have greatly simplified setting up development versus production outputs.

This example uses Figwheel as something that you want to exclude for production, but the pattern is general.

With this simple setup you only need one html file/view and it will work for developement and production.

mikeknep

#!/usr/bin/env boot

(set-env! :dependencies '[[http-kit/http-kit "2.1.18"]])
(require '[org.httpkit.server :refer [run-server]])

(defn handler
  [request]
  (prn request)
  {:status 200
   :headers {}

sgrove

(ns motionable.core
  (:require [om.core :as om]
            [om.dom :as dom]
            [React :as r :refer [createElement createClass render]]
            [ReactMotion :as rm]))

(enable-console-print!)

(def app-state
  (atom {:text "Hello world!"}))

xeoncross

package main

import (
	"bytes"
	"fmt"
	"io"
	"strings"
	"unicode"

	"golang.org/x/net/html"

aengelberg

(ns hello-manifold.core
  (:require
    [aleph.http :as http]
    [byte-streams :as bs]
    [cheshire.core :as json]
    [clojure.string :as str]
    [manifold.deferred :as d]
    [manifold.executor :as e]
    [manifold.stream :as s]))

danielrmeyer

make
./configure --prefix=/home/<yourhome>/ --with-x-toolkit=no --with-xpm=no --with-jpeg=no --with-png=no --with-gif=no --with-tiff=no
make install

pseudosavant

// jQuery-like syntactic sugar. Only queries for one element. Does not loop over multiple like jQuery
export function $(query) {
  if (typeof query === 'undefined') throw 'No query provided to $';

  var el;
  if (typeof query.nodeType === 'string') {
    el = query;
  } else if (typeof query === 'string' && query[0] === '<') {
    const container = document.createElement('div');
    container.innerHTML = query;