<commit_before>#lang racket/base
(require setup/dirs
         racket/path)

(provide index-at-user?)

(define (index-at-user?)
  (define p
    (find-relative-path 
     (collection-file-path "index-scope.rkt" "scribblings/main/private")
     (find-user-pkgs-dir)
     #:more-than-root? #t))
  (and (path? p)
       (let loop ([p p])
         (let-values ([(base name dir?) (split-path p)])
           (and (eq? name 'up)
                (or (and (path? base)
                         (loop base))
                    (eq? base 'relative)))))))<commit_msg>convert find-user-pkgs-dir to a simple-form-path<commit_after>#lang racket/base
(require setup/dirs
         racket/path)

(provide index-at-user?)

(define (index-at-user?)
  (define p
    (find-relative-path 
     (collection-file-path "index-scope.rkt" "scribblings/main/private")
     (simple-form-path (find-user-pkgs-dir))
     #:more-than-root? #t))
  (and (path? p)
       (let loop ([p p])
         (let-values ([(base name dir?) (split-path p)])
           (and (eq? name 'up)
                (or (and (path? base)
                         (loop base))
                    (eq? base 'relative)))))))
{'fraction_non_alphanumeric': 0.16752577319587628, 'fraction_numerical': 0.0, 'mean_word_length': 1.9948586118251928, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 3, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '5214768', 'n_tokens_mistral': 408, 'n_tokens_neox': 391, 'n_words': 92}