From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: =?UTF-8?Q?Cl=c3=a9ment_Pit-Claudel?= Newsgroups: gmane.emacs.devel Subject: Re: Variable-width font indentation Date: Thu, 8 Mar 2018 09:05:43 -0500 Message-ID: References: <87inaiss6l.fsf@web.de> <6FCF6ACA-4F29-4B6B-BE9D-D7130C6E9495@gnu.org> <87fu5moe4c.fsf@web.de> <877eqyocro.fsf@web.de> <83zi3uz4nb.fsf@gnu.org> <0b1dd3fa-e0b0-ed20-a256-dd92d1c1826f@dancol.org> <8bc3c4c7-dfc7-987a-95e7-bd309e2326c6@cs.ucla.edu> <03118DC0-39DA-4AB5-980E-A33809B9A5EE@raeburn.org> <83vaeas8uz.fsf@gnu.org> <83lgf6s3aa.fsf@gnu.org> <8b94336f-1bb4-84ab-263b-af5ba40bfca4@cs.ucla.edu> <673d6612-f0d4-5d34-c6ee-a276dbba3068@cs.ucla.edu> <087fdedd-a7c5-f7f6-f3a5-b1700fb6e516@gmail.com> <50a23cc7-9404-0fdb-32fa-08d77782cbc9@gmail.com> <83h8pqpurw.fsf@gnu.org> NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 8bit X-Trace: blaine.gmane.org 1520517842 17066 195.159.176.226 (8 Mar 2018 14:04:02 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Thu, 8 Mar 2018 14:04:02 +0000 (UTC) User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:52.0) Gecko/20100101 Thunderbird/52.6.0 Cc: eggert@cs.ucla.edu, emacs-devel@gnu.org To: Eli Zaretskii Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Thu Mar 08 15:03:58 2018 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1etw9F-0004JM-B4 for ged-emacs-devel@m.gmane.org; Thu, 08 Mar 2018 15:03:57 +0100 Original-Received: from localhost ([::1]:39261 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1etwBH-0007Wu-Cg for ged-emacs-devel@m.gmane.org; Thu, 08 Mar 2018 09:06:03 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:58021) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1etwB5-0007VF-Tg for emacs-devel@gnu.org; Thu, 08 Mar 2018 09:05:52 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1etwB0-0005Ct-Ap for emacs-devel@gnu.org; Thu, 08 Mar 2018 09:05:51 -0500 Original-Received: from mail-qk0-x236.google.com ([2607:f8b0:400d:c09::236]:40054) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1etwB0-0005Cn-6M; Thu, 08 Mar 2018 09:05:46 -0500 Original-Received: by mail-qk0-x236.google.com with SMTP id o25so6854225qkl.7; Thu, 08 Mar 2018 06:05:46 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=subject:to:cc:references:from:message-id:date:user-agent :mime-version:in-reply-to:content-language:content-transfer-encoding; bh=fSzOTwSv7iHnhp8W659fqO1142K1CPAVMGO0ROPxWH8=; b=qHI1GLX3WOd2i9YzF0ECBNW/Qn8SnE/MZKrJqH3nEnnRY5w6N0h2p1OEUS24igaLkS odt2g4slGTOLTlS7xKfb7UrXRKXS8Yr+0yfHub/TK5v1MjDjj5L855G1YwcQYRM4ugvO uApq2HzSyk3W8PwpfVNA6ymG1wIg8p5W2XfpNrJll0q8xC+aneXb6oexnVA+4Wxrknfr bfstcHQjKUFvSNlQM72q9seUDjIZTHqA54Jej5ECTIzmVOM1BKQmaVQ97YhNSiVBZCSx PaP0RoP3JaIiuzygiyF+8nYFgGtCOVKnwylTgzXPQqc0QPQqdUovFdeO/p4TQWmxoZpc yCcA== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:subject:to:cc:references:from:message-id:date :user-agent:mime-version:in-reply-to:content-language :content-transfer-encoding; bh=fSzOTwSv7iHnhp8W659fqO1142K1CPAVMGO0ROPxWH8=; b=GKdL2Cptmp54WN+MR5kOisyN8zZ0iZsomV1G/NPIgXFfu5lXV8sarQkud7cFSZ/mGD bZOi3qW+1+q8PWUGWV1PDDU9X8PIzi43ymHvQwWLr89MIYs6P+ANtqpGrA/vB0LnTEF5 zzcP53p9CdhSDdEzpM/syoSzcGGSKGSWfz0YEaNtpY/jK/nOqgGKKm4/n+4JM5esmv3e gCCwAUbQdcbRHqVe0bOPXDht80zFrIN6VznGGhFLUGRPK+vkQ0wtqPJFnQWByYaoPCHx OafqaEEIic1av0n436shhdXA3iFnbiPU3eJUiCXMxsO+hENCNSJ78hcsFlEOgaJQFLmG cgVQ== X-Gm-Message-State: AElRT7F8mK8Ot3oTRX7rPFGzRMbOlFhNv4fvPpM4MdasSqZrVR+MJZam 0zvgTx5rfImmGnDN3G+Q70bjH/3B X-Google-Smtp-Source: AG47ELvQVhqk9+I1Yzr4/BPxkxc0zT8gvrDriNyvFUGtn1Bh7ujXoKKTtpwgn44w/jj9TahMNLkYrQ== X-Received: by 10.55.186.194 with SMTP id k185mr38780356qkf.74.1520517945475; Thu, 08 Mar 2018 06:05:45 -0800 (PST) Original-Received: from ?IPv6:2601:184:4180:66e7:a5fa:8a0b:647e:f011? ([2601:184:4180:66e7:a5fa:8a0b:647e:f011]) by smtp.gmail.com with ESMTPSA id o98sm15103742qkh.82.2018.03.08.06.05.44 (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Thu, 08 Mar 2018 06:05:44 -0800 (PST) In-Reply-To: <83h8pqpurw.fsf@gnu.org> Content-Language: en-GB X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-Received-From: 2607:f8b0:400d:c09::236 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.21 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Original-Sender: "Emacs-devel" Xref: news.gmane.org gmane.emacs.devel:223499 Archived-At: On 2018-03-08 08:21, Eli Zaretskii wrote: >> From: Clément Pit-Claudel >> Date: Wed, 7 Mar 2018 17:13:09 -0500 >> >> This version is a bit faster, and it uses 'display (space …) instead of ghost strings: >> ... > > It seems you forgot to post ~/measure-px-widths. Indeed, apologies :/ (defun ~/measure-px-widths (beg end) (let ((widths nil)) (while (< beg end) (push (car (window-text-pixel-size nil beg (1+ beg))) widths) (cl-incf beg)) (nreverse widths))) (defun ~/variable-pitch-indent () (interactive) (save-excursion (let ((spine []) (prev-bol nil) (prev-eol nil)) (goto-char (point-min)) (while (not (eobp)) (let ((bol (point))) (back-to-indentation) (unless (eolp) (let* ((indentation-amount (current-column)) (trunc-spine-to (min (length spine) indentation-amount))) (setq spine (seq-subseq spine 0 trunc-spine-to)) ;; Extend spine based on previous line (when (and prev-bol (< (length spine) indentation-amount)) (let ((beg (+ prev-bol (length spine))) (end (min prev-eol (+ prev-bol indentation-amount)))) (setq spine (vconcat spine (~/measure-px-widths beg end))))) (setq prev-bol bol prev-eol (point-at-eol)))) (dotimes (idx (min (length spine) (- (point) bol))) (let ((w (aref spine idx))) (put-text-property (+ bol idx) (+ bol idx 1) 'display `(space :width (,w))))) (forward-line 1))))))