lb6-mode: make M-b and :build reinstall the action

This commit is contained in:
Henrik Lissner 2016-02-18 05:05:52 -05:00
parent a54d6221d0
commit bafc3e2961

View file

@ -16,18 +16,14 @@
(defun narf-lb6-reload ()
(interactive)
(let ((dir (f-traverse-upwards (lambda (f) (string-suffix-p ".lbaction" f)))))
(shell-command (format "open %s" dir))))
(shell-command (format "open '%s'" dir))))
(define-minor-mode lb6-mode
"Launchbar development mode."
:init-value nil
:lighter " lb6"
:keymap (let ((map (make-sparse-keymap)))
(map! :map map
(:localleader
:n "b" 'narf-lb6-reload))
map)
(add-yas-minor-mode! 'lb6-mode))
(define-builder! lb6-mode narf-lb6-reload)
(associate! lb6-mode :match "\\.lb\\(action\\|ext\\)/.+$")
(provide 'module-apple)