diff --git a/operating-systems/buer/rules.scm b/operating-systems/buer/rules.scm
index d29ab9d..d141858 100644
--- a/operating-systems/buer/rules.scm
+++ b/operating-systems/buer/rules.scm
@@ -14,11 +14,9 @@
                     ("TERM" . "linux"))))))
 
 (define text-editors
-  (map (lambda (cmd)
-         (permit (identity ":wheel")
+  (list (permit (identity ":wheel")
                  (keepenv? #t)
-                 (command cmd)))
-       `("kak" "emacsclient")))
+                 (command "kak"))))
 
 (define power-management
   (map (lambda (cmd)