ihodes

(ns fun.matching 
  (:require [clojure.core.match :refer [match emit-pattern to-source groupable?]]))

;; adding set literals to match
(defrecord SetPattern [set])
(defmethod emit-pattern clojure.lang.PersistentHashSet
  [pat]
  (SetPattern. pat))

(defmethod groupable? [SetPattern SetPattern]

ihodes

(ns brains.core
  "Provides a functional backpropagation implementation for deep-learning neural
   networks.")


;; POSSIBLE TODOS
;; 1. momentum (requires storing previous weight change deltas)

(def ^:dynamic *learning-rate* 0.2)
(def ^:dynamic *momentum* 0.9)

ihodes

(ns skrio.responses
  (:use [ring.util.response :only (status response)]))


(defn def-json-response
  [code type]
  (letfn [(resp
            ([]     (-> {:error type} response (status code)))
            ([addl] (-> {:error type}
                        (merge addl)

ihodes

(defn def-json-response
  [code type]
  (letfn [(resp
            ([]     (-> {:error type} response (status code)))
            ([addl] (-> {:error type}
                        (merge addl)
                        response
                        (status code))))]
    (intern 'skrio.core (symbol (str "respond-" code)) resp)))

ihodes

Last login: Sun Oct 27 01:26:04 on ttys000
You have new mail.
~ > curl -I http://pinboard.in/
HTTP/1.1 200 OK
Set-Cookie: groznax=pinvisit526ca4dc77f1c; expires=Mon, 28-Oct-2013 05:30:04 GMT
Strict-Transport-Security: max-age=1607000; includeSubDomains
Vary: Accept-Encoding
Content-Type: text/html; charset=utf8
Accept-Ranges: bytes
Date: Sun, 27 Oct 2013 05:30:04 GMT

ihodes

~ > dig pinboard.in

; <<>> DiG 9.8.3-P1 <<>> pinboard.in
;; global options: +cmd
;; Got answer:
;; ->>HEADER<<- opcode: QUERY, status: NOERROR, id: 27447
;; flags: qr rd ra; QUERY: 1, ANSWER: 1, AUTHORITY: 0, ADDITIONAL: 0

;; QUESTION SECTION:
;pinboard.in.			IN	A

ihodes

######## TERMINAL TYPE DESCRIPTIONS SOURCE FILE
#
#	Version 11.0.1
#	$Date: 2000/03/02 15:51:11 $
#	terminfo syntax
#
#	Eric S. Raymond		(current maintainer)
#	John Kunze, Berkeley
#	Craig Leres, Berkeley
#

ihodes

(defvar packages
  '(gist clojure-mode coffee-mode auctex
         haml-mode haskell-mode inf-ruby
         magit magithub markdown-mode paredit python
         sass-mode rainbow-mode scss-mode
         yaml-mode undo-tree)
  "Packages that should always be installed.")

(dolist (p packages)
  (when (not (package-installed-p p))

ihodes

(global-set-key (kbd "M-/") 'hippie-expand)
(global-set-key (kbd "C-x C-b") 'ibuffer)

(global-set-key (kbd "C-s") 'isearch-forward-regexp)
(global-set-key (kbd "C-r") 'isearch-backward-regexp)
(global-set-key (kbd "C-M-s") 'isearch-forward)
(global-set-key (kbd "C-M-r") 'isearch-backward)

(global-set-key (kbd "C-c r") 'replace-string)

ihodes

;; much stolen from github.com/technomancy/better-defaults

(load-theme 'tango-dark)

(require 'package)
(add-to-list 'package-archives
             '("marmalade" . "http://marmalade-repo.org/packages/") t)
(package-initialize)