declare where dynamic application specific data is to be stored

This commit is contained in:
2025-09-09 16:12:50 -07:00
parent 5fdf026536
commit c0d79480d6

View File

@@ -1,6 +1,11 @@
#! /usr/bin/env /usr/local/bin/racket #! /usr/bin/env /usr/local/bin/racket
#lang racket #lang racket
;; default directory used for storing dynamic application data
(define data-dir
(build-path (find-system-path 'home-dir)
(build-path ".local" "share" "palps")))
(define (call-valid? call) (define (call-valid? call)
(and (and
(<= (string-length call) 9) (<= (string-length call) 9)