Some cleanup.

daemon.pl

@@ -44,10 +44,7 @@
 
 :- set_prolog_flag(verbose, silent).
 :- use_module(library(http/http_unix_daemon)).
-:- use_module(library(broadcast)).
 
 :- use_module(server, []).
-:- use_module(todo).
 
 :- initialization http_daemon.
-:- listen(http(pre_server_start), attach_todo_db).

server.pl

@@ -5,6 +5,8 @@
 :- use_module(library(http/thread_httpd)).
 :- use_module(library(http/http_dispatch)).
 :- use_module(library(settings)).
+:- use_module(library(broadcast)).
+
 :- use_module(todo).
 
 :- set_setting_default(http:cors, [*]).
@@ -14,12 +16,16 @@
 %
 %	Attach the TODO persistent store  and   start  the web-server on
 %	Port.
+%
+%	@see daemon.pl to start this file as a (Unix) service
 
 server :-
 	server(3030).
 server(Port) :-
-	attach_todo_db,
+	broadcast(http(pre_server_start)),
 	http_server(http_dispatch,
 		    [ port(Port),
 		      workers(16)
 		    ]).
+
+:- listen(http(pre_server_start), attach_todo_db(data)).

todo.pl

@@ -1,12 +1,13 @@
 :- module(todo,
-	  [ attach_todo_db/0
+	  [ attach_todo_db/1			% +Dir
 	  ]).
 :- use_module(library(http/http_dispatch)).
 :- use_module(library(http/http_json)).
 :- use_module(library(http/http_cors)).
 :- use_module(library(http/http_path)).
 :- use_module(library(option)).
 :- use_module(library(uuid)).
+:- use_module(library(filesex)).
 :- use_module(library(persistency)).
 
 :- http_handler(root(todo), todo, [prefix]).
@@ -150,5 +151,7 @@
 	     completed:boolean,
 	     order:integer).
 
-attach_todo_db :-
-	db_attach('todo.db', []).
+attach_todo_db(Dir) :-
+	make_directory_path(Dir),
+	directory_file_path(Dir, 'todo.db', DB),
+	db_attach(DB, []).