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

;; Biblatex: ~/.emacs.d/emacs-init/my-bibtex.el

;; (setq latex-mode-hook nil)
(defun latex-mode-hook-f ()
  (init-latex-keys)
  (abbrev-mode)
  (lines) )
(add-hook 'latex-mode-hook #'latex-mode-hook-f)

(defvar latex-mode-map)
(defun init-latex-keys ()
  (let ((the-map latex-mode-map))
    (disable-super-global-keys the-map)
    (define-key the-map "\C-c\C-c" #'compile)
    (define-key the-map [C-m]      #'mark-as-math) ))

(defun mark-as-math ()
  (interactive)
  (let ((math-delimiter "$"))
    (save-excursion
      (if mark-active
          (let ((start (mark))
                (end   (point)))
            (goto-char end)
            (insert math-delimiter)
            (goto-char start)
            (insert math-delimiter) )
        (progn
          (forward-word)
          (insert math-delimiter)
          (backward-word)
          (insert math-delimiter) )))))