(defun start-mpv (path &optional playlist-p record-p)
  "Start mpv with specified arguments"
  (let* ((default-cmd "mpv --force-window --fullscreen")
         (cmd (if playlist-p
                  (s-append " --loop-playlist --playlist=" default-cmd)
                (s-append " " default-cmd))))
    (call-process-shell-command (s-concat cmd (shell-quote-argument path)) nil 0)))

Вот к примеру тут, я не хочу под каждый playlist-p record-p писать ифы или кейсы, а хачу декларативно получить список всех опциональных аргуентов которые не нил  сделать из них строку

А если бы ты юзал call-process, то не пришлось дрочить shell-quote

(defun start-mpv (path &optional playlist-p record-p)
  "Start mpv with specified arguments"
  (let* ((default-cmd "mpv --force-window --fullscreen")
         (cmd (if playlist-p
                  (s-append " --loop-playlist --playlist=" default-cmd)
                (s-append " " default-cmd))))
    (call-process-shell-command (s-concat cmd (shell-quote-argument path)) nil 0)))

Вот к примеру тут, я не хочу под каждый playlist-p record-p писать ифы или кейсы, а хачу декларативно получить список всех опциональных аргуентов которые не нил  сделать из них строку

аппай нилы убирает как я помню же, да?

Посмотри transient

(defun start-mpv (path &optional playlist-p record-p)
  "Start mpv with specified arguments"
  (let* ((default-cmd "mpv --force-window --fullscreen")
         (cmd (if playlist-p
                  (s-append " --loop-playlist --playlist=" default-cmd)
                (s-append " " default-cmd))))
    (call-process-shell-command (s-concat cmd (shell-quote-argument path)) nil 0)))

Вот к примеру тут, я не хочу под каждый playlist-p record-p писать ифы или кейсы, а хачу декларативно получить список всех опциональных аргуентов которые не нил  сделать из них строку

ты в вузе учишься, вроде?

студентам можно плохой код писать

Инфа сотка