Refactor out s.el usage

modules/feature/version-control/autoload.el

@@ -17,7 +17,7 @@ Fallback to repository root."
       (error
        (setq url (shell-command-to-string "hub browse -u --"))
        (setq url (if url
-                     (concat (s-trim url) "/"
+                     (concat (string-trim url) "/"
                              (file-relative-name (buffer-file-name)
                                                  (doom-project-root))
                              (when (use-region-p)

modules/lang/web/autoload/html.el

@@ -18,8 +18,9 @@ character.")
   (interactive "<!><r>")
   (mapc (lambda (rep)
           (let ((from (elt rep (if decode-p 0 1)))
-                (to   (elt rep (if decode-p 1 0))))
-            (when (s-contains-p from text)
+                (to   (elt rep (if decode-p 1 0)))
+                (case-fold-search t))
+            (when (string-match-p (regexp-quote from) text)
               (setq text (s-replace from to text)))))
         +web-entities-list)
     text)

modules/tools/electric-indent/config.el

@@ -26,7 +26,7 @@ trigger electric indentation."
         (chars (plist-get plist :chars))
         (words (plist-get plist :words)))
     (when (or chars words)
-      (let ((fn-name (intern (format "doom--electric-%s" (s-join "-" (mapcar #'symbol-name modes))))))
+      (let ((fn-name (intern (format "doom--electric-%s" (string-join (mapcar #'symbol-name modes) "-")))))
         `(progn
            (defun ,fn-name ()
              (electric-indent-local-mode +1)

modules/tools/rotate-text/config.el

@@ -14,7 +14,7 @@
         (words    (plist-get plist :words))
         (patterns (plist-get plist :patterns)))
     (when (or symbols words patterns)
-      (let ((fn-name (intern (format "doom--rotate-%s" (s-join "-" (mapcar #'symbol-name modes))))))
+      (let ((fn-name (intern (format "doom--rotate-%s" (string-join (mapcar #'symbol-name modes) "-")))))
         `(progn
            (defun ,fn-name ()
              (require 'rotate-text)