;;; funcs.el --- languagetool layer packages file for Spacemacs.
;;
;; Copyright (c) 2012-2017 Sylvain Benner & Contributors
;;
;; Author: Robbert van der Helm <mail@robbertvanderhelm.nl>
;; URL: https://github.com/syl20bnr/spacemacs
;;
;; This file is not part of GNU Emacs.
;;
;;; License: GPLv3

(defun spacemacs/languagetool-next-error (count)
  (interactive "p")
  (dotimes (_ count) (langtool-goto-next-error))
  (when languagetool-show-error-on-jump (langtool-show-message-at-point)))

(defun spacemacs/languagetool-previous-error (count)
  (interactive "p")
  (dotimes (_ count) (langtool-goto-previous-error))
  (when languagetool-show-error-on-jump (langtool-show-message-at-point)))

(defun spacemacs/languagetool-toggle ()
  "Performs grammar and spell checking on the current buffer
  using LanguageTool for grammar and flyspell for spell checking.
  Flyspell errors will be cleared if the 'spell-checking' layer
  is active as they add a lot of clutter."
  (interactive)
  (if (package-installed-p 'langtool)
      (let* ((has-ran (bound-and-true-p langtool-mode-line-message))
             (still-running
              (and has-ran (equal ":run" (cadr langtool-mode-line-message)))))
        ;; Don't do anything while LanguageTool is still running
        (unless still-running
          ;; Clear LanguageTool's errors if there is an active error overlay
          (if has-ran
              (langtool-check-done)
            (progn
              (langtool-check-buffer (spacemacs//languagetool-get-language))
              (when (package-installed-p 'flyspell)
                (flyspell-delete-all-overlays))))))
    (error "LanguageTool has not been set up yet")))

(defun spacemacs//languagetool-detect ()
  "Detects whether the LanguageTool binary exists."
  (cond ((boundp 'langtool-java-classpath) t)
        ((and (boundp 'langtool-http-server-host)
              (boundp 'langtool-http-server-port)) t)
        ((boundp 'langtool-language-tool-jar)
         (if (file-readable-p langtool-language-tool-jar)
             t
           (spacemacs-buffer/warning "LanguageTool binary not found")))
        (t (spacemacs-buffer/warning "LanguageTool binary not set"))))

(defun spacemacs//languagetool-get-language ()
  "Tries to parse the current spell checking language for a
  usable locale string. This won't do anything if the
  'spell-checking' layer is not active."
  (let ((language (and (package-installed-p 'flyspell)
                       (or ispell-local-dictionary ispell-dictionary))))
    (when language
      ;; We'll assume the language is either a locale or a named language (i.e.
      ;; "en_GB" or "english")
      (let* ((locale (or (cadr
                          (assoc language ispell-dicts-name2locale-equivs-alist))
                         language))
             ;; ispell uses underscores in its locales, but LanguageTool expects a
             ;; dash (e.g. "en_US" => "en-US")
             (langtool-code (replace-regexp-in-string "_" "-" locale)))
        langtool-code))))
