> 1 <

Автор Сообщение

Яков Замир Кацман (нью)

Members


Статус

51 сообщений

Где: Russia
Род занятий:
Возраст:

#7904   2018-11-03 20:58 GMT+3 часа(ов)      
Здесь включается открытие файла ассоциированного с приложениями windows.
Подсмотрено тут:
https://www.emacswiki.org/emacs/w32-browser.el
http://ergoemacs.org/emacs/emacs_dired_open_file_in_ext_apps.html
(Нельзя назвать это оригинальным, но час на поиски этого увы ушел)


 
(defun interactive1 (number)
(interactive "p")
(let* (($file-list
(if (string-equal major-mode "dired-mode")
(dired-get-marked-files)
(list (buffer-file-name)))))
;; (message "~{~a~}" $file-list)
(mapc (lambda ($fpath)
(w32-shell-execute nil (replace-regexp-in-string "/" "\" $fpath t t)))
$file-list))
)
 
(global-set-key [f7] 'interactive1)
(define-key dired-mode-map [mouse-2] 'interactive1)



* строчку следует читать так (поломалась):
(w32-shell-execute nil (replace-regexp-in-string "/" "\\" $fpath t t)))

отредактировал(а) Яков Замир Кацман (нью): 2018-11-03 21:15 GMT+3 часа(ов)
> 1 <


Онлайн :

0 пользователь(ей), 20 гость(ей) :




Реклама на сайте: