1module Message.Message exposing 2 ( DomID(..) 3 , DropTarget(..) 4 , Message(..) 5 , PipelinesSection(..) 6 , VersionId 7 , VersionToggleAction(..) 8 , VisibilityAction(..) 9 ) 10 11import Concourse exposing (DatabaseID) 12import Concourse.Cli as Cli 13import Concourse.Pagination exposing (Page) 14import Routes exposing (StepID) 15import StrictEvents 16 17 18type Message 19 = -- Top Bar 20 FilterMsg String 21 | FocusMsg 22 | BlurMsg 23 -- Pipeline 24 | ToggleGroup Concourse.PipelineGroup 25 | SetGroups (List String) 26 -- Dashboard 27 | DragStart String String 28 | DragOver DropTarget 29 | DragEnd 30 | Tooltip String String 31 | TooltipHd String String 32 -- Resource 33 | EditComment String 34 | FocusTextArea 35 | BlurTextArea 36 -- Build 37 | ScrollBuilds StrictEvents.WheelEvent 38 | RevealCurrentBuildInHistory 39 | SetHighlight String Int 40 | ExtendHighlight String Int 41 -- common 42 | Hover (Maybe DomID) 43 | Click DomID 44 | GoToRoute Routes.Route 45 | Scrolled StrictEvents.ScrollState 46 47 48type DomID 49 = ToggleJobButton 50 | TriggerBuildButton 51 | AbortBuildButton 52 | RerunBuildButton 53 | PreviousPageButton 54 | NextPageButton 55 | CheckButton Bool 56 | EditButton 57 | SaveCommentButton 58 | ResourceCommentTextarea 59 | ChangedStepLabel StepID String 60 | StepState StepID 61 | PinIcon 62 | PinMenuDropDown String 63 | PinButton VersionId 64 | PinBar 65 | PipelineStatusIcon PipelinesSection Concourse.PipelineIdentifier 66 | PipelineCardPauseToggle PipelinesSection Concourse.PipelineIdentifier 67 | TopBarFavoritedIcon DatabaseID 68 | TopBarPauseToggle Concourse.PipelineIdentifier 69 | VisibilityButton PipelinesSection Concourse.PipelineIdentifier 70 | PipelineCardFavoritedIcon PipelinesSection DatabaseID 71 | FooterCliIcon Cli.Cli 72 | WelcomeCardCliIcon Cli.Cli 73 | CopyTokenButton 74 | SendTokenButton 75 | CopyTokenInput 76 | JobGroup Int 77 | StepTab String Int 78 | StepHeader String 79 | StepSubHeader String Int 80 | ShowSearchButton 81 | ClearSearchButton 82 | LoginButton 83 | LogoutButton 84 | UserMenu 85 | PaginationButton Page 86 | VersionHeader VersionId 87 | VersionToggle VersionId 88 | BuildTab Int String 89 | PipelineWrapper Concourse.PipelineIdentifier 90 | JobPreview PipelinesSection Concourse.JobIdentifier 91 | HamburgerMenu 92 | SideBarResizeHandle 93 | SideBarTeam PipelinesSection String 94 | SideBarPipeline PipelinesSection Concourse.PipelineIdentifier 95 | SideBarFavoritedIcon DatabaseID 96 | Dashboard 97 | DashboardGroup String 98 99 100type PipelinesSection 101 = FavoritesSection 102 | AllPipelinesSection 103 104 105type VersionToggleAction 106 = Enable 107 | Disable 108 109 110type VisibilityAction 111 = Expose 112 | Hide 113 114 115type alias VersionId = 116 Concourse.VersionedResourceIdentifier 117 118 119type alias DatabaseID = 120 Int 121 122 123type DropTarget 124 = Before String 125 | After String 126