From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Emanuel Berg Newsgroups: gmane.emacs.help Subject: Re: Seeking advice on writing a "line-based" major mode Date: Fri, 19 Jun 2015 00:01:32 +0200 Organization: Aioe.org NNTP Server Message-ID: <87r3p8brr7.fsf@debian.uxu> References: <87wpzf9q38.fsf@mbork.pl> <2687fb9a-c314-4cf4-8c8a-d959e886ed14@default> <87d20tc8la.fsf@debian.uxu> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: ger.gmane.org 1434664844 5668 80.91.229.3 (18 Jun 2015 22:00:44 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Thu, 18 Jun 2015 22:00:44 +0000 (UTC) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Fri Jun 19 00:00:34 2015 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1Z5hr8-0003Yn-6h for geh-help-gnu-emacs@m.gmane.org; Fri, 19 Jun 2015 00:00:18 +0200 Original-Received: from localhost ([::1]:55060 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Z5hr7-0005AN-7q for geh-help-gnu-emacs@m.gmane.org; Thu, 18 Jun 2015 18:00:17 -0400 Original-Path: usenet.stanford.edu!news.kjsl.com!feeder.erje.net!us.feeder.erje.net!news2.arglkargh.de!news.mixmin.net!aioe.org!.POSTED!not-for-mail Original-Newsgroups: gnu.emacs.help Original-Lines: 62 Original-NNTP-Posting-Host: feB02bRejf23rfBm51Mt7Q.user.speranza.aioe.org Original-X-Complaints-To: abuse@aioe.org User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.4 (gnu/linux) X-Notice: Filtered by postfilter v. 0.8.2 Cancel-Lock: sha1:AeWK3hOtnKGXoKgbDqpU4gUHrew= Mail-Copies-To: never Original-Xref: usenet.stanford.edu gnu.emacs.help:212760 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:105044 Archived-At: Emanuel Berg writes: > I think there are two schools how to do this. > > The easiest way and the way I would do it is to just > write an iteration (or recursive) algorithm to > populate the window with data, which will also serve > as the UI. > > Simply have a key (e.g., RET) execute an algorithm to > act on the data: > > (let ((data (thing-at-point ... ))) (if ( ... > data) (action data) ... )) Here is an example of this method - or check out the file here: http://user.it.uu.se/~embe8573/line-file-table.el See that last comment block for how to invoke AND an interesting thing with point position that differs in byte-compiled vs. normal mode. (defun find-file-at-line (&optional other-window) (interactive "P") (let ((possible-filename (thing-at-point 'filename)) (find-f (if other-window 'find-file-other-window 'find-file)) ) (if (and possible-filename (file-exists-p possible-filename)) (apply find-f `(,possible-filename)) (progn (forward-char 1) (find-file-at-line) )))) (defvar *files* '("~/.emacs" "~/.gnus" "~/.zshrc" "~/.zshenv")) (defun make-table () (insert ";; Either press M-RET or M-r to visit a file.\n" ";; If a file doesn't exist, the next one is tried.\n;;\n" ) (save-excursion ; [1] (dolist (f *files*) (insert (format ";; %s\n" f)) ))) (local-set-key "\M-\r" 'find-file-at-line) ; M-RET (local-set-key "\M-r" 'find-file-at-line) ; M-r (make-table) ;; [1] for whatever reason (?) this isn't applied with ;; ;; emacs -Q -l ~/line-file-table.el ;; ;; but if compiled first ;; ;; emacs --batch -f batch-byte-compile ~/line-file-table.el; ;; emacs -Q -l ~/line-file-table.elc ;; ;; then it works. -- underground experts united http://user.it.uu.se/~embe8573