erkin


  This is \l on \n, running \s on \m,
	with kernel \r.
              \\ /
            -->*<--
              /o\\
             /_\\_\\
            /_/_0_\\
           /_o_\\_\\_\\
          /_/_/_/_/o\\

erkin

Keybase proof

I hereby claim:

• I am erkin on github.
• I am erkinb (https://keybase.io/erkinb) on keybase.
• I have a public key ASAc4RSCeufWknLV_H9Cmb6bYPis3q4Pab6z7vRxfvBX8go

To claim this, I am signing this object:

erkin

#lang racket

(define (gopher host (port "70") (path "/"))
  (define-values (in out) (tcp-connect host (string->number port)))
  (display (string-append path "\r\n") out)
  (flush-output out)
  (for-each displayln (port->lines in #:line-mode 'return-linefeed))
  (close-output-port out))

(module+ main

erkin

#lang racket/base

(define-syntax-rule (assert expr)
  (unless expr
    (raise-user-error "Assertion failed: " (quote expr))))

(define (factorial n)
  (if (zero? n)
      1
      (* n (factorial (sub1 n)))))

erkin

#lang racket ; -*- racket -*-

(define gay
  '((228 003 003) ; red
    (255 140 000) ; orange
    (255 237 000) ; yellow
    (000 128 038) ; green
    (000 077 255) ; blue
    (117 007 135) ; purple
    ))

erkin

#lang racket/base
(provide
 (except-out
  (all-from-out racket/base)
  set!
  set!-values
  box-cas!
  bytes-copy!
  bytes-fill!
  bytes-set!

erkin

version: "3.3"
services:
  bbs:
    image: erkin/schemebbs
    container_name: sbbs
    labels:
      - "traefik.enable=true"
      - "traefik.http.services.bbs.loadbalancer.server.port=80"
      - "traefik.http.routers.bbs.rule=Host(`example-bbs.org`)"
      - "traefik.http.routers.bbs.entrypoints=websecure"

erkin

version: "3.3"
services:
  bbs:
    image: erkin/schemebbs
    container_name: sbbs
    ports:
      - '8080'
    volumes:
      - ${SBBS_DATADIR}:/opt/schemebbs/data
  proxy:

erkin

#lang racket/base
(require net/http-client json)

(define webhook-id "foo")
(define webhook-token "bar")

(module+ main
  (http-conn-send!
   (http-conn-open "discord.com" #:ssl? #t)
   (string-append "/api/webhooks/" webhook-id "/" webhook-token)

erkin

;;; Chez Scheme clone of Python `getpass'
;;; Based on github.com/smitchell556/get-pass
(library (get-pass)
  (export get-pass)
  (import (chezscheme))

;;; FFI portion
;;; See termios(3) for more info
  (define-ftype termios
    (struct