Skip to content

Instantly share code, notes, and snippets.

View rmloveland's full-sized avatar

Rich Loveland rmloveland

View GitHub Profile
@cky
cky / sha12.scm
Last active June 12, 2021 14:00
Scheme implementation of SHA1 and SHA2
;;;; SHA-1 and SHA-2 implementations.
;;;; Uses R7RS bytevector and byte I/O interfaces.
;;;; Requires SRFIs 1, 26, 43, and 60.
;;; Auxiliary definitions to avoid having to use giant tables of constants.
(define primes80 '(2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73
79 83 89 97 101 103 107 109 113 127 131 137 139 149 151 157
163 167 173 179 181 191 193 197 199 211 223 227 229 233 239
241 251 257 263 269 271 277 281 283 293 307 311 313 317 331
@am0c
am0c / gist:960214
Created May 7, 2011 04:51
perlbrew on eshell
;; eshell init script which let
;; perlbrew to be enabled in emacs eshell environment
;; it is translated from $HOME/perl5/perlbrew/etc/bashrc
;; to elisp script
;;
;; am0c <[email protected]> http://twitter.com/am0c
;;
(require 'cl)
(defmacro get-home-path () '(getenv "HOME"))
@vibrog
vibrog / emacs-ispell-dictionary-alist
Created December 22, 2010 22:26
Setting ispell-dictionary-alist in .emacs
;;; Spell checking using hunspell
(setq ispell-dictionary-alist
'((nil "[A-Za-z]" "[^A-Za-z]" "[']" t
("-d" "en_US" "-i" "utf-8") nil utf-8)
("american"
"[A-Za-z]" "[^A-Za-z]" "[']" nil
("-d" "en_US") nil utf-8)
("english"
"[A-Za-z]" "[^A-Za-z]" "[']" nil
("-d" "en_GB") nil utf-8)