Expose Workspace.currentlyOpenReferences

Author: hojberg

src/Code/FullyQualifiedNameSet.elm

@@ -1,15 +1,21 @@
 module Code.FullyQualifiedNameSet exposing
     ( FQNSet
     , empty
+    , fromList
+    , fromReference
+    , fromReferenceList
     , insert
     , member
     , remove
+    , singleton
     , size
     , toList
     , toggle
     )
 
+import Code.Definition.Reference as Reference exposing (Reference)
 import Code.FullyQualifiedName as FQN exposing (FQN)
+import Maybe.Extra as MaybeE
 import Set exposing (Set)
 import Set.Extra
 
@@ -32,6 +38,11 @@ empty =
     FQNSet Set.empty
 
 
+singleton : FQN -> FQNSet
+singleton fqn =
+    FQNSet (fqn |> FQN.toString |> Set.singleton)
+
+
 insert : FQN -> FQNSet -> FQNSet
 insert fqn (FQNSet set) =
     FQNSet (Set.insert (FQN.toString fqn) set)
@@ -47,6 +58,26 @@ member fqn (FQNSet set) =
     Set.member (FQN.toString fqn) set
 
 
+fromList : List FQN -> FQNSet
+fromList fqns =
+    FQNSet (fqns |> List.map FQN.toString |> Set.fromList)
+
+
+fromReference : Reference -> FQNSet
+fromReference ref =
+    Reference.fqn ref
+        |> Maybe.map singleton
+        |> Maybe.withDefault empty
+
+
+fromReferenceList : List Reference -> FQNSet
+fromReferenceList refs =
+    refs
+        |> List.map Reference.fqn
+        |> MaybeE.values
+        |> fromList
+
+
 toList : FQNSet -> List FQN
 toList (FQNSet set) =
     set

src/Code/Workspace.elm

@@ -2,6 +2,7 @@ module Code.Workspace exposing
     ( Model
     , Msg
     , OutMsg(..)
+    , currentlyOpenReferences
     , init
     , open
     , replaceWorkspaceItemReferencesWithHashOnly
@@ -576,6 +577,15 @@ handleKeyboardShortcut model shortcut =
 
 
 
+-- HELPERS
+
+
+currentlyOpenReferences : Model -> List Reference
+currentlyOpenReferences model =
+    WorkspaceItems.references model.workspaceItems
+
+
+
 -- EFFECTS