Fix shell-command composition bug

imeks.el

@@ -94,7 +94,7 @@ if an X keyboard."
 (nconc delete-frame-functions '(imeks--handle-delete-frame))
 
 
-
+;;
 ;;; Util
 ;;; ―――――――――――――――――――――――――――――――――――――
 (defun xdotool-type-string (string &optional delay)
@@ -108,13 +108,14 @@ Optionally waits a DELAY in seconds before typing the string."
                             imeks-xdotool-path line))
                   (string-lines string)))
          (type-cmd ; Work-around, since not all programs accept a typed newline.
-          (reduce (lambda (a b)
-                    (format "%s; %s key return; %s" a imeks-xdotool-path b))
-                  type-cmds))
+          (seq-reduce (lambda (a b)
+                        (if a
+                            (format "%s; %s key return; %s" a imeks-xdotool-path b)
+                            b))
+                  type-cmds nil))
          (cmd-string
           (concat sleep-cmd type-cmd)))
     (call-process "bash" nil 0 nil
                   "-c" cmd-string)))
 
-
 (provide 'imeks)