Skip to content

Instantly share code, notes, and snippets.

Avatar

Adrian Medina aamedina

View GitHub Profile
@aamedina
aamedina / letter.md
Created Jun 24, 2022
Maimonides Letter on Astrology
View letter.md

Rabbi Moses ben Maimon (called Maimonides, or Rambam) LETTER ON ASTROLOGY

from Isadore Twersky, A Maimonides Reader (New York: Behrman House, Inc., 1972) pp. 463-473

Twersky's Intro: In this answer to inquiries from scholars of southern France, Maimonides exposes foibles and fallacies of astrology, while touching upon such questions as the sources of knowledge, creation of the world, divine providence and free will, and the Messiah. The rationalistic temper of the letter is characteristic of Maimonidean writing in general and accurately reflects many basic Maimonidean attitudes. Inasmuch as this letter was intended for general circulation, with no pretense to esotericism, the references to the Guide and the statements concerning the rationalization of the commandments are highly significant. Noteworthy is the oft-quoted comment that the Second Temple was destroyed and national independence forfeited because the Jews were preoccupied with astrology. On the whole, the letter is a model of compression, precisi

@aamedina
aamedina / init.el
Created May 22, 2022
Common Lisp snippet from my init.el for Sly config using use-package
View init.el
;;;; Common Lisp
(use-package sly
:ensure t
:init (setq inferior-lisp-program "lispworks"))
(use-package sly-asdf
:after sly
:ensure t)
View describe.clj
(ns dev.describe
"A Clojure port of the Common Lisp describe function."
(:require
[clojure.pprint :refer [pprint]]
[clojure.repl]
[clojure.spec.alpha :as spec]))
(def hierarchy (make-hierarchy))
(defmulti describe-object
@aamedina
aamedina / months.clj
Last active May 12, 2019
This describes an enumerated set of valid months in the calendar. I love how easy in Clojure it is to read, write, and reason about the "shape" of the data that flows through your code. An elegant, and rapidly evolving language.
View months.clj
(clojure.spec-alpha2/def ::חודש
#{:חודש/ניסן
:חודש/אייר
:חודש/סיון
:חודש/תמוז
:חודש/אב
:חודש/אלול
:חודש/תשרי
:חודש/חשון
:חודש/מרחשון
@aamedina
aamedina / vulkan-dff.lisp
Created Dec 27, 2018
Cleaned up output from the LispWorks foreign parser on vulkan.h
View vulkan-dff.lisp
(in-package "CL-USER")
(fli:define-c-typedef (vk-flags (:foreign-name "VkFlags"))
:uint32)
(fli:define-c-typedef (vk-bool32 (:foreign-name "VkBool32"))
:uint32)
(fli:define-c-typedef (vk-device-size (:foreign-name "VkDeviceSize"))
:uint64)
(fli:define-c-typedef (vk-sample-mask (:foreign-name "VkSampleMask"))
:uint32)
@aamedina
aamedina / cover.lisp
Last active Dec 25, 2018
The COVER system: Determining the Coverage of a Test Suite
View cover.lisp
;-*-syntax:COMMON-LISP; Mode: LISP-*-
;This is the September 15, 1991 version of
;the on-line documentation for Richard Waters' test case coverage checker.
;; The COVER system: Determining the Coverage of a Test Suite
;; Richard C. Waters
;; MIT AI Laboratory
@aamedina
aamedina / defsys-example.clj
Last active Aug 4, 2019
a simple pattern for data-driven reloadable systems with Clojure
View defsys-example.clj
;;; deps.edn
{:deps
{org.clojure/clojure {:mvn/version "1.10.0-beta7"}
;; this version is required for clojure.tools.deps.alpha.repl/add-lib
org.clojure/tools.deps.alpha {:git/url "https://github.com/clojure/tools.deps.alpha.git"
:sha "f6c080bd0049211021ea59e516d1785b08302515"}
org.clojure/tools.namespace {:mvn/version "0.2.11"}
com.walmartlabs/schematic {:mvn/version "1.1.0"}
reloaded.repl {:mvn/version "0.2.4"}
View maze-multi.lisp
;;---------------------------------------------------------------------
;;
;; examples/capi/applications/maze.lisp
;;
;; This example creates a 3d maze game.
;;
;; To try it, compile and load this file and then execute:
;;
;; (CL-USER::MAZE)
;;
@aamedina
aamedina / deps.edn
Last active Oct 18, 2018
Clojure LWJGL3 deps.edn with latest tools.deps.alpha with support for Vulkan RT extensions
View deps.edn
{:deps
{org.clojure/clojure {:mvn/version "1.10.0-beta3"}
org.clojure/tools.deps.alpha {:mvn/version "0.5.460"}
org.clojure/data.xml {:mvn/version "0.2.0-alpha5"}
org.clojure/data.json {:mvn/version "0.2.6"}
org.lwjgl/lwjgl {:mvn/version "3.2.1-SNAPSHOT"
:classifier [""
"natives-linux"
"natives-macos"
"natives-windows"]}
View fake-emacsclient
#!/bin/bash -e
frame=`emacsclient -a "" -e "(member \"$DISPLAY\" (mapcar 'terminal-name (frames-on-display-list)))"`
if [ "$frame" == "nil" ]
then
exec emacsclient -c -n -a "" "$@"
fi
if [ "$frame" == "(\"$DISPLAY\")" ]