8b6c7bdbcc
This does, as a side effect, make long notes in json output not be indented. The indentation is only needed to offset them underneath the display of the file they apply to, so that's ok. Sponsored-by: Brock Spratlen on Patreon
42 lines
1,002 B
Haskell
42 lines
1,002 B
Haskell
{- git-annex command
|
|
-
|
|
- Copyright 2014 Joey Hess <id@joeyh.name>
|
|
-
|
|
- Licensed under the GNU AGPL version 3 or higher.
|
|
-}
|
|
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
module Command.VCycle where
|
|
|
|
import Command
|
|
import Annex.View
|
|
import Types.View
|
|
import Logs.View
|
|
import Command.View (checkoutViewBranch)
|
|
|
|
cmd :: Command
|
|
cmd = notBareRepo $
|
|
command "vcycle" SectionMetaData
|
|
"switch view to next layout"
|
|
paramNothing (withParams seek)
|
|
|
|
seek :: CmdParams -> CommandSeek
|
|
seek = withNothing (commandAction start)
|
|
|
|
start ::CommandStart
|
|
start = go =<< currentView
|
|
where
|
|
go Nothing = giveup "Not in a view."
|
|
go (Just (v, madj)) = starting "vcycle" (ActionItemOther Nothing) (SeekInput []) $ do
|
|
let v' = v { viewComponents = vcycle [] (viewComponents v) }
|
|
if v == v'
|
|
then do
|
|
showNote "unchanged"
|
|
next $ return True
|
|
else next $ checkoutViewBranch v' madj narrowView
|
|
|
|
vcycle rest (c:cs)
|
|
| viewVisible c = rest ++ cs ++ [c]
|
|
| otherwise = vcycle (c:rest) cs
|
|
vcycle rest c = rest ++ c
|