|
|
|
@ -2351,7 +2351,11 @@ |
|
|
|
(helm-mode 1) |
|
|
|
(helm-mode 1) |
|
|
|
|
|
|
|
|
|
|
|
(defun fix-helm-margins () |
|
|
|
(defun fix-helm-margins () |
|
|
|
(setq helm-left-margin-width left-margin-width)) |
|
|
|
(setq helm-left-margin-width left-margin-width) |
|
|
|
|
|
|
|
(overlay-put helm-selection-overlay 'before-string |
|
|
|
|
|
|
|
(propertize "." 'display |
|
|
|
|
|
|
|
`((margin left-margin) ,(propertize "▶ " 'face 'default)))) |
|
|
|
|
|
|
|
) |
|
|
|
|
|
|
|
|
|
|
|
(global-set-key-alist |
|
|
|
(global-set-key-alist |
|
|
|
'(("M-x" . helm-M-x) |
|
|
|
'(("M-x" . helm-M-x) |
|
|
|
@ -2368,9 +2372,6 @@ |
|
|
|
nil 'helm-ff-delete-char-backward--exit-fn) |
|
|
|
nil 'helm-ff-delete-char-backward--exit-fn) |
|
|
|
(add-hook 'helm-after-initialize-hook 'fix-helm-margins) |
|
|
|
(add-hook 'helm-after-initialize-hook 'fix-helm-margins) |
|
|
|
|
|
|
|
|
|
|
|
(overlay-put helm-selection-overlay 'before-string |
|
|
|
|
|
|
|
(propertize "." 'display |
|
|
|
|
|
|
|
`((margin left-margin) ,(propertize "▶ " 'face 'default)))) |
|
|
|
|
|
|
|
#+end_src |
|
|
|
#+end_src |
|
|
|
Fix helm margins the bad way |
|
|
|
Fix helm margins the bad way |
|
|
|
#+begin_src emacs-lisp |
|
|
|
#+begin_src emacs-lisp |
|
|
|
|