From a460adc1f66e0095beb23be3bf0102487f29c9ee Mon Sep 17 00:00:00 2001
From: Pierre Neidhardt <ambrevar@gmail.com>
Date: Fri, 3 Nov 2017 10:22:16 +0100
Subject: [PATCH] Helm/EXWM: Follow helm-buffer-max-length default value

---
 .emacs.d/lisp/package-helm-exwm.el | 55 ++++++++++++++++--------------
 1 file changed, 30 insertions(+), 25 deletions(-)

diff --git a/.emacs.d/lisp/package-helm-exwm.el b/.emacs.d/lisp/package-helm-exwm.el
index 947e8420..fb48300a 100644
--- a/.emacs.d/lisp/package-helm-exwm.el
+++ b/.emacs.d/lisp/package-helm-exwm.el
@@ -2,29 +2,29 @@
 
 ;; TODO: kill-persistent is not persistent.
 ;; The following works, so `kill-buffer' on an EXWM window is fine.
-(defun helm-exwm-kill-all ()
-  (dolist (b (buffer-list))
-    (with-current-buffer b
-      (when (eq major-mode 'exwm-mode)
-        (message "helm-exwm: Killing %s..." b)
-        (kill-buffer b)
-        (message "helm-exwm: Killed.")))))
-
-;;; This fails to be persistent, nothing is run after kill-buffer.
-(defun helm-exwm-buffer-run-kill-persistent ()
-  "Kill buffer without quitting helm."
-  ;; (interactive)
-  (with-helm-alive-p
-    (helm-attrset 'kill-action '(helm-exwm-buffers-persistent-kill . never-split))
-    (helm-execute-persistent-action 'kill-action)))
-(put 'helm-exwm-buffer-run-kill-persistent 'helm-only t)
-
-(defun helm-exwm-buffers-persistent-kill ()
-  "Kill buffer without quitting helm."
-  ;; (interactive)
-  (message "before")
-  (kill-buffer (car (helm-marked-candidates)))
-  (message "after"))
+;; (defun helm-exwm-kill-all ()
+;;   (dolist (b (buffer-list))
+;;     (with-current-buffer b
+;;       (when (eq major-mode 'exwm-mode)
+;;         (message "helm-exwm: Killing %s..." b)
+;;         (kill-buffer b)
+;;         (message "helm-exwm: Killed.")))))
+;;
+;; ;;; This fails to be persistent, nothing is run after kill-buffer.
+;; (defun helm-exwm-buffer-run-kill-persistent ()
+;;   "Kill buffer without quitting helm."
+;;   ;; (interactive)
+;;   (with-helm-alive-p
+;;     (helm-attrset 'kill-action '(helm-exwm-buffers-persistent-kill . never-split))
+;;     (helm-execute-persistent-action 'kill-action)))
+;; (put 'helm-exwm-buffer-run-kill-persistent 'helm-only t)
+;;
+;; (defun helm-exwm-buffers-persistent-kill ()
+;;   "Kill buffer without quitting helm."
+;;   ;; (interactive)
+;;   (message "before")
+;;   (kill-buffer (car (helm-marked-candidates)))
+;;   (message "after"))
 
 ;; REVIEW: When on one random buffer, preselect goes back to first.
 ;; See https://github.com/emacs-helm/helm/issues/1911.
@@ -83,10 +83,15 @@ If CLASS is nil, then list all EXWM buffers."
       (setcdr (last bufs) (list (pop bufs))))
     bufs))
 
-(defvar helm-exwm-buffer-max-length 52
+(defvar helm-exwm-buffer-max-length 51
   "Max length of EXWM buffer names before truncating.
-When disabled (nil) use the longest buffer-name length found")
+When disabled (nil) use the longest buffer-name length found.
 
+See `helm-buffer-max-length`.  This variable's default is so that
+the EXWM class starts at the column of the open parenthesis in
+`helm-buffers-list' detailed view.")
+
+;; Inspired by `helm-highlight-buffers'.
 (defun helm-exwm-highlight-buffers (buffers)
   "Transformer function to highlight BUFFERS list.
 Should be called after others transformers i.e (boring buffers)."