Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Removal of s.el as a dependency #372

Merged
merged 31 commits into from
May 2, 2017
Merged

Removal of s.el as a dependency #372

Changes from 1 commit
Commits
Show all changes
31 commits
Select commit Hold shift + click to select a range
da35e4b
Replaced s-join with string-join
dotemacs Apr 25, 2017
7a06913
Replaced s-trim with string-trim
dotemacs Apr 25, 2017
38d081a
Replaced s-blank? with string-blank-p
dotemacs Apr 25, 2017
4b47d41
Replaced s-concat with concat
dotemacs Apr 25, 2017
46f2a2f
Replace s-starts-with-p with string-prefix-p
dotemacs Apr 25, 2017
5c116f5
Replace s-(suf|pre)fix-p with string-(suf|pre)fix-p
dotemacs Apr 25, 2017
43e229d
Replaces s-equals-p with string-equal
dotemacs Apr 25, 2017
a380f8e
Replaced s-ends-with-p with string-suffix-p
dotemacs Apr 25, 2017
435615e
Replaced s-replace
dotemacs Apr 25, 2017
11c1d78
Replaced s-matches-p
dotemacs Apr 25, 2017
5ca4263
cljr--project-dir returns blank string instead of nil
dotemacs Apr 25, 2017
6d0eaa3
Remove s-chop-(pre|suf)fix with string-remove-(pre|suf)fix
dotemacs Apr 25, 2017
84892b0
Removed s-(pre|ap)pend
dotemacs Apr 25, 2017
209bd74
Switch to downcase from s-downcase
dotemacs Apr 25, 2017
a7a983a
Remove s-present?
dotemacs Apr 25, 2017
5a3b3cc
Replaced s-split with split-string
dotemacs Apr 25, 2017
d3d3223
Replaced s-contains-p
dotemacs Apr 26, 2017
cb32710
Replace s-match
dotemacs Apr 26, 2017
df7c4f1
Replace s-dashed-words
dotemacs Apr 27, 2017
3504f9e
Replaced s-with
dotemacs Apr 27, 2017
e0c0ac6
Replace s-slice-at
dotemacs Apr 27, 2017
315d517
Less parens
dotemacs Apr 27, 2017
c1efb08
Remove s-lines
dotemacs Apr 27, 2017
4a10aea
Removed s.el as a dependency
dotemacs Apr 27, 2017
e812312
Created cljr--string-present-p
dotemacs May 1, 2017
1641730
Reused cljr--string-present-p
dotemacs May 1, 2017
80d7fd4
Cleaning up the intent
dotemacs May 1, 2017
01cf772
Fix for the omission with split-string
dotemacs May 1, 2017
e04912f
Made cljr--whitespacep null safe
dotemacs May 1, 2017
c02c15f
Let diet
dotemacs May 1, 2017
c33fc5f
Avoiding repetition
dotemacs May 1, 2017
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
19 changes: 11 additions & 8 deletions clj-refactor.el
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -761,14 +761,17 @@ A new record is created to define this constructor."
;; ------ file -----------

(defun cljr--project-dir ()
(or (ignore-errors
(file-truename
(locate-dominating-file default-directory "project.clj")))
(ignore-errors
(file-truename
(locate-dominating-file default-directory "build.boot")))
(ignore-errors (file-truename
(locate-dominating-file default-directory "pom.xml")))))
(let ((project-dir (or (ignore-errors
(file-truename
(locate-dominating-file default-directory "project.clj")))
(ignore-errors
(file-truename
(locate-dominating-file default-directory "build.boot")))
(ignore-errors (file-truename
(locate-dominating-file default-directory "pom.xml"))))))
(if (null project-dir)
Copy link
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

perhaps rather (or project-dir "")?

or in fact you can get rid of the let you introduced and just stick an empty string at the end of the original or expression as default?

Copy link
Contributor Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Good point.

Changed it as per your comment.

I was more on the 'drive' to complete the whole task, so I've missed the obvious stuff like this. Thanks

""
project-dir)))

(defun cljr--project-file ()
(let ((project-dir (cljr--project-dir)))
Expand Down