@@ -573,7 +573,7 @@ list of (fn args) to pass to `apply''"
573
573
574
574
(defun cljr--whitespacep (s )
575
575
" True if S contains only whitespace."
576
- (s -blank? (string-trim s)))
576
+ (string -blank-p (string-trim s)))
577
577
578
578
(defun cljr--make-room-for-toplevel-form ()
579
579
(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"
1932
1932
(defun cljr--empty-buffer-p (&optional buffer )
1933
1933
(let ((buffer (or buffer (current-buffer ))))
1934
1934
(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 )))))))
1936
1936
1937
1937
(defun cljr--extract-next-dependency-name ()
1938
1938
(while (not (or (cljr--empty-buffer-p)
@@ -2882,7 +2882,7 @@ See: https://github.com/clojure-emacs/clj-refactor.el/wiki/cljr-extract-function
2882
2882
(insert " (" )
2883
2883
(when name (insert name))
2884
2884
(save-excursion
2885
- (unless (s -blank? unbound)
2885
+ (unless (string -blank-p unbound)
2886
2886
(insert " " unbound))
2887
2887
(insert " )" ))
2888
2888
(unless name
@@ -2915,7 +2915,7 @@ See: https://github.com/clojure-emacs/clj-refactor.el/wiki/cljr-add-stubs"
2915
2915
(let* ((interface (cider-symbol-at-point))
2916
2916
(prefix? (cljr--symbol-prefix interface))
2917
2917
(alias? (cljr--resolve-alias prefix?) )
2918
- (interface (if (not (s -blank? prefix?) )
2918
+ (interface (if (not (string -blank-p prefix?) )
2919
2919
(if alias?
2920
2920
(format " %s /%s " alias? (cljr--symbol-suffix interface))
2921
2921
interface)
0 commit comments