From 15ae3f241fa84ce603b4f0ba96d5210fe74068ec Mon Sep 17 00:00:00 2001
From: Simon Cambier <simon.cambier@protonmail.com>
Date: Sun, 23 Jun 2024 22:31:47 +0200
Subject: [PATCH] Added server url in main args

---
 README.md  |  6 ++++--
 main.janet | 14 ++++++++++----
 2 files changed, 14 insertions(+), 6 deletions(-)

diff --git a/README.md b/README.md
index 0522b23..91ae031 100644
--- a/README.md
+++ b/README.md
@@ -23,9 +23,11 @@ Most of these values will be in the form of `key:: value` for easy integration w
 - Run the program
 
 ```sh
-$ ./mastodon-bookmarks YOUR_APP_TOKEN
+$ ./mastodon-bookmarks YOUR_INSTANCE YOUR_APP_TOKEN
 ```
 
+The `YOUR_INSTANCE` value must not have trailing slash (e.g: `https://hachyderm.io`)
+
 ## Development
 
 - Clone this repository
@@ -33,7 +35,7 @@ $ ./mastodon-bookmarks YOUR_APP_TOKEN
 - `jpm deps --local`
 
 ```sh
-$ janet main.janet YOUR_APP_TOKEN
+$ janet main.janet YOUR_INSTANCE YOUR_APP_TOKEN
 ```
 
 ## Build binary
diff --git a/main.janet b/main.janet
index 4f20510..bc4cd81 100644
--- a/main.janet
+++ b/main.janet
@@ -2,9 +2,11 @@
 (import spork/json :as json)
 (import ./utils :as utils)
 
+(var server "")
 (var apptoken "")
 (var dbg false)
-(def urls @["https://hachyderm.io/api/v1/bookmarks"])
+
+(def urls @[])
 (def save-path "./bookmarks/")
 (def done @[])
 
@@ -65,7 +67,7 @@
       (do
         (print "Done")
         (os/exit 0)))
-    
+
     (print (string "Downloading " url))
     (def response
       (r/get url {"Authorization" (string "Bearer " apptoken)} {}))
@@ -96,8 +98,12 @@
 
 
 (defn main [& args]
-  (set apptoken (or (os/getenv "TOKEN") (args 1)))
-  (set dbg (get args 2))
+  (set server (args 1))
+  (set apptoken (args 2))
+  (set dbg (get args 3))
+
+  (array/push urls (string server "/api/v1/bookmarks"))
+  
   (os/mkdir "./bookmarks")
   (os/mkdir "./bookmarks/attachments")
   (download-bookmarks))