diff --git a/miscellaneous/suckless-conf/lib/Data/Config/Suckless/Script/Internal.hs b/miscellaneous/suckless-conf/lib/Data/Config/Suckless/Script/Internal.hs
index a5e496da..f3ef121a 100644
--- a/miscellaneous/suckless-conf/lib/Data/Config/Suckless/Script/Internal.hs
+++ b/miscellaneous/suckless-conf/lib/Data/Config/Suckless/Script/Internal.hs
@@ -1652,12 +1652,24 @@ internalEntries = do
 
       _ ->  pure nil
 
+    entry $ bindMatch "pwd" $ const $ do
+      pwd <&> mkSym @c
+
+    entry $ bindMatch "cd" $ nil_ $ \case
+      [ StringLike dir ] -> cd dir
+      _ -> throwIO $ BadFormException @c nil
+
     entry $ bindMatch "mkdir" $ nil_ $ \case
-      [ StringLike p ] -> mkdir p
+      [ ListVal (StringLikeList p) ] -> do
+        forM_ p mkdir
+
+      (StringLikeList p) -> forM_ p mkdir
+
       _ -> throwIO $ BadFormException @c nil
 
     entry $ bindMatch "rm" $ nil_ $ \case
-      [ StringLike p ] -> rm p
+      (StringLikeList p) -> forM_ p rm
+      [ ListVal (StringLikeList p) ] -> forM_ p rm
       _ -> throwIO $ BadFormException @c nil
 
     entry $ bindMatch "mv" $ nil_ $ \case
diff --git a/miscellaneous/suckless-conf/lib/Data/Config/Suckless/System.hs b/miscellaneous/suckless-conf/lib/Data/Config/Suckless/System.hs
index 7c5cc6e0..8b35063c 100644
--- a/miscellaneous/suckless-conf/lib/Data/Config/Suckless/System.hs
+++ b/miscellaneous/suckless-conf/lib/Data/Config/Suckless/System.hs
@@ -84,6 +84,9 @@ rm fn = liftIO $ D.removePathForcibly fn
 home :: MonadIO m => m FilePath
 home = liftIO D.getHomeDirectory
 
+cd :: MonadIO m => FilePath -> m()
+cd = liftIO . D.setCurrentDirectory
+
 data DirEntry =
     EntryFile  { dirEntryPath :: FilePath }
   | EntryDir   { dirEntryPath :: FilePath }