|
From: | Emanuel Berg |
Subject: | Re: Emacs as a translator's tool |
Date: | Sun, 07 Jun 2020 23:15:55 +0200 |
User-agent: | Gnus/5.13 (Gnus v5.13) Emacs/26.1 (gnu/linux) |
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
[Prev in Thread] | Current Thread | [Next in Thread] |