Helm: Mark backwards with S-SPC

.emacs.d/lisp/init-evil-helm.el

@@ -24,7 +24,8 @@
   "k" 'helm-previous-line
   "g" 'helm-beginning-of-buffer
   "G" 'helm-end-of-buffer
-  "SPC" 'helm-toggle-visible-mark
+  (kbd "SPC") 'helm-toggle-visible-mark
+  ;; (kbd "S-SPC") 'evil-helm-toggle-visible-mark-backwards
   (kbd "C-f") 'helm-next-page
   (kbd "C-b") 'helm-previous-page)
 

.emacs.d/lisp/init-helm.el

@@ -231,4 +231,11 @@ Requires `call-process-to-string' from `functions'."
 (unless (executable-find "locate")
   (setq helm-locate-recursive-dirs-command "find %s -type d -regex .*%s.*$"))
 
+;;; Convenience.
+(defun helm-toggle-visible-mark-backwards ()
+  (interactive)
+  (helm-toggle-visible-mark)
+  (helm-previous-line 2))
+(define-key helm-map (kbd "S-SPC") 'helm-toggle-visible-mark-backwards)
+
 (provide 'init-helm)