Rename Devalloc to Dragons

11 files changed, 55 insertions, 55 deletions

diff --git a/Biz/Bild/ShellHook.sh b/Biz/Bild/ShellHook.sh
index 59786e4..11954a7 100644
--- a/Biz/Bild/ShellHook.sh
+++ b/Biz/Bild/ShellHook.sh
@@ -44,7 +44,7 @@ function pie() {
 function run-sentry() {
   urls=(
     http://que.run
-    https://devalloc.io
+    https://dragons.dev
     https://simatime.com
     https://tv.simatime.com
     https://bsima.me
diff --git a/Biz/Cloud/Ports.nix b/Biz/Cloud/Ports.nix
index 435a0b6..636c797 100644
--- a/Biz/Cloud/Ports.nix
+++ b/Biz/Cloud/Ports.nix
@@ -3,7 +3,7 @@
   bitcoind = 8333;
   dandel-rovbur = 8080;
   delugeWeb = 8112;
-  devalloc = 8095;
+  dragons = 8095;
   et = 2022;
   gemini = 1965;
   git = 9418;
diff --git a/Biz/Cloud/Web.nix b/Biz/Cloud/Web.nix
index 5a14fb4..853c967 100644
--- a/Biz/Cloud/Web.nix
+++ b/Biz/Cloud/Web.nix
@@ -118,8 +118,8 @@ in
           useACMEHost = rootDomain;
         };
 
-        "devalloc.io" = {
-          locations."/".proxyPass = "http://${ports.bensIp}:${toString ports.devalloc}";
+        "dragons.dev" = {
+          locations."/".proxyPass = "http://${ports.bensIp}:${toString ports.dragons}";
           forceSSL = true;
           useACMEHost = rootDomain;
         };
@@ -166,7 +166,7 @@ in
   # This must contain all of the other domains we host
   security.acme.certs.${rootDomain}.extraDomainNames = [
     "bsima.me" "www.bsima.me"
-    "devalloc.io"
+    "dragons.dev"
   ] ++ map (sub: "${sub}.${rootDomain}") [
     "tv"
     "matrix"
diff --git a/Biz/Dev.nix b/Biz/Dev.nix
index 837ffaf..0f9b07c 100644
--- a/Biz/Dev.nix
+++ b/Biz/Dev.nix
@@ -10,17 +10,17 @@ bild.os {
     ./Dev/Configuration.nix
     ./Dev/Hardware.nix
     ./Dev/Hoogle.nix
-    ./Devalloc.nix
+    ./Dragons.nix
     # ./Dev/Guix.nix # I need to package a bunch of guile libs first
   ];
   networking.hostName = "lithium";
   networking.domain = "dev.simatime.com";
-  services.devalloc = {
+  services.dragons = {
     enable = true;
     port = 8095;
-    package = bild.ghc ./Devalloc.hs;
-    keep = "/var/devalloc/keep";
-    depo = "/var/devalloc/depo";
+    package = bild.ghc ./Dragons.hs;
+    keep = "/var/dragons/keep";
+    depo = "/var/dragons/depo";
   };
 }
 
diff --git a/Biz/Devalloc.hs b/Biz/Dragons.hs
index 998260e..6cb5fed 100644
--- a/Biz/Devalloc.hs
+++ b/Biz/Dragons.hs
@@ -22,9 +22,9 @@
 
 -- Developer allocation
 --
--- : out devalloc
+-- : out dragons
 -- : sys cmark
-module Biz.Devalloc
+module Biz.Dragons
   ( main,
     test,
   )
@@ -34,8 +34,8 @@ import Alpha hiding (rem, (<.>))
 import qualified Biz.App as App
 import qualified Biz.Auth as Auth
 import qualified Biz.Cli as Cli
-import Biz.Devalloc.Analysis (Analysis (..), Commit (..))
-import qualified Biz.Devalloc.Analysis as Analysis
+import Biz.Dragons.Analysis (Analysis (..), Commit (..))
+import qualified Biz.Dragons.Analysis as Analysis
 import qualified Biz.Id as Id
 import qualified Biz.Log as Log
 import qualified Biz.Look
@@ -99,8 +99,8 @@ import qualified Web.FormUrlEncoded as Web
 -- don't, there will be a runtime exception when you try to start the new
 -- service. I'm not sure how to guard against this, except maybe run a test
 -- deployment by copying a database backup locally, or something:
---     rm -rf _/var/devalloc
---     rsync -avz /var/devalloc/ _/var
+--     rm -rf _/var/dragons
+--     rsync -avz /var/dragons/ _/var
 
 newtype UserEmail = UserEmail {unUserEmail :: Maybe Text}
   deriving (Eq, Ord, Data, Typeable, Generic, Show)
@@ -670,11 +670,11 @@ main = Cli.main <| Cli.Plan help move test tidy
 help :: Cli.Docopt
 help =
   [Cli.docopt|
-devalloc
+dragons
 
 Usage:
-  devalloc [--quiet]
-  devalloc test
+  dragons [--quiet]
+  dragons test
 |]
 
 move :: Cli.Arguments -> IO ()
@@ -692,7 +692,7 @@ startup quiet = do
   jwk <- Auth.generateKey
   let URL url = homeExample cfg
   unless quiet <| do
-    Log.info ["boot", "devalloc"] >> Log.br
+    Log.info ["boot", "dragons"] >> Log.br
     Log.info ["boot", "area", show <| area cfg] >> Log.br
     Log.info ["boot", "port", show <| port cfg] >> Log.br
     Log.info ["boot", "depo", Text.pack <| depo cfg] >> Log.br
@@ -734,7 +734,7 @@ testCookieSettings =
 test :: Test.Tree
 test =
   Test.group
-    "Biz.Devalloc"
+    "Biz.Dragons"
     [ test_spliceCreds,
       Test.with
         (startup True)
@@ -777,8 +777,8 @@ instance Envy.DefConfig Config where
   defConfig =
     Config
       { port = 8005,
-        depo = "_/var/devalloc/depo",
-        keep = "_/var/devalloc/keep",
+        depo = "_/var/dragons/depo",
+        keep = "_/var/dragons/keep",
         area = Test,
         tokn = mempty,
         homeExample = URL "https://github.com/github/training-kit"
@@ -794,7 +794,7 @@ instance (Lucid.ToHtml a, App.HasCss a) => Lucid.ToHtml (App.Html a) where
   toHtml (App.Html x) =
     Lucid.doctypehtml_ <| do
       Lucid.head_ <| do
-        Lucid.title_ "Devalloc.io :: Know your codebase, know your team."
+        Lucid.title_ "Dragons.dev :: Know your codebase, know your team."
         Lucid.meta_
           [ Lucid.name_ "description",
             Lucid.content_ "Know your codebase, know your team."
@@ -1226,15 +1226,15 @@ instance Lucid.ToHtml Home where
       section <| do
         h1 "Know your codebase."
         h1 "Know your team."
-        p "Devalloc analyzes your codebase trends, finds patterns in how your developers work, and protects against tech debt."
-        p "Just hook it up to your CI system - Devalloc warns you when it finds a problem."
+        p "Dragons analyzes your codebase trends, finds patterns in how your developers work, and protects against tech debt."
+        p "Just hook it up to your CI system - Dragons warns you when it finds a problem."
         Lucid.toHtml <| tryButton oAuthArgs "Give it a try with GitHub" mempty
       section <| do
         h2 "Identify blackholes in your codebase"
         p
           "What if none of your active employees have touched some part of the codebase? \
           \ This happens too often with legacy code, and then it turns into a huge source of tech debt. \
-          \ Devalloc finds these \"blackholes\" and warns you about them so you can be proactive in eliminating tech debt."
+          \ Dragons finds these \"blackholes\" and warns you about them so you can be proactive in eliminating tech debt."
       section <| do
         h2 "Find developer hotspots"
         p
@@ -1250,14 +1250,14 @@ instance Lucid.ToHtml Home where
           analysis
       section <| do
         h2 "Protect against lost knowledge"
-        p "Not everyone can know every part of a codebase. By finding pieces of code that only 1 or 2 people have touched, devalloc identifes siloed knowledge. This allows you to protect against the risk of this knowledge leaving the company if an employee leaves."
+        p "Not everyone can know every part of a codebase. By finding pieces of code that only 1 or 2 people have touched, dragons identifes siloed knowledge. This allows you to protect against the risk of this knowledge leaving the company if an employee leaves."
       section <| do
         h2 "Don't just measure code coverage - also know your dev coverage"
         p "No matter how smart your employees are, if you are under- or over-utilizing your developers then you will never get optimal performance from your team."
         p "Know how your devs work best: which ones have depth of knowledge, and which ones have breadth?"
       section <| do
         h2 "See how your teams *actually* organize themselves with cluster analysis"
-        p "Does your team feel splintered or not cohesive? Which developers work best together? Devalloc analyzes the collaboration patterns between devs and helps you form optimal pairings and teams based on shared code and mindspace."
+        p "Does your team feel splintered or not cohesive? Which developers work best together? Dragons analyzes the collaboration patterns between devs and helps you form optimal pairings and teams based on shared code and mindspace."
       section <| do
         h1 <| "Ready to get going?"
         Lucid.toHtml
@@ -1441,7 +1441,7 @@ header :: Monad m => Maybe User -> Lucid.HtmlT m ()
 header muser =
   Lucid.header_ <| do
     Lucid.nav_ <| do
-      a "Devalloc" <| fieldLink home
+      a "Dragons" <| fieldLink home
       case muser of
         Nothing ->
           Lucid.ul_ <| do
@@ -1459,7 +1459,7 @@ header muser =
 footer :: Monad m => Lucid.HtmlT m ()
 footer =
   Lucid.footer_ <| do
-    Lucid.p_ <| Lucid.i_ "Copyright ©2020-2021 Devalloc.io"
+    Lucid.p_ <| Lucid.i_ "Copyright ©2020-2021 Dragons.dev"
 
 -- * analysis
 
diff --git a/Biz/Devalloc.nix b/Biz/Dragons.nix
index a1c9bcf..6473232 100644
--- a/Biz/Devalloc.nix
+++ b/Biz/Dragons.nix
@@ -6,36 +6,36 @@
 }:
 
 let
-  cfg = config.services.devalloc;
+  cfg = config.services.dragons;
 in
 {
-  options.services.devalloc = {
-    enable = lib.mkEnableOption "Enable the devalloc service";
+  options.services.dragons = {
+    enable = lib.mkEnableOption "Enable the dragons service";
     port = lib.mkOption {
       type = lib.types.int;
       default = 3000;
       description = ''
-        The port on which devalloc will listen for
+        The port on which dragons will listen for
         incoming HTTP traffic.
       '';
     };
     keep = lib.mkOption {
       type = lib.types.path;
-      default = "/var/devalloc/keep";
+      default = "/var/dragons/keep";
       description = "Keep location";
     };
     depo = lib.mkOption {
       type = lib.types.path;
-      default = "/var/devalloc/depo";
+      default = "/var/dragons/depo";
       description = "depo location";
     };
     package = lib.mkOption {
       type = lib.types.package;
-      description = "devalloc package to use";
+      description = "dragons package to use";
     };
   };
   config = lib.mkIf cfg.enable {
-    systemd.services.devalloc = {
+    systemd.services.dragons = {
       path = [ cfg.package pkgs.git ];
       wantedBy = [ "multi-user.target" ];
       preStart = ''
@@ -43,10 +43,10 @@ in
         mkdir -p ${cfg.depo}
       '';
       script = ''
-        ${cfg.package}/bin/devalloc
+        ${cfg.package}/bin/dragons
       '';
       description = ''
-        Devalloc
+        Dragons
       '';
       serviceConfig = {
         Environment = [
@@ -55,7 +55,7 @@ in
           "DEPO=${cfg.depo}"
           "KEEP=${cfg.keep}"
         ];
-        EnvironmentFile="/run/devalloc/env";
+        EnvironmentFile="/run/dragons/env";
         KillSignal = "INT";
         Type = "simple";
         Restart = "on-abort";
diff --git a/Biz/Devalloc/Analysis.hs b/Biz/Dragons/Analysis.hs
index 4b1f297..4a1421c 100644
--- a/Biz/Devalloc/Analysis.hs
+++ b/Biz/Dragons/Analysis.hs
@@ -6,8 +6,8 @@
 {-# LANGUAGE TupleSections #-}
 {-# LANGUAGE NoImplicitPrelude #-}
 
--- : out devalloc-analyze
-module Biz.Devalloc.Analysis
+-- : out dragons-analyze
+module Biz.Dragons.Analysis
   ( Analysis (..),
     Commit (..),
     run,
@@ -53,16 +53,16 @@ tidy :: cfg -> IO ()
 tidy _ = pure ()
 
 test :: Test.Tree
-test = Test.group "Biz.Devalloc.Analysis" [test_calculateScore]
+test = Test.group "Biz.Dragons.Analysis" [test_calculateScore]
 
 help :: Cli.Docopt
 help =
   [Cli.docopt|
-devalloc-analyze
+dragons-analyze
 
 Usage:
-  devalloc-analyze test
-  devalloc-analyze [--author=<email>]... <git-dir>
+  dragons-analyze test
+  dragons-analyze [--author=<email>]... <git-dir>
 
 Options:
   -a, --author  List of active authors' emails.
diff --git a/Biz/Devalloc/get-examples.sh b/Biz/Dragons/get-examples.sh
index 2e0647b..a35a282 100755
--- a/Biz/Devalloc/get-examples.sh
+++ b/Biz/Dragons/get-examples.sh
@@ -6,7 +6,7 @@ then
     exit 1
 fi
 cookie="$1"
-curl 'https://devalloc.io/analysis?user=github&repo=training-kit' \
+curl 'https://dragons.dev/analysis?user=github&repo=training-kit' \
     -X POST \
     -H 'Content-Type: application/x-www-form-urlencoded' \
     -H "Cookie: JWT-Cookie=$cookie" \
diff --git a/Biz/Devalloc/main.py b/Biz/Dragons/main.py
index bb10441..bb10441 100755
--- a/Biz/Devalloc/main.py
+++ b/Biz/Dragons/main.py
diff --git a/Biz/Devalloc/pitch.md b/Biz/Dragons/pitch.md
index cfc0b23..a4d4ffa 100644
--- a/Biz/Devalloc/pitch.md
+++ b/Biz/Dragons/pitch.md
@@ -1,6 +1,6 @@
-# Devalloc
+# Dragons
 
-Devalloc analyzes your codebase trends, finds patterns in how your developers
+Dragons analyzes your codebase trends, finds patterns in how your developers
 work, and protects against tech debt.
 
 Just hook it up to your CI system - it will warn you when it finds a problem.
@@ -9,13 +9,13 @@ Just hook it up to your CI system - it will warn you when it finds a problem.
 
 What if none of your active employees have touched some part of the codebase?
 This happens too often with legacy code, and then it turns into a huge source of
-tech debt. Devalloc finds these "blackholes" and warns you about them so you
+tech debt. Dragons finds these "blackholes" and warns you about them so you
 can be proactive in eliminating tech debt.
 
 ## Protect against lost knowledge
 
 Not everyone can know every part of a codebase. By finding pieces of code
-that only 1 or 2 people have touched, devalloc identifes siloed knowledge. This
+that only 1 or 2 people have touched, dragons identifes siloed knowledge. This
 allows you to protect against the risk of this knowledge leaving the company if
 an employee leaves.
 
@@ -34,7 +34,7 @@ developers then you will never get optimal performance from your team.
 ## See how your teams *actually* organize themselves with cluster analysis
 
 Does your team feel splintered or not cohesive? Which developers work best
-together? Devalloc analyzes the collaboration patterns between devs and helps
+together? Dragons analyzes the collaboration patterns between devs and helps
 you form optimal pairings and teams based on shared code and mindspace.
 
 (Paid only)
diff --git a/Biz/Log.hs b/Biz/Log.hs
index 9304cf7..c74d297 100644
--- a/Biz/Log.hs
+++ b/Biz/Log.hs
@@ -32,7 +32,7 @@ import System.IO.Unsafe (unsafePerformIO)
 
 data Lvl = Good | Pass | Info | Warn | Fail | Mark
 
--- | Get the environment. This should probably return 'Biz.Devalloc.Area'
+-- | Get the environment. This should probably return 'Biz.Dragons.Area'
 -- instead of 'String'.
 area :: String
 area =