Commit 09ddaafb5819a09201eb7cc90dd244fe66ac1a0a
Parent: d5e6de3dfdd031751f6db1d8d4cacaabb463ac85
Author: mcol <mcol@posteo.net>
Date: 2021-08-22 00:08:13 +0100
Committer: mcol <mcol@posteo.net>
Committed: 2021-08-22 00:08:13 +0100

Print full path of activate items

src/Icons.hs Modified

@@ -31,7 +31,7 @@
         , #tooltipColumn := 0
         , #pixbufColumn := 1
         ]
-    on iconView #itemActivated $ onItemActivated listStore
+    on iconView #itemActivated $ onItemActivated listStore root
     return iconView
 
 -- Root folder is $(XDG_DESKTOP_DIR:-$HOME/Desktop)
@@ -73,11 +73,11 @@
     isDir <- sequence $ doesDirectoryExist . (<>) root <$> path
     return . getZipList $ Item <$> ZipList path <*> ZipList isDir
 
-onItemActivated :: Gtk.ListStore -> Gtk.TreePath -> IO ()
-onItemActivated listStore treePath = do
+onItemActivated :: Gtk.ListStore -> FilePath -> Gtk.TreePath -> IO ()
+onItemActivated listStore root treePath = do
     (_, iter) <- Gtk.treeModelGetIter listStore treePath
     gvalue <- Gtk.treeModelGetValue listStore iter 0
     maybeValue <- (Gtk.fromGValue gvalue :: IO (Maybe String))
     case maybeValue of
         Nothing -> return ()
-        Just value -> putStrLn $ show value
+        Just value -> putStrLn $ root <> "/" <> value