summaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authortv <tv@krebsco.de>2020-05-01 10:07:17 +0200
committertv <tv@krebsco.de>2020-05-01 10:07:17 +0200
commit63a96ce79d029bfba36660d7e258769f7d74a9ef (patch)
treee5a2f593020e921a9f31ad62e5ce2dbc6ec30c8a /src
parent156f4774ca62e84d5a936597cec1b2faf1edee20 (diff)
Flameshot.Internal: copyToClipboard to Main.app
Diffstat (limited to 'src')
-rw-r--r--src/Flameshot/Internal.hs7
-rw-r--r--src/main.hs4
2 files changed, 4 insertions, 7 deletions
diff --git a/src/Flameshot/Internal.hs b/src/Flameshot/Internal.hs
index 44160bf..aba644c 100644
--- a/src/Flameshot/Internal.hs
+++ b/src/Flameshot/Internal.hs
@@ -9,7 +9,6 @@ import Blessings.Text
import Control.Concurrent.Async (race)
import Control.Concurrent.Extended
import Control.Exception
-import Data.ByteString (ByteString)
import qualified Data.Char as C
import Data.Function (on)
import Data.Maybe (fromMaybe)
@@ -107,12 +106,6 @@ showUnprintable =
toEither p =
map (\s -> if p (T.head s) then Right s else Left s)
. T.groupBy ((==) `on` p)
-
-
-copyToClipboard :: String -> ByteString -> IO ()
-copyToClipboard mimetype input =
- P.runAway "xclip" ["-selection", "clipboard", "-t", mimetype, "-i"]
- Nothing Nothing input Nothing mempty
logger :: (Blessings Text -> IO ()) -> Text -> P.Callbacks
logger putLog name =
diff --git a/src/main.hs b/src/main.hs
index 042c8da..a08228b 100644
--- a/src/main.hs
+++ b/src/main.hs
@@ -105,6 +105,10 @@ app client = do
return ()
let
+ copyToClipboard mimetype input =
+ P.runAway "xclip" ["-selection", "clipboard", "-t", mimetype, "-i"]
+ Nothing Nothing input Nothing $
+ logger putLog "xclip"
runDaemon =
P.run "flameshot" [] Nothing Nothing "" Nothing $
logger putLog "daemon" <>