Merge branch 'dnd_settings' into main

* dnd_settings:
  DndSettings: remove console log degugging
  DndSettings: update README
  DndSettings: update TODO
  DndSettings: elm-review
  DndSettings: use grab and grabbing cursors
  DndSettings: hide the board name that is being dragged
  DndSettings: show ghost image
  DndSettings: handle the board title dragging
  DndSettings: pass ElementDragged Msg to Settings page
  DndSettings: give the dragables ids
  DndSettings: add beacons to the view
  DndSettings: handle mouse down on board name

README.md

@@ -15,7 +15,8 @@ An [Obsidian](https://obsidian.md/) plugin to make working with tasks a pleasure
   - Tag based (uses `#tags` to define your boards).
 
 ## New
-- Board reordering - drag and drop the tab headers
+- Board reordering
+  - drag and drop tab headers or board names in the settings dialog
 - Improved styling of tab headers (consistent with obsidian)
 
 ![date based board screenshot](/images/dateBoard.png?raw=true)

TODO.md

@@ -1,7 +1,5 @@
-- enable reorder boards on settings page too
+- why isn't grab cursor working over "draggables"?
 - tidy typescript
-- tidy elm
-
 - can I animate tab moving so it isn't instantaneous?
 - touch events - iPad ??
 

src/DragAndDrop/DragData.elm

@@ -8,7 +8,6 @@ module DragAndDrop.DragData exposing
 import DragAndDrop.BeaconPosition as BeaconPosition exposing (BeaconPosition)
 import DragAndDrop.Coords as Coords exposing (Coords)
 import DragAndDrop.Rect as Rect exposing (Rect)
-import Json.Encode as JE
 import TsJson.Decode as TsDecode
 
 

src/DragAndDrop/DragTracker.elm

@@ -1,5 +1,6 @@
 module DragAndDrop.DragTracker exposing
     ( ClientData
+    , DomData
     , DragTracker(..)
     , dragType
     , init
@@ -9,9 +10,9 @@ module DragAndDrop.DragTracker exposing
     , waitForDrag
     )
 
-import DragAndDrop.Coords as Coords exposing (Coords)
+import DragAndDrop.Coords exposing (Coords)
 import DragAndDrop.DragData exposing (DragData)
-import DragAndDrop.Rect as Rect exposing (Rect)
+import DragAndDrop.Rect exposing (Rect)
 
 
 

src/Main.elm

@@ -162,8 +162,9 @@ update msg model =
             BoardPage.update (BoardPage.ElementDragged dragData) subModel
                 |> updateWith Boards GotBoardPageMsg
 
-        ( ElementDragged _, _ ) ->
-            ( model, Cmd.none )
+        ( ElementDragged dragData, Settings subModel ) ->
+            SettingsPage.update (SettingsPage.ElementDragged dragData) subModel
+                |> updateWith Settings GotSettingsPageMsg
 
         ( FilterCandidatesReceived filterCandidates, Settings subModel ) ->
             SettingsPage.update (SettingsPage.FilterCandidatesReceived filterCandidates) subModel