cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-01 04:26:47 +01:00
Code Issues

- respected arguments of a program when opening a link.

Browse Source
This commit is contained in:
cage 2021-02-10 18:02:06 +01:00
parent 3df833b248
commit 7eea02992c
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/os-utils.lisp
View File

@ -119,10 +119,14 @@
:output t
:error t))))
(defun open-link-with-program (program link)
(sb-ext:run-program program
(list link)
:search t
:wait nil
:output nil
:error :output))
(defun open-link-with-program (program-and-args link)
(let* ((command-line-splitted (text-utils:split-words program-and-args))
(program (first command-line-splitted))
(args (append (rest command-line-splitted)
(list link))))
(sb-ext:run-program program
args
:search t
:wait nil
:output nil
:error :output)))