История изменений
Исправление oOoOo, (текущая версия) :
Я уже начал привыкать использовать f для открытия файлов ! Спасибо, к сожалению, я слишком глуп для этого, не думал что придется настолько погружаться в Emacs… Конечно есть некоторый прогресс в понимании elisp code, но до чтения исходников мне еще как до … ну, в общем, далеко.
Код в итоге выглядит так, goolage уже проиндексировал топик, мб. кому - либо будет полезно.
;; Reuse dired buffer. Dired-open if the path is a file, dired-find-alternate-file if is a directory.
(defun dired-custom-view-file ()
(interactive)
(let ((file (dired-get-file-for-visit)))
(if (file-directory-p file)
(dired-find-alternate-file)
(dired-open-by-extension))))
(define-key dired-mode-map (kbd "RET") 'dired-custom-view-file)
Благодарю еще раз !
Исправление oOoOo, :
Я уже начал привыкать использовать f для открытия файлов ! Спасибо, к сожалению, я слишком глуп для этого, не думал что придейтся настолько погружаться в Emacs… Конечно есть некоторый прогресс в понимании elisp code, но до чтения исходников мне еще как до … ну, в общем, далеко.
Код в итоге выглядит так, goolage уже проиндексировал топик, мб. кому - либо будет полезно.
;; Reuse dired buffer. Dired-open if the path is a file, dired-find-alternate-file if is a directory.
(defun dired-custom-view-file ()
(interactive)
(let ((file (dired-get-file-for-visit)))
(if (file-directory-p file)
(dired-find-alternate-file)
(dired-open-by-extension))))
(define-key dired-mode-map (kbd "RET") 'dired-custom-view-file)
Благодарю еще раз !
Исходная версия oOoOo, :
Я уже начал привыкать использовать f для открытия файлов ! Спасибо, к сожалению, я слишком глуп для этого, не думал что придейтся настолько погружаться в Emacs… Конечно есть некоторый прокгерсс в понимании elisp code, но до чтения исходников мне еще как до … ну, в общем, далеко.
Код в итоге выглядит так, goolage уже проиндексировал топик, мб. кому - либо будет полезно.
[code=Lisp] ;; Reuse dired buffer. Dired-open if the path is a file, dired-find-alternate-file if is a directory. (defun dired-custom-view-file () (interactive) (let ((file (dired-get-file-for-visit))) (if (file-directory-p file) (dired-find-alternate-file) (dired-open-by-extension)))) (define-key dired-mode-map (kbd «RET») ’dired-custom-view-file) [/code]
Благодарю еще раз !