initial commit

.gitmodules

@@ -0,0 +1,3 @@
+[submodule "guile-mastodon"]
+	path = guile-mastodon
+	url = git@codeberg.org:snamellit/Guile-Mastodon.git

README.md

@@ -0,0 +1,11 @@
+# Mastodon Notifications
+
+Cuirass can send notification of new packages in channels via
+mastodon. This could be a nice way to deploy packages on hosting
+servers.
+
+## Resources
+
+-  [Guile-Mastodon repo on
+   Codeberg](https://codeberg.org/tomenzgg/Guile-Mastodon)
+

guile-mastodon

@@ -0,0 +1 @@
+Subproject commit dec71189560e9cd40b5a421a8f0ae26f9996036f

hello.scm

@@ -0,0 +1,15 @@
+(use-modules (elefan auth)
+	     (json))
+
+(let ((app (masto-app-instantiate "https://social.snamellit.com" #:website "https://social.snamellit.com"
+				  #:id (getenv "MASTODON_ID")
+				  #:secret (getenv "MASTODON_SECRET")
+				  #:key (getenv "MASTODON_KEY")))
+      
+      (username (getenv "MASTODON_USERNAME"))
+      (password (getenv "MASTODON_PASSWORD"))
+      )
+  (format #t "connecting to ~a with username ~a and password ~a~%" "https://social.snamellit.com" username password)
+  (masto-app-set-token-via-user-cred! app username password)
+  (format #t "App token: ~a~%" (masto-app-token app))
+  )

manifest.scm

@@ -0,0 +1,9 @@
+;; What follows is a "manifest" equivalent to the command line you gave.
+;; You can store it in a file that you may then pass to any 'guix' command
+;; that accepts a '--manifest' (or '-m') option.
+
+(specifications->manifest
+ (list
+  "guile"
+  "guile-gnutls"
+  "guile-json"))