Re: Emacs as a translator's tool

[Emanuel Berg]

Marcin Borkowski wrote:

> If you find a good way to refactor it so that it is
> more DRY, I'd love to see it.

;;; -*- lexical-binding: t -*-
;;;
;;; this file:
;;;   http://user.it.uu.se/~embe8573/emacs-init/incal-ecat.el
;;;   https://dataswamp.org/~incal/emacs-init/incal-ecat.el

(defvar sentence-overlay nil)

(defun remove-highlight ()
  (interactive)
  (when (overlayp sentence-overlay)
    (delete-overlay sentence-overlay) ))

(defun highlight-sentence ()
  (interactive)
  (remove-highlight)
  (let ((overlay (make-overlay (progn (forward-sentence)  (point))
                               (progn (backward-sentence) (point)) )))
    (overlay-put overlay 'face 'font-lock-function-name-face)
    (setq sentence-overlay overlay) ))

(defun highlight-sentence-next ()
  (interactive)
  (forward-sentence)
  (highlight-sentence) )

(defun highlight-sentence-prev ()
  (interactive)
  (backward-sentence)
  (highlight-sentence) )

-- 
underground experts united
http://user.it.uu.se/~embe8573
https://dataswamp.org/~incal