terjesb

(ns deserialize-php
  (:require [instaparse.core :as insta]))

(def serialized-php-parser
  (insta/parser
   "
<S> = expr
<expr> = (string | integer | double | boolean | null | array)+
<digit> = #'[0-9]'
<number> = negative* (decimal-num | integer-num)

terjesb

(use 'datomic.samples.repl)
(easy!)

(def conn (scratch-conn))
(transact-all conn (io/resource "day-of-datomic/outline.dtm"))

(def rules
  '[[(ancestors ?section ?ancestor) [?section :section/parent ?ancestor]]
    [(ancestors ?section ?ancestor) [?section :section/parent ?parent]
     (ancestors ?parent ?ancestor)]

terjesb

Configuring Meraki Client VPN in Linux

You can try the official Meraki Configuring Client VPN in Linux article for GUI based setup. For terminal based configuration, see below.

Install packages

Install the following packages:

• strongswan
• xl2tpd

terjesb

# adapted from http://spottedhyena.co.uk/centos-67-ipsecl2tp-vpn-client-unifi-usg-l2tp-server/
yum -y install epel # different on amazon linux
sudo yum -y install xl2tpd openswan
systemctl start ipsec.service
service ipsec start

# 'myserver.com' is just to help identify. these are all imported into /etc/ipsec.conf.

vim /etc/ipsec.d/myserver.com.conf # see next...

terjesb

((ns excel.core
  (:import [org.apache.poi.hssf.usermodel HSSFWorkbook HSSFSheet HSSFRow
            HSSFRichTextString HSSFFont HSSFDataFormat 
            HSSFCellStyle HSSFCell])
  (:import [java.io FileOutputStream FileInputStream IOException])
  #_(:import [org.apache.poi.ss.util CellRangeAdrress]))


(defn make-excel [file-name]
  (let [wb (HSSFWorkbook.)

terjesb

Latency Comparison Numbers
--------------------------
L1 cache reference                           0.5 ns
Branch mispredict                            5   ns
L2 cache reference                           7   ns                      14x L1 cache
Mutex lock/unlock                           25   ns
Main memory reference                      100   ns                      20x L2 cache, 200x L1 cache
Compress 1K bytes with Zippy             3,000   ns        3 us
Send 1K bytes over 1 Gbps network       10,000   ns       10 us
Read 4K randomly from SSD*             150,000   ns      150 us          ~1GB/sec SSD

terjesb

(ns ga-exp.core
  (:import
   (com.google.api.client.googleapis.auth.oauth2 GoogleCredential$Builder)
   (com.google.api.client.googleapis.javanet GoogleNetHttpTransport)
   (com.google.api.client.json.jackson2 JacksonFactory)
   (com.google.api.services.analytics Analytics$Builder AnalyticsScopes)))

(def HTTP_TRANSPORT (GoogleNetHttpTransport/newTrustedTransport))
(def JSON_FACTORY (JacksonFactory.))

terjesb

(ns form-data
  (:require [clojure.string :as str]
            [goog.dom :as gdom]
            [goog.string :as gstring]
            [goog.dom.forms :as gforms]
            [domina :refer [by-class]]
            [domina.events :as ev]))

;; form-decode from ring.util.codec
(defn assoc-conj

terjesb

(ns logicrels.fred
  (:require [clojure.xml :as xml]
            [clojure.core.logic :as logic]))

;; (config :fred-key (do "See http://api.stlouisfed.org/api_key.html" nil))

;; (clojure.pprint/pprint (sort-by :date (fred-test "DGS10" "2012-07-02")))

;; ({:target "1.61", :date "2012-05-31", :value "1.59"}
;;  {:target "1.61", :date "2012-06-01", :value "1.47"}

terjesb

iTerm2 emacs 24.2.1 -nw with paredit on OS X 10.8 Norwegian layout

Left Command is my Meta.
Left Alt used for inputting special characters.
Caps Lock is mapped to Control.

 > System Preferences > Keyboard > Keyboard > Special: Caps Lock: ^ Control
iTerm > Preferences > Keys: Left Command key mapped to Right Option
iTerm > Preferences > Profiles > Keys: Right option acts as: +Esc