diff options
Diffstat (limited to '')
-rw-r--r-- | flake.nix | 2 | ||||
-rw-r--r-- | flora/services/nginx.nix | 11 | ||||
-rw-r--r-- | ilex/configuration.nix | 13 | ||||
-rw-r--r-- | pkgs/nomsring/.gitignore | 1 | ||||
-rw-r--r-- | pkgs/nomsring/Main.hs | 32 | ||||
-rw-r--r-- | pkgs/nomsring/default.nix | 12 | ||||
-rw-r--r-- | pkgs/nomsring/nomsring.cabal | 19 | ||||
-rw-r--r-- | pkgs/overlay.nix | 2 |
8 files changed, 90 insertions, 2 deletions
@@ -141,7 +141,7 @@ kijetesantakaluotokieni showrt isabelle-utils isabat travelynx crs-tracker crs-php bahnhof-name matrix-to hikari_unstable heartwood radicle-interface radicle-tui - inweb; + inweb nomsring; }; nixosModules = { glitchtip = import ./modules/glitchtip.nix; }; diff --git a/flora/services/nginx.nix b/flora/services/nginx.nix index 7c792ba..1d95255 100644 --- a/flora/services/nginx.nix +++ b/flora/services/nginx.nix @@ -20,5 +20,16 @@ forceSSL = true; locations."/".root = ../../pkgs/nomsing; }; + virtualHosts."webring.noms.ing" = { + enableACME = true; + forceSSL = true; + locations."~ (.*)".extraConfig = '' + fastcgi_pass unix:${config.services.fcgiwrap.socketAddress}; + include ${pkgs.nginx}/conf/fastcgi_params; + fastcgi_param SCRIPT_FILENAME ${lib.getExe pkgs.nomsring}; + fastcgi_param PATH_INFO $1; + ''; + }; }; + services.fcgiwrap.enable = true; } diff --git a/ilex/configuration.nix b/ilex/configuration.nix index e87af9a..0f0e528 100644 --- a/ilex/configuration.nix +++ b/ilex/configuration.nix @@ -83,6 +83,19 @@ # }; + # for testing nomsring + # services.fcgiwrap.enable = true; + # services.nginx = { + # enable = true; + # virtualHosts.default = { + # locations."~ (.*)".extraConfig = '' + # fastcgi_pass unix:${config.services.fcgiwrap.socketAddress}; + # include ${pkgs.nginx}/conf/fastcgi_params; + # fastcgi_param SCRIPT_FILENAME /tmp/dingsda; + # fastcgi_param PATH_INFO $1; + # ''; + # }; + # }; services.tlp = { enable = true; settings = { diff --git a/pkgs/nomsring/.gitignore b/pkgs/nomsring/.gitignore new file mode 100644 index 0000000..b5e3679 --- /dev/null +++ b/pkgs/nomsring/.gitignore @@ -0,0 +1 @@ +dist-newstyle/* diff --git a/pkgs/nomsring/Main.hs b/pkgs/nomsring/Main.hs new file mode 100644 index 0000000..5c70491 --- /dev/null +++ b/pkgs/nomsring/Main.hs @@ -0,0 +1,32 @@ +module Main where + +import Network.CGI (CGIResult, runCGI, getInput, output, redirect, pathInfo, CGI, outputNotFound, liftIO) +import Data.CircularList (CList, fromList, rotR, rotateTo, focus, rotL) +import Data.Maybe(fromJust, fromMaybe) +import Data.Functor ((<&>)) + +webring :: CList String +webring = fromList + [ "stuebinm.eu" + , "nwex.de" + ] + +main :: IO () +main = runCGI $ do + path <- pathInfo + case path of + "/" -> output "nomsable websites" + "/next" -> rotate True + "/previous" -> rotate False + _ -> outputNotFound path + +rotate :: Bool -> CGI CGIResult +rotate backwards = do + from <- getInput "from" <&> fromMaybe (focus' webring) + case rotateTo from webring of + Nothing -> redirect ("https://" <> focus' webring) + Just ring -> redirect ("https://" <> focus' (step ring)) + where step = if backwards then rotL else rotR + +focus' :: CList c -> c +focus' = fromJust . focus diff --git a/pkgs/nomsring/default.nix b/pkgs/nomsring/default.nix new file mode 100644 index 0000000..c7ad358 --- /dev/null +++ b/pkgs/nomsring/default.nix @@ -0,0 +1,12 @@ +{ mkDerivation, base, cgi, data-clist, lib }: +mkDerivation { + pname = "nomsring"; + version = "0.1.0.0"; + src = ./.; + isLibrary = false; + isExecutable = true; + executableHaskellDepends = [ base cgi data-clist ]; + description = "noms noms"; + license = lib.licenses.bsd3; + mainProgram = "nomsring"; +} diff --git a/pkgs/nomsring/nomsring.cabal b/pkgs/nomsring/nomsring.cabal new file mode 100644 index 0000000..0ee04a3 --- /dev/null +++ b/pkgs/nomsring/nomsring.cabal @@ -0,0 +1,19 @@ +cabal-version: 3.0 +name: nomsring +version: 0.1.0.0 +synopsis: noms noms +description: a webring for nomsable websites +license: BSD-3-Clause +author: stuebinm +maintainer: stuebinm@disroot.org + +common warnings + ghc-options: -Wall + +executable nomsring + import: warnings + main-is: Main.hs + build-depends: base ^>=4.17.2.1 + , cgi ^>=3001.5 + , data-clist ^>= 0.2 + default-language: GHC2021 diff --git a/pkgs/overlay.nix b/pkgs/overlay.nix index 5da88f1..671a7c2 100644 --- a/pkgs/overlay.nix +++ b/pkgs/overlay.nix @@ -116,7 +116,7 @@ in in haskellPkgs.callPackage pkg {}; - + nomsring = super.haskellPackages.callPackage ./nomsring {}; #### sporadically maintained / updated #### |