summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--Biz/Bild/ShellHook.sh2
-rw-r--r--Biz/Cloud/Ports.nix2
-rw-r--r--Biz/Cloud/Web.nix6
-rw-r--r--Biz/Dev.nix10
-rw-r--r--Biz/Dragons.hs (renamed from Biz/Devalloc.hs)42
-rw-r--r--Biz/Dragons.nix (renamed from Biz/Devalloc.nix)22
-rw-r--r--Biz/Dragons/Analysis.hs (renamed from Biz/Devalloc/Analysis.hs)12
-rwxr-xr-xBiz/Dragons/get-examples.sh (renamed from Biz/Devalloc/get-examples.sh)2
-rwxr-xr-xBiz/Dragons/main.py (renamed from Biz/Devalloc/main.py)0
-rw-r--r--Biz/Dragons/pitch.md (renamed from Biz/Devalloc/pitch.md)10
-rw-r--r--Biz/Log.hs2
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 =
generated by cgit v1.2.3 (git 2.25.1) at 2024-11-01 07:19:40 +0000