Recently Written · git

librivox

Automated youtube uploading of audiobooks

git clone https://github.com/equwal/librivox

Log | Files | Refs


commit daac8512608fc35aca4eb8b5bf82f89572d99b04
Spenser Truex <struex0@gmail.com>
2018-07-29 19:14:36 -0700

Packaging arranged

 librivox.asd      | 17 +++--------------
 src/librivox.lisp |  5 +----
 src/utils.lisp    |  6 +-----
 src/youtube.lisp  |  1 -
 4 files changed, 5 insertions(+), 24 deletions(-)
diff --git a/librivox.asd b/librivox.asd
index 8c6806e..0770788 100644
--- a/librivox.asd
+++ b/librivox.asd
@@ -1,17 +1,6 @@
 (asdf:defsystem :librivox
   :serial t
-  :depends-on (:drakma)
-  :pathname "src/"
+  :depends-on (:drakma :rss :youtube)
+  :description "Librivox auto downloader/youtube uploader."
   :components ((:file "utils")
-	       (:file "librivox")))
-(asdf:defsystem :youtube
-  :serial t
-  :depends-on (:drakma)
-  :pathname "src/"
-  :components ((:file "utils")
-	       (:file "youtube")))
-(asdf:defsystem :uploader
-  :serial t
-  :depends-on (:drakma :librivox)
-  :pathname "src/"
-  :components ((:file "uploader")))
+	       (:file "src/librivox")))
diff --git a/src/librivox.lisp b/src/librivox.lisp
index edd872c..5f3f857 100644
--- a/src/librivox.lisp
+++ b/src/librivox.lisp
@@ -1,6 +1,3 @@
 (defpackage :librivox
-  (:use :cl :cl-user)
-  ;(:export )
-  )
+  (:use :cl :drakma :utils))
 (in-package :librivox)
-(defun test (x) x)
diff --git a/src/utils.lisp b/src/utils.lisp
deleted file mode 100644
index 483aa1a..0000000
--- a/src/utils.lisp
+++ /dev/null
@@ -1,5 +0,0 @@
-(defpackage :utils
-  (:use :cl :cl-user)
-  ;(:export )
-  )
-(in-package :utils)
diff --git a/src/utils.lisp b/src/utils.lisp
new file mode 120000
index 0000000..5b43057
--- /dev/null
+++ b/src/utils.lisp
@@ -0,0 +1 @@
+utils.lisp
\ No newline at end of file
diff --git a/src/youtube.lisp b/src/youtube.lisp
deleted file mode 100644
index 975fbec..0000000
--- a/src/youtube.lisp
+++ /dev/null
@@ -1 +0,0 @@
-y