emacs helper to open current file in Sublime Text and Lyx

*scratch*.el

(defun link/subl-file ()
  "Edit current file in subl."
  (interactive)
  (shell-command (format "subl -n %s:%s"
			 (buffer-file-name)
			 (line-number-at-pos))))
(evil-define-operator link/subl-line (beg end type)
  "Edit current region in subl."
  :motion evil-line
  (interactive "<R>")
  (shell-command-on-region beg end "subl -n -" t t))
(evil-define-operator link/lyxit-line (beg end type)
  "Edit current region in lyx."
  :motion evil-line
  (interactive "<R>")
  (shell-command-on-region beg end "lyxit -n -" t t)
  (when org-indent-mode
    (org-indent-mode 1)))