Add commented

emacs.el

@@ -2444,6 +2444,30 @@ Any output will be written to current buffer."
     (define-key swoop-map (kbd "C-s") 'swoop-action-goto-line-next)
     (define-key swoop-map (kbd "C-r") 'swoop-action-goto-line-prev)
     )
+  ;; TODO: case sensitive swoop
+  ;; Wrap swoop-async-get-match-lines-list?
+  ;; (with-eval-after-load 'swoop-lib
+  ;;   (defun my-swoop-advice-smart-case (orig-func &rest args)
+  ;;     "Function to wrap swoop function."
+  ;;     (message "args: %S" args)
+  ;;     (let* (
+  ;;            (query (car args))
+  ;;            ;; (query (plist-get args
+  ;;            ;;                   :$query))
+  ;;            (case-fold-search
+  ;;             (let ((case-fold-search nil))
+  ;;               (not (string-match-p (rx upper) query))))
+  ;;            )
+  ;;       ;; (message "case-fold-search: %S" case-fold-search)
+  ;;       ;; (message "query: %S" query)
+  ;;       (apply orig-func args)))
+  ;;   (advice-add 'swoop-async-get-match-lines-list
+  ;;               :around
+  ;;               'my-swoop-advice-smart-case)
+  ;;   (set-variable 'swoop-async-get-match-lines-list
+  ;;                 (byte-compile 'swoop-async-get-match-lines-list))
+  ;;   )
+
   )
 
 (when (fboundp 'dired-k)