TeMPOraL

/*
  Google now uses "~=[,,_,,]:3" as an emoticon for Nyan Cat animation
  on Google Plus. It's handy to have this character sequence bound to
  a key. Thanks to Benjamin Slade for the idea.

  Nyan Cat is bound by default to "N". As it is to be used when
  editing a text field, you'll need to use "C-z" first, so the
  sequence is: "C-z N".

  Quick hack based on Conkeror source code; namely,

TeMPOraL

/* general */
body
{
    margin-left: 100px;
    margin-right: 100px;
}

/* comments */
.post
{

TeMPOraL

;;;; regenerate.lisp - script for regenerating [redacted] static HTML from template files.

(ql:quickload "cl-emb")
(ql:quickload "cl-fad")
(ql:quickload "cl-ppcre")

(defparameter *configuration* '() "plist containing config parameters passed to EMB templates.")
(defparameter *essays* '() "plist containing essay descriptors generated by `defessay'.")
(defconstant +default-properties+ '(:title nil :url nil :orig-title nil :orig-url nil :date nil :orig-date nil :alt-translations nil :translators nil :editors nil :disabled nil :additional-html nil :part-of-hnp nil :description ""))

TeMPOraL

(defbehavior root-0
  (if (alive)
      (if (enemy-in-range)
          (attack (find-weakest-enemy-in-range))
        (move-to-enemy find-nearest-enemy))))

TeMPOraL

;;; repl.sh

#!/bin/bash

if [[ "$#" -ne 1 ]]; then
    echo "Usage: repl.sh 'script to be run'"
    exit 1
fi

screen -AdmS 'main' "$1"

TeMPOraL

(defun m44*m44 (m1 m2)
  ;; Unrolled, because why the hell not?
  ;; TODO maybe unroll dot-product and matrix-column/matrix-row as well?
  ;; for now let's inline them and hope the compiler is not dumb
  (make-m44 (⋅ (m44-column m1 0) (m44-row m2 0)) (⋅ (m44-column m1 1) (m44-row m2 1)) (⋅ (m44-column m1 2) (m44-row m2 2)) (⋅ (m44-column m1 3) (m44-row m2 3))
            (⋅ (m44-column m1 0) (m44-row m2 0)) (⋅ (m44-column m1 1) (m44-row m2 1)) (⋅ (m44-column m1 2) (m44-row m2 2)) (⋅ (m44-column m1 3) (m44-row m2 3))
            (⋅ (m44-column m1 0) (m44-row m2 0)) (⋅ (m44-column m1 1) (m44-row m2 1)) (⋅ (m44-column m1 2) (m44-row m2 2)) (⋅ (m44-column m1 3) (m44-row m2 3))
            (⋅ (m44-column m1 0) (m44-row m2 0)) (⋅ (m44-column m1 1) (m44-row m2 1)) (⋅ (m44-column m1 2) (m44-row m2 2)) (⋅ (m44-column m1 3) (m44-row m2 3))))

TeMPOraL

(defun ⋅ (a b)
  "Compute dot product of two vectors."
  (assert (= (length a)
             (length b))
          (a b)
          "Cannot compute a dot product of ~S and ~S - lengths of vectors differ." a b)
  (reduce #'+ (map 'vector #'* a b)))

(defun × (a b)
  "Compute cross product of two 3D vectors."

TeMPOraL

(defpackage :BCM2835 
	(:use :FFI)
	(:export :init
		:close
		:gpio-fsel
		:gpio-write
		:gpio-lev
		:gpio-set
		:gpio-clr
		:delay

TeMPOraL

(try-load-and-configure-library
 'org-install

 (setq org-hide-leading-stars t)
 (setq org-pretty-entities t)
 (setq org-pretty-entities-include-sub-superscripts nil)
 (setq org-return-follows-link t)
 (setq org-special-ctrl-a/e t)

 (setq org-log-done t)

TeMPOraL

Keybase proof

I hereby claim:

• I am temporal on github.
• I am temporal_pl (https://keybase.io/temporal_pl) on keybase.
• I have a public key ASCI--smw7XaN_sGcdGKg27RlH9QLy7Pv8r975Qg4P0YMAo

To claim this, I am signing this object: