Nix run working
This commit is contained in:
Mike Russo
parent
311cc30007
commit
2435821cab
3 changed files with 172 additions and 16 deletions
121
bot.lisp
121
bot.lisp
|
|
@ -1,7 +1,120 @@
|
|||
(in-package :cl-user)
|
||||
;; (defpackage :birthday-boy
|
||||
;; (:use :cl)
|
||||
;; (:export main*))
|
||||
;; (in-package :birthday-boy)
|
||||
(load (sb-ext:posix-getenv "ASDF"))
|
||||
(asdf:load-systems :dexador :cl-dotenv)
|
||||
;; (print (dex:get "https://duck.com"))
|
||||
(print (.env:load-env (merge-pathnames ".env")))
|
||||
(exit :code 0)
|
||||
(asdf:load-systems :dexador :local-time :jonathan)
|
||||
;;
|
||||
;; (.env:load-env (merge-pathnames ".env"))
|
||||
;; (ql:quickload '(:dexador :cl-dotenv :local-time :jonathan))
|
||||
|
||||
(defun now-string ()
|
||||
(local-time:format-timestring
|
||||
nil
|
||||
(local-time:now)
|
||||
:format
|
||||
local-time:+iso-8601-format+)) ;; 2008-03-01T19:42:34.608506+01:00
|
||||
|
||||
(defvar *txn-counter* 0)
|
||||
(defun make-txn-id ()
|
||||
(format nil "~A~A" (now-string) (incf *txn-counter*)))
|
||||
|
||||
(defun put-json-content (uri json-content)
|
||||
(dex:put uri
|
||||
:headers '((:content-type . "application/json"))
|
||||
:content (jojo:to-json json-content)))
|
||||
|
||||
|
||||
(defun put-json-content-auth (uri json-content)
|
||||
(dex:put uri
|
||||
:headers `((:|Authorization| . ,(format nil "Bearer ~A" (uiop:getenv "BOT_ACCESS_TOKEN")) )
|
||||
(:content-type . "application/json"))
|
||||
:content (jojo:to-json json-content)))
|
||||
|
||||
(defun post-json-content (uri json-content)
|
||||
(dex:post uri
|
||||
:headers '((:content-type . "application/json"))
|
||||
:content (jojo:to-json json-content)))
|
||||
(defun post-json-content-auth (uri json-content)
|
||||
(dex:post uri
|
||||
:headers `((:|Authorization| . ,(format nil "Bearer ~A" (uiop:getenv "BOT_ACCESS_TOKEN")) )
|
||||
(:content-type . "application/json"))
|
||||
:content (jojo:to-json json-content)))
|
||||
|
||||
|
||||
(defun make-homeserver-endpoint (endpoint)
|
||||
(format nil "~a~a" (uiop:getenv "HOMESERVER_URL") endpoint))
|
||||
|
||||
(defun get-access-token ()
|
||||
(let ((res
|
||||
(jojo:parse
|
||||
(post-json-content (make-homeserver-endpoint "/_matrix/client/v3/login" )
|
||||
(list :|identifier| (list :|type| "m.id.user" :|user| (uiop:getenv "BOT_NAME"))
|
||||
:|type| "m.login.password"
|
||||
:|password| (uiop:getenv "BOT_PW"))))))
|
||||
(values
|
||||
(getf res :|access_token|)
|
||||
(getf res :|device_id|))))
|
||||
|
||||
(defun message (msg &optional (room-id "GENERAL2_ROOM_ID"))
|
||||
(put-json-content-auth
|
||||
;; (format nil "https://matrix.groupchattt.page/_matrix/client/v3/rooms/~a/send/m.room.message/~a"
|
||||
;; (uiop:getenv room-id)
|
||||
;; (make-txn-id))
|
||||
(make-homeserver-endpoint (format nil "/_matrix/client/v3/rooms/~a/send/m.room.message/~a"
|
||||
(uiop:getenv room-id)
|
||||
(make-txn-id)))
|
||||
(list
|
||||
:|msgtype| "m.text"
|
||||
:|body| msg)))
|
||||
|
||||
|
||||
;; (defun request-join (room)
|
||||
;; (post-json-content-auth
|
||||
;; (make-homeserver-endpoint (format nil "/_matrix/client/v3/knock/~A" room))
|
||||
;; (list
|
||||
;; :|reason| "for birthday bot")))
|
||||
|
||||
(defvar *birthdays* '((:person "carl" :month 4 :day 13)
|
||||
(:person "noellie" :month 7 :day 15)
|
||||
(:person "joe" :month 9 :day 17)
|
||||
(:person "daniel" :month 7 :day 18)
|
||||
(:person "mike" :month 2 :day 13)
|
||||
(:person "David Tennant" :month 4 :day 18)
|
||||
(:person "famous actor Sean Bean" :month 4 :day 17)
|
||||
(:person "bwandice" :month 10 :day 15)))
|
||||
|
||||
|
||||
(defun is-today (tstamp)
|
||||
"Check just the day and month of today and tstamp and return true if its today"
|
||||
(let ((today (local-time:now)))
|
||||
(if (and (eql (local-time:timestamp-day today)
|
||||
(local-time:timestamp-day tstamp))
|
||||
(eql (local-time:timestamp-month today)
|
||||
(local-time:timestamp-month tstamp)))
|
||||
t
|
||||
nil)))
|
||||
|
||||
(defun is-today* (day month)
|
||||
(is-today (local-time:encode-timestamp 0 0 0 0 day month 1900)))
|
||||
|
||||
|
||||
(defun collect-bdays ()
|
||||
(loop for person in *birthdays*
|
||||
when (is-today* (getf person :day) (getf person :month))
|
||||
collect person))
|
||||
|
||||
|
||||
(defun make-bday-message (person)
|
||||
(format nil "Hey hey hey, its the birthday boy, and I am pleased to announce that it is ~A's today. Congratulation, I love you." person))
|
||||
|
||||
(defun main ()
|
||||
;; (.env:load-env env-file)
|
||||
(dolist (person (collect-bdays))
|
||||
(message (make-bday-message (getf person :person)) "ROOM_ID")))
|
||||
|
||||
(defun main* ()
|
||||
(unwind-protect (main)
|
||||
(sb-ext:exit :code 0)))
|
||||
|
||||
|
|
|
|||
63
flake.nix
63
flake.nix
|
|
@ -19,20 +19,59 @@
|
|||
];
|
||||
systems =
|
||||
[ "x86_64-linux" "aarch64-linux" "aarch64-darwin" "x86_64-darwin" ];
|
||||
perSystem = { config, self', inputs', pkgs, system, ... }: {
|
||||
# Per-system attributes can be defined here. The self' and inputs'
|
||||
# module parameters provide easy access to attributes of the same
|
||||
# system.
|
||||
perSystem = { config, self', inputs', pkgs, system, ... }:
|
||||
let
|
||||
sbcl' = pkgs.sbcl.withPackages
|
||||
(ps: with ps; [ dexador cl-dotenv jonathan local-time deploy ]);
|
||||
in {
|
||||
# Per-system attributes can be defined here. The self' and inputs'
|
||||
# module parameters provide easy access to attributes of the same
|
||||
# system.
|
||||
|
||||
# Equivalent to inputs'.nixpkgs.legacyPackages.hello;
|
||||
packages.default = pkgs.hello;
|
||||
devshells.default = {
|
||||
env = [ ];
|
||||
commands = [ ];
|
||||
packages = with pkgs;
|
||||
[ (sbcl.withPackages (p: [ p.dexador p.cl-dotenv ])) ];
|
||||
# Equivalent to inputs'.nixpkgs.legacyPackages.hello;
|
||||
packages.default = pkgs.hello;
|
||||
|
||||
packages.birthday-boy = pkgs.stdenv.mkDerivation {
|
||||
name = "birthday-boy";
|
||||
src = ./.;
|
||||
|
||||
nativeBuildInputs = with pkgs; [ openssl sbcl' ];
|
||||
dontStrip = true;
|
||||
|
||||
buildPhase = ''
|
||||
${sbcl'}/bin/sbcl --load ./bot.lisp \
|
||||
--eval '(sb-ext:save-lisp-and-die #P"birthday-boy" :toplevel #'"'"'main* :executable t)'
|
||||
'';
|
||||
|
||||
installPhase = ''
|
||||
mkdir -p $out/bin
|
||||
cp birthday-boy $out/bin/_birthday-boy
|
||||
chmod +x $out/bin/_birthday-boy
|
||||
|
||||
touch $out/bin/birthday-boy
|
||||
echo "#!/usr/bin/env sh" >> $out/bin/birthday-boy
|
||||
echo "env \$(grep -v '^#' \$1 | xargs -d '\n') LD_LIBRARY_PATH=\$LD_LIBRARY_PATH:${
|
||||
pkgs.lib.makeLibraryPath [ pkgs.openssl ]
|
||||
} $out/bin/_birthday-boy" >> $out/bin/birthday-boy
|
||||
|
||||
# cp run.sh $out/bin/birthday-boy
|
||||
chmod +x $out/bin/birthday-boy
|
||||
'';
|
||||
};
|
||||
apps.birthday-boy = {
|
||||
type = "app";
|
||||
program = "${self'.packages.birthday-boy}/bin/birthday-boy";
|
||||
};
|
||||
devshells.default = {
|
||||
env = [ ];
|
||||
commands = [ ];
|
||||
packages = with pkgs; [
|
||||
openssl
|
||||
(sbcl.withPackages
|
||||
(p: with p; [ dexador cl-dotenv jonathan local-time deploy ]))
|
||||
];
|
||||
};
|
||||
};
|
||||
};
|
||||
flake = {
|
||||
# The usual flake attributes can be defined here, including system-
|
||||
# agnostic ones like nixosModule and system-enumerating ones, although
|
||||
|
|
|
|||
4
run.sh
Executable file
4
run.sh
Executable file
|
|
@ -0,0 +1,4 @@
|
|||
#!/usr/bin/env sh
|
||||
|
||||
export $(grep -v '^#' ${1:-.env} | xargs -d '\n')
|
||||
$out/bin/_birthday-boy
|
||||
Loading…
Add table
Reference in a new issue