TeMPOraL

(defun parse-tree/fix-anchors (tree base-url)
  "Fix anchor URLs in the `TREE' to work correctly with the <base> tag."
  (plump:traverse tree
                  (lambda (node)
                    (when (starts-with-subseq "#" (plump:attribute node "href"))
                      (setf (plump:attribute node "href") (concatenate 'string base-url (plump:attribute node "href")))))
                  :test (lambda (node)
                          (and (plump:element-p node)
                               (string-equal (plump:tag-name node) "a")))))

TeMPOraL

(defpackage #:scratch/clx-test
  (:use #:cl)
  (:export #:run))

(in-package #:scratch/clx-test)

;;; A minimum test case for properly handling window close events from the window manager.

(defun delete-window-event-p (display type data)
  (and (eq type :wm_protocols)

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:

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

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

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

(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

;;; repl.sh

#!/bin/bash

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

screen -AdmS 'main' "$1"

TeMPOraL

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

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 ""))