removed unused function

messages.rkt

@@ -6,9 +6,9 @@
 
 (define messages
   (hash
-   'show-help
-   (string-append
-    config:initialize-command ":\n"
+   'show-help (string-append
+               config:initialize-command
+               " - "
                "initialize a file in "
                config:program-path
                config:program-directory

util.rkt

@@ -33,9 +33,6 @@
 (define (display-hash-ref hash-list key)
   (display (hash-ref hash-list key)))
 
-(define (d-vector-ref args key)
-  (display (vector-ref args key)))
-
 (define (file->string-list config:path-to-file)
   (let ([todo-list (file:file->lines config:path-to-file
                            #:mode 'text
@@ -54,7 +51,9 @@
 
 (define (prefix-with-number lst)
   (map string-append
-       (map number->string (list:rest (list:range (length lst)))) 
+       (map number->string
+            (list:rest
+             (list:range (length lst))))
        (list:rest lst)))
 
 (define (prefix-with-period lst)