Skip to content

Instantly share code, notes, and snippets.

@laclefyoshi

laclefyoshi/langtool-popup.el

Created September 12, 2015 11:33
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save laclefyoshi/9fbe019e6a2f34c8b82c to your computer and use it in GitHub Desktop.
Save laclefyoshi/9fbe019e6a2f34c8b82c to your computer and use it in GitHub Desktop.
Download ZIP
langtool.elをpopup.elに対応
Raw
langtool-popup.el
(defun popup-current-langtool-error ()
(interactive)
(let ((msgs (langtool--current-error-messages)))
(if (null msgs)
(popup-tip "No errors")
(let ((msg (split-string (car msgs) "\n")))
(popup-tip (join "\n" (reverse (nthcdr 2 (reverse msg)))))))))
(global-set-key "\C-ce" 'popup-current-langtool-error)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment