;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/emacs-init/latex.el

(require 'mode-line)
(require 'newcomment)
(require 'super)
(require 'tex-mode)

(defun md-latex (beg end)
  (interactive "r")
  (save-excursion
    (goto-char end)
    (while (re-search-backward "_\\(.*\\)_" beg t)
      (replace-match "\\\\textit{\\1}") )))

(defun last-char-of-string (str)
  (string-to-char (substring str -1)) )

(defun find-here ()
  (interactive)
  (let ((beg (point)))
    (goto-char (point-min))
    (let*((sign (concat
                 comment-start
                 (unless (= (last-char-of-string comment-start) ?\  ) " ")
                 "done"
                 comment-end))
          (hits (how-many sign (point-min) (point-max))) )
      (if (> hits 0)
          (progn
            (search-forward-regexp sign)
            (beginning-of-line)
            (recenter 1)
            (message "%d" hits) )
        (goto-char beg)
        (insert sign) ))))
(defalias 'h #'find-here)

(defun latex-keys ()
  (let ((kmap latex-mode-map))
    (disable-super-global-keys kmap)
    (define-key kmap "\C-c\C-c" #'compile) ))
(latex-keys)

(defun latex-mode-hook-f ()
  (auto-fill-mode)
  (abbrev-mode)
  (lines) )
(add-hook 'latex-mode-hook #'latex-mode-hook-f)

(provide 'latex)