erkin

(define (read-csexp)
 (letrec
     ((left-paren  (char->integer #\())
      (right-paren (char->integer #\)))
      (zero        (char->integer #\0))
      (nine        (char->integer #\9))
      (colon       (char->integer #\:))
      (in (current-input-port))
      (read-atom
       (λ (byte digits)

erkin

(define-syntax define-syntax-rule
  (syntax-rules ()
    ((_ (name args ...) body)
     (define-syntax name
       (syntax-rules ()
         ((name args ...) body))))))

(define-syntax-rule (do-times n . body)
  (do ((i n (sub1 i)))
      ((< i 1))

erkin

#lang racket

(module amb racket/base
  (provide amb assert!)
  (define-syntax-rule (pop! stack)
    (begin0 (car stack) (set! stack (cdr stack))))
  (define-syntax-rule (push! v stack)
    (set! stack (cons v stack)))
  (define (U f) (f f))

erkin

#lang racket/base
(require racket/gui/base
         racket/class
         racket/list
         racket/string)

(define program-name "regexp-checker")
(define program-version "v0.1")

(define version-message

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

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

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

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

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

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