empty-preferences.rkt

#!/usr/bin/env racket
#lang racket/base

(require racket/file)

(provide cleanup-pref-keys)

(define cleanup-pref-keys
  '((plt:framework-pref:drracket:recently-closed-tabs ())
    (plt:framework-pref:drracket:console-previous-exprs ())
    (readline-input-history ())
    (plt:framework-pref:drracket:most-recent-lang-line "#lang racket/base\n")))

(module+ main
  (require racket/pretty)

  (pretty-write
   (for/hash ([key (in-list (map car cleanup-pref-keys))])
     (values key (get-preference key (λ () #f)))))

  (put-preferences
   (map car cleanup-pref-keys)
   (map cadr cleanup-pref-keys))
  )