Skip to content

Commit 38d081a

Browse files
committed
Replaced s-blank? with string-blank-p
As per clojure-emacs#293 replacing s.el with subr-x.el
1 parent 7a06913 commit 38d081a

File tree

1 file changed

+4
-4
lines changed

1 file changed

+4
-4
lines changed

clj-refactor.el

+4-4
Original file line numberDiff line numberDiff line change
@@ -573,7 +573,7 @@ list of (fn args) to pass to `apply''"
573573

574574
(defun cljr--whitespacep (s)
575575
"True if S contains only whitespace."
576-
(s-blank? (string-trim s)))
576+
(string-blank-p (string-trim s)))
577577

578578
(defun cljr--make-room-for-toplevel-form ()
579579
(if (cljr--whitespacep (buffer-substring-no-properties (point) (point-max)))
@@ -1932,7 +1932,7 @@ See: https://github.com/clojure-emacs/clj-refactor.el/wiki/cljr-project-clean"
19321932
(defun cljr--empty-buffer-p (&optional buffer)
19331933
(let ((buffer (or buffer (current-buffer))))
19341934
(with-current-buffer buffer
1935-
(s-blank? (string-trim (buffer-substring-no-properties (point-min) (point-max)))))))
1935+
(string-blank-p (string-trim (buffer-substring-no-properties (point-min) (point-max)))))))
19361936

19371937
(defun cljr--extract-next-dependency-name ()
19381938
(while (not (or (cljr--empty-buffer-p)
@@ -2882,7 +2882,7 @@ See: https://github.com/clojure-emacs/clj-refactor.el/wiki/cljr-extract-function
28822882
(insert "(")
28832883
(when name (insert name))
28842884
(save-excursion
2885-
(unless (s-blank? unbound)
2885+
(unless (string-blank-p unbound)
28862886
(insert " " unbound))
28872887
(insert ")"))
28882888
(unless name
@@ -2915,7 +2915,7 @@ See: https://github.com/clojure-emacs/clj-refactor.el/wiki/cljr-add-stubs"
29152915
(let* ((interface (cider-symbol-at-point))
29162916
(prefix? (cljr--symbol-prefix interface))
29172917
(alias? (cljr--resolve-alias prefix?))
2918-
(interface (if (not (s-blank? prefix?))
2918+
(interface (if (not (string-blank-p prefix?))
29192919
(if alias?
29202920
(format "%s/%s" alias? (cljr--symbol-suffix interface))
29212921
interface)

0 commit comments

Comments
 (0)