use drracket:comment-delimiters in the Insert Large Letters... menu item

Author: rfindler

drracket-core-lib/drracket/private/module-language.rkt

@@ -544,7 +544,21 @@
           (print value port))
         (newline port))
 
-
+      (define/override (get-comment-character [comment-delimiters '()])
+        (define start+char
+          (for/or ([comment-delimiter (in-list comment-delimiters)])
+            (match comment-delimiter
+              [(list 'line start padding)
+               (define beginning (string-append start padding))
+               (define no-spaces (regexp-replace #rx"^ *" beginning ""))
+               (cond
+                 [(equal? no-spaces "") #f]
+                 [else
+                  (cons beginning (string-ref no-spaces 0))])]
+              [_ #f])))
+        (cond
+          [start+char (values (car start+char) (cdr start+char))]
+          [else (super get-comment-character)]))
 
       ;; printer settings are just ignored here.
       (define/override (create-executable setting parent program-filename)

drracket-core-lib/drracket/private/unit.rkt

@@ -4722,16 +4722,25 @@
                  #t)]
               [insert-large-semicolon-letters
                (λ ()
-                 (let ([edit (get-edit-target-object)])
-                   (when edit
-                     (define language-settings (send definitions-text get-next-settings))
-                     (define-values(comment-prefix comment-character)
-                       (if language-settings
-                           (send (drracket:language-configuration:language-settings-language
-                                  language-settings)
-                                 get-comment-character)
-                           (values ";" #\;)))
-                     (insert-large-letters comment-prefix comment-character edit this))))]
+                 (define edit (get-edit-target-object))
+                 (when edit
+                   (define language-settings (send definitions-text get-next-settings))
+                   (define-values (comment-prefix comment-character)
+                     (cond
+                       [language-settings
+                        (define lang (drracket:language-configuration:language-settings-language
+                                      language-settings))
+                        (cond
+                          [(object-method-arity-includes? lang 'get-comment-character 1)
+                           (define cap-val
+                             (call-read-language (send definitions-text get-irl)
+                                                 'drracket:comment-delimiters
+                                                 '()))
+                           (send lang get-comment-character cap-val)]
+                          [else (send lang get-comment-character)])]
+                       [else
+                        (values ";" #\;)]))
+                   (insert-large-letters comment-prefix comment-character edit this)))]
               [c% (get-menu-item%)])
 
           (frame:add-snip-menu-items