Skip to content

Instantly share code, notes, and snippets.


Adrian Medina aamedina

View GitHub Profile
aamedina /
Created Jun 24, 2022
Maimonides Letter on Astrology

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 / 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."
[clojure.pprint :refer [pprint]]
[clojure.spec.alpha :as spec]))
(def hierarchy (make-hierarchy))
(defmulti describe-object
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 / 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"))
(fli:define-c-typedef (vk-bool32 (:foreign-name "VkBool32"))
(fli:define-c-typedef (vk-device-size (:foreign-name "VkDeviceSize"))
(fli:define-c-typedef (vk-sample-mask (:foreign-name "VkSampleMask"))
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 / defsys-example.clj
Last active Aug 4, 2019
a simple pattern for data-driven reloadable systems with Clojure
View defsys-example.clj
;;; deps.edn
{org.clojure/clojure {:mvn/version "1.10.0-beta7"}
;; this version is required for
org.clojure/tools.deps.alpha {:git/url ""
: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:
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
{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 [""
View fake-emacsclient
#!/bin/bash -e
frame=`emacsclient -a "" -e "(member \"$DISPLAY\" (mapcar 'terminal-name (frames-on-display-list)))"`
if [ "$frame" == "nil" ]
exec emacsclient -c -n -a "" "$@"
if [ "$frame" == "(\"$DISPLAY\")" ]