feat: add hover effect to all users

Author: FreekBes

public/css/clustermap.css

@@ -67,6 +67,7 @@ body {
 }
 
 .round-img {
+    position: relative;
     width: 60px;
     height: 60px;
     border-radius: 50%;
@@ -75,6 +76,12 @@ body {
     object-position: center;
     background: rgba(0, 0, 0, 0);
     border: 3px solid var(--active-color);
+    transition: transform 0.1s;
+}
+
+.round-img:hover {
+    z-index: 10;
+    transform: scale(1.5);
 }
 
 .round-img.session-exam {
@@ -94,7 +101,7 @@ body {
 .empty-exam-host {
     fill: var(--exam-inactive-color);
     color: var(--exam-inactive-color);
-    transform: scale(1.5);
+    transform: scale(1.3);
 }
 
 .empty-host-drag {
@@ -106,7 +113,7 @@ body {
 .dead-host {
     fill: var(--danger-color);
     color: var(--danger-color);
-    transform: scale(2);
+    transform: scale(1.5);
 }
 
 .download-button {

src/elm/clustermap/Main.elm

@@ -145,7 +145,7 @@ calcMapSettings window { class, orientation } =
         Phone ->
             case orientation of
                 Portrait ->
-                    Clustermap.MapSettings height width 40 12
+                    Clustermap.MapSettings height width 42 12
 
                 Landscape ->
                     Clustermap.MapSettings height width 26 8
@@ -161,18 +161,18 @@ calcMapSettings window { class, orientation } =
         Desktop ->
             case orientation of
                 Portrait ->
-                    Clustermap.MapSettings height width 45 15
+                    Clustermap.MapSettings height width 48 15
 
                 Landscape ->
-                    Clustermap.MapSettings height width 45 15
+                    Clustermap.MapSettings height width 48 15
 
         BigDesktop ->
             case orientation of
                 Portrait ->
-                    Clustermap.MapSettings height width 60 20
+                    Clustermap.MapSettings height width 55 20
 
                 Landscape ->
-                    Clustermap.MapSettings height width 60 20
+                    Clustermap.MapSettings height width 55 20
 
 
 update : Msg -> Model -> ( Model, Cmd Msg )