D
логика такова, что нужно удалить старый файл, а новый переименовать на старый, когда завершится процесс
Size: a a a
2020 October 13
a
логика такова, что нужно удалить старый файл, а новый переименовать на старый, когда завершится процесс
Это надо через sentinel.
D
Это надо через sentinel.
спасибо, вроде то, что надо
D
(defun delete-shit ()
(interactive)
(let ((cur-file (dired-get-filename t))
(temp (string-trim (shell-command-to-string "uuidgen")))
(process "hai"))
(start-process process nil "mkvmerge" "-o" temp "--atracks" "2" cur-file)
(set-process-sentinel
(get-process process)
(lambda (process event)
(when (string= "exit" event)
(delete-file cur-file)
(rename-file temp cur-file))))))
(interactive)
(let ((cur-file (dired-get-filename t))
(temp (string-trim (shell-command-to-string "uuidgen")))
(process "hai"))
(start-process process nil "mkvmerge" "-o" temp "--atracks" "2" cur-file)
(set-process-sentinel
(get-process process)
(lambda (process event)
(when (string= "exit" event)
(delete-file cur-file)
(rename-file temp cur-file))))))
D
так лучше?
VL
ахуенно
D
(defvar lil/state (list 1 2 3))
(defun delete-shit ()
(interactive)
(let ((cur-file (dired-get-filename t))
(temp (string-trim (shell-command-to-string "uuidgen")))
(process "hai"))
(start-process "PROX" nil "mkvmerge" "-o" temp "--atracks" "2" cur-file)
(setq lil/state (list cur-file temp))
(set-process-sentinel
(get-process "PROX")
(lambda (process event)
(when (string= "finished\n" event)
(message "FINISHED")
(delete-file (car lil/state))
(rename-file (cadr lil/state) (car lil/state)))))))
(defun delete-shit ()
(interactive)
(let ((cur-file (dired-get-filename t))
(temp (string-trim (shell-command-to-string "uuidgen")))
(process "hai"))
(start-process "PROX" nil "mkvmerge" "-o" temp "--atracks" "2" cur-file)
(setq lil/state (list cur-file temp))
(set-process-sentinel
(get-process "PROX")
(lambda (process event)
(when (string= "finished\n" event)
(message "FINISHED")
(delete-file (car lil/state))
(rename-file (cadr lil/state) (car lil/state)))))))
D
вот финальная версия
D
к сожалению получилось через глобальную переменную
D
но в целом я рад, спасибо за помощь всем
VL
к сожалению получилось через глобальную переменную
а че, через let не захватывает?
AR
блин, я не могу с такими тормозами магита
Кроме как в tty лезть никак не решается? Тоже с таким сталкивался, думал, может что-то настроить в magit нужно
VL
неа
(set-process-sentinel
(start-process "youtube-duration" duration-buffer
"ytdl" "--no-color" "--get-duration" link)
`(lambda (process _change)
(when (eq 0 (process-exit-status process))
(with-current-buffer ,duration-buffer
(message "\"%s\" duration: %s"
,title (string-trim (buffer-string)))
(kill-buffer)))))
VL
смотри как я тут делал
VL
через квазицитирование
A
Andrew Roldugin
Кроме как в tty лезть никак не решается? Тоже с таким сталкивался, думал, может что-то настроить в magit нужно
ну у меня в итоге емакс вообще повесился
AR
ну у меня в итоге емакс вообще повесился
Аналогично, только у меня была куча измененных файлов
D
кто такой этот ваш квазицитирование
a
неа
Через let все должно работать.