Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
gendl
gendl
Commits
e7674604
Commit
e7674604
authored
May 09, 2021
by
Dave Cooper
Browse files
make docker image not crash on bare startup
parent
01be7681
Pipeline
#3662
passed with stages
in 15 minutes and 33 seconds
Changes
3
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
docker/Dockerfile
View file @
e7674604
...
...
@@ -2,6 +2,14 @@ FROM ubuntu:latest
ARG
DEBIAN_FRONTEND=noninteractive
ARG
swank_port=4200
ARG
gwl_port=9000
EXPOSE
$swank_port
EXPOSE
$gwl_port
RUN
apt-get
-y
update
&&
apt-get
-y
upgrade
RUN
apt-get
-y
install
openssl libssl-dev iputils-ping telnet git git-flow ghostscript
&&
\
rm
-rf
/var/cache/apk/
*
&&
apt-get clean
&&
groupadd
-g
1000 gendl-user
&&
\
...
...
docker/run
View file @
e7674604
...
...
@@ -7,18 +7,27 @@
# (prerequisite: docker and Gnu emacs with slime).
#
cd
`
dirname
"
$0
"
`
/../
gendl
=
`
pwd
`
gendl_user
=
"gendl-user"
# FLAG orig
#cd `dirname "$0"`/../
#gendl=`pwd`
#gendl_user="gendl-user"
#
# Note gendl source home is being mounted from: ${gendl} to /home/${gendl_user}/gendl/ in the container.
#
CID
=
$(
docker run
-d
-it
--rm
-p
9000:9000
-p
4200:4200
-h
gendl
\
--name
gendl
--mount
type
=
bind
,src
=
${
gendl
}
,dst
=
/home/
${
gendl_user
}
/gendl/ dcooper8/gendl:latest
)
# FLAG orig
#CID=$(docker run -d -it --rm -p 9000:9000 -p 4200:4200 -h gendl \
# --name gendl --mount type=bind,src=${gendl},dst=/home/${gendl_user}/gendl/ dcooper8/gendl:latest)
# CID=$(docker run -d -it --rm -p 9000:9000 -p 4200:4200 -h gendl --name gendl dcooper8/gendl:latest) # works.
# CID=$(docker run -d -it --rm dcooper8/gendl:latest) # starts but hangs (bad). No port 4200.
CID
=
$(
docker run
-d
-it
--rm
-p
9000:9000
-p
4200:4200 dcooper8/gendl:latest
)
# works.
if
[
-z
"
$CID
"
]
then
...
...
emacs/gdl.el
View file @
e7674604
...
...
@@ -304,10 +304,12 @@
(
defun
load-user-emacs-glime
()
(
interactive
)
(
dolist
(
file
(
list
"~/.emacs-glime"
"~/.emacs-glime.el"
))
(
when
(
file-exists-p
file
)
(
load-file
file
))))
(
defun
load-user-emacs-gendl
()
(
interactive
)
(
dolist
(
file
(
list
"~/.emacs-gendl"
"~/.emacs-gdl"
"~/.emacs-gendl.el"
"~/.emacs-gdl.el"
))
(
when
(
file-exists-p
file
)
(
load-file
file
))))
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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