;; Company completion framework configuration
(require 'company); Add completion

;; Company configuration
(setq-default company-minimum-prefix-length 2   ; minimum prefix character number for auto complete.
              company-idle-delay 0.1
              company-echo-delay 0
              ;; company-show-numbers t
              company-tooltip-align-annotations t ; align annotations to the right tooltip border.
              company-tooltip-flip-when-above t
              company-tooltip-limit 10          ; tooltip candidates max limit.
              company-tooltip-minimum 2         ; minimum candidates limit.
              company-tooltip-minimum-width 0   ; The minimum width of the tooltip's inner area.
                                        ; This doesn't include the margins and the scroll bar.
              company-tooltip-margin 2          ; width of margin columns to show around the tooltip
              company-tooltip-offset-display 'scrollbar ; 'lines - how to show tooltip unshown candidates number.
              company-show-numbers nil ; t: show quick-access numbers for the first ten candidates.
              company-selection-wrap-around t ; loop over candidates
              ;; company-async-wait 0.03
              ;; company-async-timeout 2
              )

(global-company-mode 1)
(yas-global-mode 1)

(setq-default company-backends '(company-tern ;; Javascript
                                 (company-yasnippet ;; Snippets for all programming languages
                                  company-etags) ;; Ctags for any language
                                 company-elisp ; Emacs Lisp
                                 company-clang company-cmake ;; C
                                 company-lsp ;; Language server protocol
                                 company-ansible ;; Ansible
                                 alchemist-company ;; Elixir
                                 company-racer ;; Rust
                                 company-web-html ;; HTML
                                 (company-dabbrev-code company-dabbrev company-abbrev) ;; abbrev
                                 company-capf ;; Backend for default complete-at-point function
                                 company-keywords ;; Keywords for all languages
                                 company-files ; files & directory
                                 ))


(setq-default company-lsp-cache-candidates 1 ;; Cache LSP results
              company-lsp-async 1 ;; Fetch LSP results asynchronously
 )

;;; Yasnippet configuration
(define-key prog-mode-map (kbd "C-c y") 'company-yasnippet)
(define-key prog-mode-map (kbd "<f13>") 'company-yasnippet)

(define-key text-mode-map (kbd "C-c y") 'company-yasnippet)
(define-key text-mode-map (kbd "<f13>") 'company-yasnippet)

;; Sentinel function for capturing ctags
(defun ctags-process-callback (process event)
  "Show status of asynchronous ctags-process after it finishes."
  (cond
   ((string-equal event "finished\n")
    (message "Creating tag files...completed")
    (kill-buffer (get-buffer "*ctags*"))
   (visit-tags-table (format "%sTAGS" (projectile-project-root))))
   (t
    (message "Creating tags file...failed")
    (pop-to-buffer (get-buffer "*ctags*"))
    )))

;; (setq ctags-commands
;;       '(("emacs-lisp-mode" . "Some string"))
;;         ("enh-ruby-mode" . "Some other string")
;;         )

;; (defun buffer-mode-as-string (&optional-buffer)
;;   "Get current mode from &OPTIONAL-BUFFER or current buffer."
;;   (when option)

;; (message "%s"
;;          (cdr
;;           (assoc
;;            (format "%s" (buffer-local-value 'major-mode
;;                                (current-buffer))) ctags-commands)))

;; (message (format "%s" (buffer-local-value 'major-mode (current-buffer))))

;; (message ())