initial commit
This commit is contained in:
commit
e391cbe347
5 changed files with 39 additions and 0 deletions
3
.gitmodules
vendored
Normal file
3
.gitmodules
vendored
Normal file
|
@ -0,0 +1,3 @@
|
|||
[submodule "guile-mastodon"]
|
||||
path = guile-mastodon
|
||||
url = git@codeberg.org:snamellit/Guile-Mastodon.git
|
11
README.md
Normal file
11
README.md
Normal file
|
@ -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)
|
||||
|
1
guile-mastodon
Submodule
1
guile-mastodon
Submodule
|
@ -0,0 +1 @@
|
|||
Subproject commit dec71189560e9cd40b5a421a8f0ae26f9996036f
|
15
hello.scm
Normal file
15
hello.scm
Normal file
|
@ -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))
|
||||
)
|
9
manifest.scm
Normal file
9
manifest.scm
Normal file
|
@ -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"))
|
Loading…
Add table
Reference in a new issue