Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
clpm
clpm
Commits
dcd43ff1
Commit
dcd43ff1
authored
Feb 14, 2020
by
Eric Timmons
Browse files
Switch to logical pathnames
parent
ca071d38
Changes
6
Hide whitespace changes
Inline
Side-by-side
clpm-build.asd
View file @
dcd43ff1
...
...
@@ -13,6 +13,6 @@
:version
(
:read-file-form
"src/clpm/version.lisp"
:at
(
2
2
))
:description
"A Common Lisp Package Manager"
:license
"BSD-2-Clause"
:pathname
"
src
/
clpm-build
/
"
:pathname
#p"clpm:
src
;
clpm-build
;
"
:class
:package-inferred-system
:depends-on
(
#:clpm-build/clpm-build
))
clpm.asd
View file @
dcd43ff1
...
...
@@ -13,7 +13,7 @@
:version
(
:read-file-form
"src/clpm/version.lisp"
:at
(
2
2
))
:description
"A Common Lisp Package Manager"
:license
"BSD-2-Clause"
:pathname
"
src
/
clpm
/
"
:pathname
#p"clpm:
src
;
clpm
;
"
:class
:package-inferred-system
:defsystem-depends-on
(
#:clpm-build
#:deploy
)
:entry-point
"clpm/cli/entry:main"
...
...
logical-pathname.lisp
0 → 100644
View file @
dcd43ff1
(
in-package
:cl-user
)
;; Configure our logical pathnames.
;;
;; When using SLIME, LOAD this file (C-c C-l), not COMPILE and LOAD (C-c C-k).
(
let
((
clpm-root
(
uiop:pathname-directory-pathname
(
uiop:ensure-absolute-pathname
*load-pathname*
))))
(
setf
(
logical-pathname-translations
"clpm"
)
`
((
"clpm:src;**;*.*.*"
,
(
merge-pathnames
"src/**/*.*"
clpm-root
)))))
scripts/build.lisp
View file @
dcd43ff1
...
...
@@ -10,6 +10,8 @@
(
in-package
#:clpm-scripts
)
(
load
(
merge-pathnames
"../logical-pathname.lisp"
*load-truename*
))
(
setup-asdf
"default"
)
(
format
uiop:*stderr*
...
...
scripts/live.lisp
View file @
dcd43ff1
...
...
@@ -10,6 +10,8 @@
(
in-package
#:clpm-scripts
)
(
load
(
merge-pathnames
"../logical-pathname.lisp"
*load-truename*
))
(
setup-asdf
"live"
)
;; Load CLPM
...
...
src/clpm/deploy.lisp
View file @
dcd43ff1
...
...
@@ -13,9 +13,7 @@
(
defvar
*default-clpm-home*
nil
)
(
deploy:define-resource-directory
deploy-groveler
"src/clpm-groveler/"
)
(
deploy:define-resource-directory
deploy-client
"src/clpm-client/"
)
(
deploy:define-resource-directory
deploy-src
"src/"
)
(
uiop:register-image-restore-hook
(
lambda
()
...
...
@@ -29,7 +27,10 @@
(
deploy:runtime-directory
))))
(
setf
deploy:*data-location*
(
uiop:truenamize
(
uiop:ensure-directory-pathname
(
uiop:ensure-absolute-pathname
clpm-home
))))
(
setf
*clpm-groveler-asd-pathname*
(
merge-pathnames
"clpm-groveler/clpm-groveler.asd"
;; Fixup the logical pathnames
(
setf
(
logical-pathname-translations
"clpm"
)
`
((
"clpm:src;**;*.*.*"
,
(
merge-pathnames
"src/**/*.*"
deploy:*data-location*
))))
(
setf
*clpm-groveler-asd-pathname*
(
merge-pathnames
"src/clpm-groveler/clpm-groveler.asd"
deploy:*data-location*
))
(
unless
(
uiop:probe-file*
clpm-home
)
(
format
*error-output*
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment