Merge pull request #237 from cdepillabout/allow-multiple-wins

Small cleanup

.github/workflows/ci.yml

@@ -147,20 +147,25 @@ jobs:
 
       - uses: DeterminateSystems/magic-nix-cache-action@v2
 
-      # TODO: This cache actually needs to be keyed on the hash of the
+      # TODO: These caches actually needs to be keyed on the hash of the
       # ./nix-helpers/simple-cabal-shell.nix derivation.  If that derivation
       # changes, then we really, really should not reuse the same
-      # ~/.cabal/store directory.
+      # ~/.cabal/store directory (since there is the possibility of getting
+      # into a cabal hell, where Haskell libraries in the Cabal store are linked to
+      # different, incompatible system libraries).
       #
       # It is possible to get the hash of this derivation with a command like:
       #
       # $ nix eval --impure --raw --expr 'with (import <nixpkgs> {}).lib; let simpleCabalShell = import ./.nix-helpers/simple-cabal-shell.nix {}; in builtins.elemAt (splitString "-" (removePrefix (builtins.storeDir + "/") simpleCabalShell)) 0'
       #
       # Just need to load this into a variable, and throw it in the following key name
       - uses: actions/cache@v3
-        name: Cache cabal-store
+        name: Cache cabal store
         with:
-          path: ~/.config/cabal/store
+          path: |
+            ~/.cabal/store
+            ~/.config/cabal/store
+            ~/.local/state/cabal/store
           key: nix-simple-cabal-shell
 
       - name: cabal update

.nix-helpers/simple-cabal-shell.nix

@@ -120,5 +120,6 @@ pkgs.mkShell {
     pkgs.xorg.libXdmcp
     pkgs.xorg.libxcb
     pkgs.xorg.libXtst
+    pkgs.zlib
   ];
 }

src/Termonad/App.hs

@@ -6,7 +6,6 @@ import Termonad.Prelude
 
 import Config.Dyre (wrapMain, newParams)
 import Control.Lens ((^.), (^..), over, set, view, ix)
-import Control.Monad.Fail (fail)
 import Data.FileEmbed (embedFile)
 import Data.FocusList (focusList, moveFromToFL, updateFocusFL)
 import qualified Data.List as List

src/Termonad/Config/Colour.hs

@@ -87,7 +87,7 @@ module Termonad.Config.Colour
     -- $setup
   ) where
 
-import Termonad.Prelude hiding ((\\), index)
+import Termonad.Prelude
 
 import Control.Lens ((%~), makeLensesFor)
 import Data.Colour
@@ -124,16 +124,14 @@ import GI.Vte
   , terminalSetColorHighlight
   , terminalSetColorHighlightForeground
   )
-import Text.Printf (printf)
-import Text.Show (showString)
-
 import Termonad.Lenses (lensCreateTermHook, lensHooks)
 import Termonad.Types
   ( Option(Unset)
   , TMConfig
   , TMState
   , whenSet
   )
+import Text.Printf (printf)
 
 -- $setup
 -- >>> import Data.Colour.Names (green, red)

src/Termonad/Gtk.hs

@@ -17,7 +17,6 @@ module Termonad.Gtk where
 
 import Termonad.Prelude
 
-import Control.Monad.Fail (MonadFail, fail)
 import Data.GI.Base (ManagedPtr, withManagedPtr)
 import Data.Text (unpack)
 import GHC.Stack (HasCallStack)

src/Termonad/Term.hs

@@ -140,15 +140,23 @@ import Termonad.Types
   , TMState
   , TMState'(TMState, tmStateConfig, tmStateFontDesc)
   , TMTerm
-  , TMWindow
+  , TMWindowId
   , assertInvariantTMState
   , createTMNotebookTab
+  , getNotebookFromTMState
+  , getTMNotebookFromTMState
+  , getTMNotebookFromTMState'
+  , getTMWindowFromTMState
+  , getTMWindowFromWins
   , newTMTerm
   , pid
   , tmNotebook
   , tmNotebookTabTerm
   , tmNotebookTabTermContainer
-  , tmNotebookTabs, TMWindowId, tmStateWindows, getTMWindowFromWins, tmWindowNotebook, getTMWindowFromTMState, getNotebookFromTMState, getTMNotebookFromTMState, getTMNotebookFromTMState', tmWindowAppWin
+  , tmNotebookTabs
+  , tmStateWindows
+  , tmWindowAppWin
+  , tmWindowNotebook
   )
 
 focusTerm :: Int -> TMState -> TMWindowId -> IO ()

src/Termonad/Types.hs

@@ -5,7 +5,6 @@ module Termonad.Types where
 import Termonad.Prelude
 
 import Control.Lens (ifoldMap)
-import Control.Monad.Fail (fail)
 import Data.FocusList (FocusList, emptyFL, getFocusItemFL, lengthFL)
 import Data.Foldable (toList)
 import Data.Unique (Unique, hashUnique, newUnique)
@@ -32,7 +31,6 @@ import GI.Vte (Terminal, CursorBlinkMode(..))
 import Termonad.Gtk (widgetEq)
 import Termonad.IdMap (IdMap, IdMapKey, singletonIdMap, lookupIdMap)
 import Text.Pretty.Simple (pPrint)
-import Text.Show (ShowS, showParen, showString)
 
 -- | A wrapper around a VTE 'Terminal'.  This also stores the process ID of the
 -- process running on this terminal, as well as a 'Unique' that can be used for