Split out @ and @ref

src/hash-utils.rkt

@@ -0,0 +1,12 @@
+#lang racket/base
+
+(provide @
+         @ref)
+
+(define-syntax @
+  (syntax-rules ()
+    [(_ v) v]
+    [(_ v k rest ...) (@ (@ref v 'k) rest ...)]))
+
+(define (@ref v k)
+  (and v (hash-ref v k (lambda () #f))))

src/packages.rkt

@@ -1,8 +1,6 @@
 #lang racket/base
 
-(provide @
-         @ref
-         all-package-names
+(provide all-package-names
          all-tags
          all-formal-tags
          sorted-package-names
@@ -29,16 +27,7 @@
 (require reloadable)
 (require "config.rkt")
 (require "daemon.rkt")
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(define-syntax @
-  (syntax-rules ()
-    [(_ v) v]
-    [(_ v k rest ...) (@ (@ref v 'k) rest ...)]))
-
-(define (@ref v k)
-  (and v (hash-ref v k (lambda () #f))))
+(require "hash-utils.rkt")
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 

src/sessions.rkt

@@ -11,11 +11,12 @@
 
 (require "randomness.rkt")
 (require "config.rkt")
+(require "hash-utils.rkt")
 (require reloadable)
 
 (define current-session (make-parameter #f))
 (define session-lifetime
-  (* (or (hash-ref (config) 'session-lifetime-seconds #f)
+  (* (or (@ (config) session-lifetime-seconds)
          (* 7 24 60 60)) ;; one week in seconds
      1000)) ;; convert to milliseconds
 

src/site.rkt

@@ -23,6 +23,7 @@
 (require reloadable)
 (require "daemon.rkt")
 (require "config.rkt")
+(require "hash-utils.rkt")
 
 (define static-cached-directory
   (or (@ (config) static-cached-directory)