Skip to content

GitLab

Commit 558d53b8 authored by Marc Coiffier's avatar Marc Coiffier
Browse files

Implement a URI scheme handler for running curly:// URLs

parent 32de1dd3
Hide whitespace changes
Inline Side-by-side
curly/data/install.sh
View file @ 558d53b8
......@@ -3,6 +3,10 @@ get_data() {
printf "Installing goody %s at location %s\n" "$2" "$1"
curly --goody="$2" > "$1"
}
trace() {
printf "Running: %s\n" "$*" >&2
"$@"
}
case "$1" in
emacs)
ver=`curly -v | cut -d' ' -f3`
......@@ -35,4 +39,84 @@ EOF
get_data "$root/completions/curly.script.shf" bash/completions/curly.script.shf
get_data "$root/completions/curly.sh" bash/completions/curly.sh
;;
handlers)
root="${XDG_DATA_HOME:-$HOME/.local/share}"
mkdir -p "$root"
echo "Installing desktop file at $root/applications/curly-uri.desktop" >&2
cat > "$root/applications/curly-uri.desktop" <<EOF
[Desktop Entry]
Version=1.0
Type=Application
Exec=$root/curly/handlers/curly-uri %u
Name=Install Curly Program
Comment=Installs a program from a Curly URI
MimeType=x-scheme-handler/curly
EOF
echo "Updating desktop database" >&2
update-desktop-database "$root/applications"
echo "Installing handler $root/curly/handlers/curly-uri" >&2
mkdir -p "$root/curly/handlers"
cat > "$root/curly/handlers/curly-uri" <<EOF
#!/bin/sh
curly --goody install.sh | sh -s - "\$@"
EOF
chmod +x "$root/curly/handlers/curly-uri"
;;
curly:*)
uri="${1#curly:}"
lib="${uri#//*/}"
host="${uri%$lib}"
lib="${lib%%/*}"
prog="${uri#$host$lib}"
prog="${prog#/}"
contains() {
case "$1" in
*"$2"*) return 0;;
*) return 1;;
esac
}
while contains "$prog" /; do
prog="${prog%%/*}.${prog#*/}"
done
case "$host" in
//*/)
host="${host#//}"; host="${host%/}"
if [ -z "`curly %"key meta $host"`" ]; then
curly %"key import $host $host" 2>/dev/null
fi
cmd="curly --mount p=package:$host:$lib %'run p.$prog'"
;;
*)
cmd="curly --mount p=library:$lib %'run p.$prog'"
;;
esac
if [ -t 1 ]; then
eval "$cmd"
else
cache="${XDG_CACHE_HOME:-$HOME/.cache}/curly/logs"
mkdir -p "$cache"
ts=`date +%s,%F,%T`
(
exec 2>&1
cat > "$cache/cmd-$ts.log.html" <<EOF
<!DOCTYPE html>
<html>
<head></head>
<body>
<pre style="background:black; color:white;"><span style="font-weight: bold">\$ $cmd</span>
`eval "$cmd" 2>&1`</pre>
</body>
</html>
EOF
)
xdg-open "$cache/cmd-$ts.log.html"
fi
;;
esac
curly/src/Curly/Session/Commands/Context.hs
View file @ 558d53b8
......@@ -37,7 +37,9 @@ metaDoc = [q_string|
|]
metaCmd = withDoc metaDoc $ fill False $ withMountain $ do
path <- many' (nbhspace >> dirArg)
let mod = ?mountain >>= \fl -> mapF (\m -> ModDir (m^.ascList)) (Join (fl^.flLibrary.metadata.iso (\(Metadata m) -> m) Metadata))
let mod = ?mountain >>= \fl -> mapF (\m -> ModDir (m^.ascList))
(Join (insert "library-id" (Pure (show (fl^.flID)))
$ (fl^.flLibrary.metadata.iso (\(Metadata m) -> m) Metadata)))
serveStrLn $ maybe "" showMetaDir (mod^?atMs path)
reloadDoc = [q_string|
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment