diff options
-rw-r--r-- | helm-buffers.el | 68 |
1 files changed, 34 insertions, 34 deletions
diff --git a/helm-buffers.el b/helm-buffers.el index bc6e0602..98cee3cb 100644 --- a/helm-buffers.el +++ b/helm-buffers.el @@ -382,37 +382,37 @@ See `ido-make-buffer-list' for more infos." "Transformer function to highlight BUFFERS list. Should be called after others transformers i.e (boring buffers)." (cl-loop for i in buffers - for (name size mode meta) = (if helm-buffer-details-flag - (helm-buffer--details i 'details) - (helm-buffer--details i)) - for truncbuf = (if (> (string-width name) helm-buffer-max-length) - (helm-substring-by-width - name (- helm-buffer-max-length - (length helm-buffers-end-truncated-string)) - helm-buffers-end-truncated-string) - (concat name - (make-string - (- (+ helm-buffer-max-length - (length helm-buffers-end-truncated-string)) - (string-width name)) ? ))) - for len = (length mode) - when (> len helm-buffer-max-len-mode) - do (setq helm-buffer-max-len-mode len) - for fmode = (concat (make-string - (- (max helm-buffer-max-len-mode len) len) ? ) - mode) - ;; The max length of a number should be 1023.9X where X is the - ;; units, this is 7 characters. - for formatted-size = (and size (format "%7s" size)) - collect (let ((helm-pattern (helm-buffers--pattern-sans-filters - (and helm-buffers-fuzzy-matching "")))) - (cons (if helm-buffer-details-flag - (concat - (funcall helm-fuzzy-matching-highlight-fn truncbuf) - "\t" formatted-size - " " fmode " " meta) - (funcall helm-fuzzy-matching-highlight-fn name)) - (get-buffer i))))) + for (name size mode meta) = (if helm-buffer-details-flag + (helm-buffer--details i 'details) + (helm-buffer--details i)) + for truncbuf = (if (> (string-width name) helm-buffer-max-length) + (helm-substring-by-width + name (- helm-buffer-max-length + (length helm-buffers-end-truncated-string)) + helm-buffers-end-truncated-string) + (concat name + (make-string + (- (+ helm-buffer-max-length + (length helm-buffers-end-truncated-string)) + (string-width name)) ? ))) + for len = (length mode) + when (> len helm-buffer-max-len-mode) + do (setq helm-buffer-max-len-mode len) + for fmode = (concat (make-string + (- (max helm-buffer-max-len-mode len) len) ? ) + mode) + ;; The max length of a number should be 1023.9X where X is the + ;; units, this is 7 characters. + for formatted-size = (and size (format "%7s" size)) + collect (let ((helm-pattern (helm-buffers--pattern-sans-filters + (and helm-buffers-fuzzy-matching "")))) + (cons (if helm-buffer-details-flag + (concat + (funcall helm-fuzzy-matching-highlight-fn truncbuf) + "\t" formatted-size + " " fmode " " meta) + (funcall helm-fuzzy-matching-highlight-fn name)) + (get-buffer i))))) (defun helm-buffer--get-preselection (buffer) (let ((bufname (buffer-name buffer))) @@ -426,9 +426,9 @@ Should be called after others transformers i.e (boring buffers)." bufname (- helm-buffer-max-length (length helm-buffers-end-truncated-string)) helm-buffers-end-truncated-string)) - (concat (regexp-quote bufname) - (if helm-buffer-details-flag - "$" "[[:blank:]]+")))))) + (concat (regexp-quote bufname) + (if helm-buffer-details-flag + "$" "[[:blank:]]+")))))) (defun helm-toggle-buffers-details () (interactive) |