113 lines
2.4 KiB
Haskell
113 lines
2.4 KiB
Haskell
{--
|
|
HSFM, a filemanager written in Haskell.
|
|
Copyright (C) 2016 Julian Ospald
|
|
|
|
This program is free software; you can redistribute it and/or
|
|
modify it under the terms of the GNU General Public License
|
|
version 2 as published by the Free Software Foundation.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with this program; if not, write to the Free Software
|
|
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
|
|
--}
|
|
|
|
|
|
{-# OPTIONS_HADDOCK ignore-exports #-}
|
|
{-# OPTIONS_GHC -Wno-unused-imports #-}
|
|
|
|
|
|
module HSFM.GUI.Gtk.Plugins where
|
|
|
|
|
|
import Graphics.UI.Gtk
|
|
import HPath
|
|
import HSFM.FileSystem.FileType
|
|
import HSFM.GUI.Gtk.Data
|
|
import HSFM.GUI.Gtk.Settings
|
|
import HSFM.GUI.Gtk.Utils
|
|
import HSFM.Settings
|
|
import Control.Monad
|
|
(
|
|
forM
|
|
, forM_
|
|
, void
|
|
)
|
|
import System.Posix.Process.ByteString
|
|
(
|
|
executeFile
|
|
, forkProcess
|
|
)
|
|
import Data.ByteString.UTF8
|
|
(
|
|
fromString
|
|
)
|
|
import qualified Data.ByteString as BS
|
|
|
|
|
|
|
|
|
|
|
|
---------------
|
|
--[ Plugins ]--
|
|
---------------
|
|
|
|
|
|
|
|
|
|
---- Global settings ----
|
|
|
|
|
|
|
|
-- |Where to start inserting plugins.
|
|
insertPos :: Int
|
|
insertPos = 4
|
|
|
|
|
|
-- |A list of plugins to add to the right-click menu at position
|
|
-- `insertPos`.
|
|
--
|
|
-- The left part of the triple is a function that returns the menuitem.
|
|
-- The middle part of the triple is a filter function that
|
|
-- decides whether the item is shown.
|
|
-- The right part of the triple is the callback, which is invoked
|
|
-- when the menu item is clicked.
|
|
--
|
|
-- Plugins are added in order of this list.
|
|
myplugins :: [(IO MenuItem
|
|
,[Item] -> MyGUI -> MyView -> IO Bool
|
|
,[Item] -> MyGUI -> MyView -> IO ())
|
|
]
|
|
myplugins = [(diffItem, diffFilter, diffCallback)
|
|
]
|
|
|
|
|
|
|
|
|
|
|
|
---- The plugins ----
|
|
|
|
|
|
|
|
diffItem :: IO MenuItem
|
|
diffItem = menuItemNewWithLabel "diff"
|
|
|
|
diffFilter :: [Item] -> MyGUI -> MyView -> IO Bool
|
|
diffFilter items _ _
|
|
| length items > 1 = return $ and $ fmap isFileC items
|
|
| otherwise = return False
|
|
|
|
diffCallback :: [Item] -> MyGUI -> MyView -> IO ()
|
|
diffCallback items _ _ = void $
|
|
forkProcess $
|
|
executeFile
|
|
(fromString "meld")
|
|
True
|
|
([fromString "--diff"] ++ fmap (fromAbs . path) items)
|
|
Nothing
|
|
|