Skip to content
Browse files

* helm-files.el (helm-c-highlight-files): Use basename only if `helm-…

…ff-transformer-show-only-basename' is non--nil.

* helm-locate.el (helm-generic-files-map): Add helm-ff-run-toggle-basename.
  • Loading branch information...
1 parent d3e5331 commit 213797e3a5be620797037bc8d8f41b6ea363dc40 @thierryvolpiatto thierryvolpiatto committed May 24, 2012
Showing with 7 additions and 3 deletions.
  1. +6 −3 helm-files.el
  2. +1 −0 helm-locate.el
View
9 helm-files.el
@@ -2461,16 +2461,19 @@ Colorize only symlinks, directories and files."
(loop for i in files
collect
(cond ((file-symlink-p i)
- (cons (propertize (helm-c-basename i)
+ (cons (propertize (if helm-ff-transformer-show-only-basename
+ (helm-c-basename i) i)
'face 'helm-ff-symlink
'help-echo (expand-file-name i))
i))
((file-directory-p i)
- (cons (propertize (helm-c-basename i)
+ (cons (propertize (if helm-ff-transformer-show-only-basename
+ (helm-c-basename i) i)
'face 'helm-ff-directory
'help-echo (expand-file-name i))
i))
- (t (cons (propertize (helm-c-basename i)
+ (t (cons (propertize (if helm-ff-transformer-show-only-basename
+ (helm-c-basename i) i)
'face 'helm-ff-file
'help-echo (expand-file-name i))
i)))))
View
1 helm-locate.el
@@ -63,6 +63,7 @@ The \"-r\" option must be the last option."
(defvar helm-generic-files-map
(let ((map (make-sparse-keymap)))
(set-keymap-parent map helm-map)
+ (define-key map (kbd "C-]") 'helm-ff-run-toggle-basename)
(define-key map (kbd "M-g s") 'helm-ff-run-grep)
(define-key map (kbd "M-g z") 'helm-ff-run-zgrep)
(define-key map (kbd "M-g p") 'helm-ff-run-pdfgrep)

0 comments on commit 213797e

Please sign in to comment.
Something went wrong with that request. Please try again.