termonad 4.1.0.0 → 4.1.1.0

raw patch · 6 files changed

+41/−3 lines, 6 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

+ Termonad.Term: termNextPage :: TMState -> IO ()

+ Termonad.Term: termPrevPage :: TMState -> IO ()

- Termonad.Config.Colour: lensBackgroundColour :: forall c_a1f0F. Lens' (ColourConfig c_a1f0F) (Option c_a1f0F)

+ Termonad.Config.Colour: lensBackgroundColour :: forall c_a1f2j. Lens' (ColourConfig c_a1f2j) (Option c_a1f2j)

- Termonad.Config.Colour: lensCursorBgColour :: forall c_a1f0F. Lens' (ColourConfig c_a1f0F) (Option c_a1f0F)

+ Termonad.Config.Colour: lensCursorBgColour :: forall c_a1f2j. Lens' (ColourConfig c_a1f2j) (Option c_a1f2j)

- Termonad.Config.Colour: lensCursorFgColour :: forall c_a1f0F. Lens' (ColourConfig c_a1f0F) (Option c_a1f0F)

+ Termonad.Config.Colour: lensCursorFgColour :: forall c_a1f2j. Lens' (ColourConfig c_a1f2j) (Option c_a1f2j)

- Termonad.Config.Colour: lensForegroundColour :: forall c_a1f0F. Lens' (ColourConfig c_a1f0F) (Option c_a1f0F)

+ Termonad.Config.Colour: lensForegroundColour :: forall c_a1f2j. Lens' (ColourConfig c_a1f2j) (Option c_a1f2j)

- Termonad.Config.Colour: lensPalette :: forall c_a1f0F. Lens' (ColourConfig c_a1f0F) (Palette c_a1f0F)

+ Termonad.Config.Colour: lensPalette :: forall c_a1f2j. Lens' (ColourConfig c_a1f2j) (Palette c_a1f2j)

Files

CHANGELOG.md +8/−0
README.md +2/−1
src/Termonad/App.hs +16/−0
src/Termonad/Term.hs +12/−0
termonad.cabal +1/−1
test/readme/README.lhs +2/−1

CHANGELOG.md view

@@ -1,3 +1,11 @@+## 4.1.1.0++*   Add new shortcuts to switch to the next and previous tab:+    <kbd>Ctrl</kbd><kbd>PgDown</kbd> and <kbd>Ctrl</kbd><kbd>PgUp</kbd>.+    This works similar to gnome-terminal and xfce4-terminal.+    [#180](https://github.com/cdepillabout/termonad/pull/180).+    Thanks [@juliendehos](https://github.com/juliendehos)!+ ## 4.1.0.0  *   Add an option for enabling "bold is bright".  This forces colors from the

README.md view

@@ -297,6 +297,8 @@ | <kbd>Ctrl</kbd> <kbd>Shift</kbd> <kbd>i</kbd> | Find the regex **below** the current position. | | <kbd>Ctrl</kbd> <kbd>+</kbd> | Increase font size. | | <kbd>Ctrl</kbd> <kbd>-</kbd> | Decrease font size. |+| <kbd>Ctrl</kbd> <kbd>PgUp</kbd> | Switch to previous tab. |+| <kbd>Ctrl</kbd> <kbd>PgDown</kbd> | Switch to next tab. | | <kbd>Alt</kbd> <kbd>(number key)</kbd> | Switch to tab `number`.  For example, <kbd>Alt</kbd> <kbd>2</kbd> switches to tab 2. |  ### Configuring Termonad@@ -507,4 +509,3 @@ ## Maintainers  - [cdepillabout](https://github.com/cdepillabout)-- [LSLeary](https://github.com/LSLeary)

src/Termonad/App.hs view

@@ -68,6 +68,8 @@   , labelNew   , notebookGetNPages   , notebookNew+  , notebookNextPage+  , notebookPrevPage   , notebookSetShowBorder   , onEntryActivate   , onNotebookPageRemoved@@ -153,6 +155,8 @@ import Termonad.Term   ( createTerm   , relabelTabs+  , termNextPage+  , termPrevPage   , termExitFocused   , setShowTabs   , showScrollbarToPolicy@@ -428,6 +432,18 @@   void $ onSimpleActionActivate newTabAction $ \_ -> void $ createTerm handleKeyPress mvarTMState   actionMapAddAction app newTabAction   applicationSetAccelsForAction app "app.newtab" ["<Shift><Ctrl>T"]++  nextPageAction <- simpleActionNew "nextpage" Nothing+  void $ onSimpleActionActivate nextPageAction $ \_ ->+    termNextPage mvarTMState+  actionMapAddAction app nextPageAction+  applicationSetAccelsForAction app "app.nextpage" ["<Ctrl>Page_Down"]++  prevPageAction <- simpleActionNew "prevpage" Nothing+  void $ onSimpleActionActivate prevPageAction $ \_ ->+    termPrevPage mvarTMState+  actionMapAddAction app prevPageAction+  applicationSetAccelsForAction app "app.prevpage" ["<Ctrl>Page_Up"]    closeTabAction <- simpleActionNew "closetab" Nothing   void $ onSimpleActionActivate closeTabAction $ \_ ->

src/Termonad/Term.hs view

@@ -59,7 +59,9 @@   , notebookAppendPage   , notebookDetachTab   , notebookGetNPages+  , notebookNextPage   , notebookPageNum+  , notebookPrevPage   , notebookSetCurrentPage   , notebookSetShowTabs   , notebookSetTabReorderable@@ -138,6 +140,16 @@  altNumSwitchTerm :: Int -> TMState -> IO () altNumSwitchTerm = focusTerm++termNextPage :: TMState -> IO ()+termNextPage mvarTMState = do+  note <- tmNotebook . tmStateNotebook <$> readMVar mvarTMState+  notebookNextPage note++termPrevPage :: TMState -> IO ()+termPrevPage mvarTMState = do+  note <- tmNotebook . tmStateNotebook <$> readMVar mvarTMState+  notebookPrevPage note  termExitFocused :: TMState -> IO () termExitFocused mvarTMState = do

termonad.cabal view

@@ -1,5 +1,5 @@ name:                termonad-version:             4.1.0.0+version:             4.1.1.0 synopsis:            Terminal emulator configurable in Haskell description:   Termonad is a terminal emulator configurable in Haskell.  It is extremely

test/readme/README.lhs view

@@ -297,6 +297,8 @@ | <kbd>Ctrl</kbd> <kbd>Shift</kbd> <kbd>i</kbd> | Find the regex **below** the current position. | | <kbd>Ctrl</kbd> <kbd>+</kbd> | Increase font size. | | <kbd>Ctrl</kbd> <kbd>-</kbd> | Decrease font size. |+| <kbd>Ctrl</kbd> <kbd>PgUp</kbd> | Switch to previous tab. |+| <kbd>Ctrl</kbd> <kbd>PgDown</kbd> | Switch to next tab. | | <kbd>Alt</kbd> <kbd>(number key)</kbd> | Switch to tab `number`.  For example, <kbd>Alt</kbd> <kbd>2</kbd> switches to tab 2. |  ### Configuring Termonad@@ -507,4 +509,3 @@ ## Maintainers  - [cdepillabout](https://github.com/cdepillabout)-- [LSLeary](https://github.com/LSLeary)