Restructure

Put all source files in `src/' and add the `conkeror/' directory from
the old project.
This commit is contained in:
Tom Willemsen 2012-12-28 20:24:20 +01:00
parent 57f06ec8c9
commit 5535308fff
6 changed files with 65 additions and 9 deletions

View file

@ -1,11 +1,4 @@
.PHONY: all
all: linkwave convert
linkwave: linkwave.scm paths.o
csc $^ -o $@
convert: convert.scm paths.o
csc $^ -o $@
paths.o: paths.scm
csc -c $^
all:
$(MAKE) -C src/

52
conkeror/linkwave.js Normal file
View file

@ -0,0 +1,52 @@
define_variable("linkwave_program", "/home/slash/projects/nlinkwave/src/linkwave",
"The location of the linkwave executable.");
function linkwave_add_url(I, url, title)
{
let url_string = load_spec_uri_string(load_spec(url));
let title = yield I.minibuffer.read($prompt="name (required): ",
$initial_value=title);
let description = yield I.minibuffer.read(
$prompt="extended description: "
);
let tags = yield I.minibuffer.read(
$prompt="tags (comma delimited): "
);
let command = linkwave_program + ' "' + url_string + '" "' + title
+ '" "' + description + '" \''
+ tags.split(',').map(function (str)
{ return str.trim(); }).join("' '")
+ "'";
yield shell_command(command);
}
function linkwave_add(I) {
check_buffer(I.buffer, content_buffer);
let result = yield linkwave_add_url(I, I.buffer.top_frame,
I.buffer.title);
if (!result)
I.window.minibuffer.message('Added to linkwave');
else
I.window.minibuffer.message('Couldn\'t add to linkwave');
}
interactive("linkwave-add",
"Bookmark a page in linkwave",
linkwave_add);
function linkwave_add_link(I) {
check_buffer(I.buffer, content_buffer);
bo = yield read_browser_object(I);
let result = yield linkwave_add_url(I, encodeURIComponent(bo),
bo.textContent);
if (!result)
I.window.minibuffer.message('Added to linkwave');
else
I.window.minibuffer.message('Couldn\'t add to linkwave');
}
interactive("linkwave-add-link",
"Bookmark a link in linkwave",
linkwave_add_link);
provide("linkwave");

11
src/Makefile Normal file
View file

@ -0,0 +1,11 @@
.PHONY: all
all: linkwave convert
linkwave: linkwave.scm paths.o
csc $^ -o $@
convert: convert.scm paths.o
csc $^ -o $@
paths.o: paths.scm
csc -c $^