Update README.md

README.md

@@ -5,41 +5,48 @@ _A small Janet script to archive all your Mastodon bookmarks in Markdown files._
 Because Mastodon posts can disappear for a variety of reasons (deletion, defederation, server instance shutdown, ...), it is safer to archive your bookmarks.
 
 Each Markdown file will contain:
-- A link to the original post
-- The author's handle
-- The post's content in HTML
-- The media attachments locally downloaded
-- If available, the alt text for each media
+- [x] A link to the original post
+- [x] The author's handle
+- [x] The post's content in HTML
+- [x] The media attachments locally downloaded
+- [x] If available, the alt text for each media
+- [ ] The full thread, if applicable
+- [ ] The link card, if any
 
 Most of these values will be in the form of `key:: value` for easy integration with Obsidian's plugin Dataview. A sample script is available [here](./dataview-query.js)
 
-## Setup & Run
+## Build & Run
 
+### Pre-requirements
+
+```sh
+# Required by the httprequest dependency
+$ sudo apt install libcurl4-openssl-dev
+```
+
+- Clone this repository
+- Install Janet and jpm https://janet-lang.org/
 - Get an access token for your Mastodon account
 
 ![](image1.png)  
 ![](image2.png)
 
-- Run the program
+
+### Run
 
 ```sh
-$ ./mastodon-bookmarks YOUR_APP_TOKEN
+# Install dependencies locally with -l (--local)
+$ jpm deps -l
+# Tell jpm that our dependencies are local, before starting the script
+$ jpm -l janet main.janet YOUR_INSTANCE YOUR_APP_TOKEN
 ```
 
-## Development
+The `YOUR_INSTANCE` value **must not** have the trailing slash (e.g: `https://hachyderm.io`)
 
-- Clone this repository
-- Install Janet and jpm https://janet-lang.org/
-- `jpm deps --local`
+### Build for release
 
 ```sh
-$ janet main.janet YOUR_APP_TOKEN
-```
-
-## Build binary
-
-```sh
-$ jpm build
+$ jpm build -l
 ```
 
 ## LICENSE

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 @[])
 
@@ -13,20 +15,27 @@
   "Downloads the media from the item."
   (def files @[])
   (def media (item "media_attachments"))
-  (pp (item "media_attachments"))
+  (if dbg
+    (pp (item "media_attachments")))
   (each m media
     (def url (m "url"))
     (def folder (string save-path "attachments/"))
     (array/push files {:path (string "./attachments/" (utils/get-image url folder))
                        :description (m "description")}))
-  (pp files)
+  (if dbg (pp files))
   files)
 
 
 (defn write-markdown [item]
   (def files (download-media item))
   (def id (item "id"))
-  (def fout (file/open (string save-path id ".md") :w))
+  (def path (string save-path id ".md"))
+
+  (if (utils/exists? path)
+    (do
+      (print (string "Skipping " id))
+      (break)))
+  (def fout (file/open path :w))
 
   (def inline (string
                 "mastodon-url:: " (item "url") "  \n"
@@ -96,8 +105,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))

utils.janet

@@ -1,5 +1,10 @@
 (import httprequest :as r)
 
+(def exists? (fn [path]
+               "Returns whether a file exists at the specified path."
+               (def f (file/open path :r))
+               (if f (do (file/close f) true) false)))
+
 (defn get-image [url folder &named headers opts]
   "Download an image from a URL and save it to a file. Returns the path to the saved file."
   (default headers {})