From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Keith David Bershatsky Newsgroups: gmane.emacs.bugs Subject: bug#15189: 24.3.50; display-buffer does not work well with custom frames. Date: Wed, 28 Aug 2013 09:35:12 -0700 Message-ID: <1C47ED2B-8360-41D1-8C4E-6A30392846EC@lawlist.com> References: <521C4B77.80107@gmx.at> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 (Apple Message framework v1084) Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: quoted-printable X-Trace: ger.gmane.org 1377707782 8039 80.91.229.3 (28 Aug 2013 16:36:22 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Wed, 28 Aug 2013 16:36:22 +0000 (UTC) Cc: 15189@debbugs.gnu.org To: martin rudalics Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Wed Aug 28 18:36:25 2013 Return-path: Envelope-to: geb-bug-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 1VEijE-0007Gi-0M for geb-bug-gnu-emacs@m.gmane.org; Wed, 28 Aug 2013 18:36:20 +0200 Original-Received: from localhost ([::1]:37341 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VEijD-0000wW-GS for geb-bug-gnu-emacs@m.gmane.org; Wed, 28 Aug 2013 12:36:19 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:33715) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VEij2-0000ut-TH for bug-gnu-emacs@gnu.org; Wed, 28 Aug 2013 12:36:14 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1VEiix-0005HF-8k for bug-gnu-emacs@gnu.org; Wed, 28 Aug 2013 12:36:08 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:39345) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VEiiw-0005H4-WF for bug-gnu-emacs@gnu.org; Wed, 28 Aug 2013 12:36:03 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1VEiiv-0006yC-UE for bug-gnu-emacs@gnu.org; Wed, 28 Aug 2013 12:36:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Keith David Bershatsky Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Wed, 28 Aug 2013 16:36:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 15189 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: Original-Received: via spool by 15189-submit@debbugs.gnu.org id=B15189.137770771926733 (code B ref 15189); Wed, 28 Aug 2013 16:36:01 +0000 Original-Received: (at 15189) by debbugs.gnu.org; 28 Aug 2013 16:35:19 +0000 Original-Received: from localhost ([127.0.0.1]:33660 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1VEiiE-0006x6-OX for submit@debbugs.gnu.org; Wed, 28 Aug 2013 12:35:19 -0400 Original-Received: from cobb.liquidweb.com ([50.28.13.150]:37301) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1VEiiC-0006wv-3Z for 15189@debbugs.gnu.org; Wed, 28 Aug 2013 12:35:17 -0400 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=lawlist.com; s=default; h=To:References:Message-Id:Content-Transfer-Encoding:Cc:Date:In-Reply-To:From:Content-Type:Mime-Version:Subject; bh=Z5wnP1WGj1MJgu4HjBEHNNQOomWgMn3+FNtfrXHTQRo=; b=WBljOTtq5DXTMpKl2WHi5tdksTCAE+za3gXZJympJcVSbNJFxDCKBaH2KbOdjL00lclhnht91TNGNNqqveFF/QNXcUE9bb0kyKREBNYbSW90nqlSb2pYLvBzP64wctki; Original-Received: from cpe-75-85-5-102.socal.res.rr.com ([75.85.5.102]:50236 helo=[192.168.0.3]) by cobb.liquidweb.com with esmtpa (Exim 4.80.1) (envelope-from ) id 1VEiiA-0002Ki-G3; Wed, 28 Aug 2013 12:35:14 -0400 In-Reply-To: <521C4B77.80107@gmx.at> X-Mailer: Apple Mail (2.1084) X-AntiAbuse: This header was added to track abuse, please include it with any abuse report X-AntiAbuse: Primary Hostname - cobb.liquidweb.com X-AntiAbuse: Original Domain - debbugs.gnu.org X-AntiAbuse: Originator/Caller UID/GID - [47 12] / [47 12] X-AntiAbuse: Sender Address Domain - lawlist.com X-Get-Message-Sender-Via: cobb.liquidweb.com: authenticated_id: lawlist/from_h X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x X-Received-From: 140.186.70.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:77785 Archived-At: I have consolidated all of the magic into the display-buffer-alist, so = that it can be used for both types of situations -- i.e., file-visiting, = and non-file-visiting buffers. This revision longer relies upon the = display-buffer-function, which is slated to be discontinued. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; EXAMPLE = ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun example () (interactive) (lawlist-find-file "*bar*") (set-frame-height (selected-frame) 15) (set-frame-width (selected-frame) 80) (set-frame-position (selected-frame) 0 0) (message "\*bar\* appears in frame name SYSTEM.") (sit-for 3) (lawlist-find-file "foo.txt") (set-frame-height (selected-frame) 15) (set-frame-width (selected-frame) 80) (set-frame-position (selected-frame) 100 100) (message "\"foo.txt\" appears in frame name MAIN.") (sit-for 3) (lawlist-find-file "doe.org") (set-frame-height (selected-frame) 15) (set-frame-width (selected-frame) 80) (set-frame-position (selected-frame) 200 200) (message "\"doe.org\" appears in frame name ORG.") (sit-for 3) (lawlist-find-file "*buffer-filename-non-regexp*") (set-frame-height (selected-frame) 15) (set-frame-width (selected-frame) 80) (set-frame-position (selected-frame) 300 300) (message "\*IS\* buffer-filename. \*NOT\* defined by any special = regexp.") (sit-for 8) (display-buffer (get-buffer-create "*get-buffer-create-example*")) (set-frame-height (selected-frame) 15) (set-frame-width (selected-frame) 80) (set-frame-position (selected-frame) 400 400) (message "\*NOT\* buffer-filename. \*\*IS\*\* defined by = main-buffer-regexp.") (sit-for 8) (display-buffer (get-buffer-create "*get-buffer-create-UNDEFINED*")) (message "\*NOT\* buffer-filename. \*NOT\* defined by any special = regexp.") (sit-for 8) (kill-buffer "*bar*") (kill-buffer "foo.txt") (kill-buffer "doe.org") (kill-buffer "*buffer-filename-non-regexp*") (kill-buffer "*get-buffer-create-example*") (kill-buffer "*get-buffer-create-UNDEFINED*") (make-frame) (delete-frame (get-frame "SYSTEM")) (delete-frame (get-frame "MAIN")) (delete-frame (get-frame "ORG")) (delete-frame (get-frame "MISCELLANEOUS")) (message "THE END.")) ;;;;;;;;;;;;;;;;; DISPLAY-BUFFER-ALIST and DISPLAY-BUFFER = ;;;;;;;;;;;;;;;;;;;;;;;;;;; (defvar regexp-frame-names = "^\\(?:MAIN\\|SYSTEM\\|ORG\\|MISCELLANEOUS\\)$" "Regexp matching frames with specific names.") (defvar system-buffer-regexp nil "Regexps matching `buffer-filename` for frame name `SYSTEM`.") (setq system-buffer-regexp '("*scratch*" "*bar*")) (defvar main-buffer-regexp nil "Regexps matching `buffer-filename` for frame name `MAIN`.") (setq main-buffer-regexp '("\\.txt" "\\.tex" "\\.el" "\\.yasnippet" = "\\*get-buffer-create-example\\*")) (defvar org-buffer-regexp nil "Regexps matching `buffer-filename` for frame name `ORG`.") (setq org-buffer-regexp '("[*]todo-list[*]" "\\.org_archive" "\\.org")) (defvar buffer-filename nil) = ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;= ;;;;;;;;;;; (defun lawlist-find-file (&optional buffer-filename) "With assistance from the display-buffer-alist, locate or create a = specific frame, and then open the file." (interactive) (unless buffer-filename (setq buffer-filename (read-file-name "Select = File: "))) ;; If using a version of Emacs built `--with-ns`, then user may = substitute: ;; (unless buffer-filename (setq buffer-filename ;; (ns-read-file-name "Select File:" "~/" t nil))) (if buffer-filename (display-buffer (find-file-noselect buffer-filename)))) (setq display-buffer-alist '((".*" . = (lawlist-display-buffer-pop-up-frame)))) (defun lawlist-display-buffer-pop-up-frame (buffer alist) (cond ((regexp-match-p org-buffer-regexp (buffer-name buffer)) (if (frame-exists "ORG") (switch-to-frame "ORG") ;; If unnamed frame exists, then take control of it. (catch 'break (dolist (frame (frame-list)) (if (not (string-match regexp-frame-names (frame-parameter = frame 'name))) (throw 'break (progn (switch-to-frame (frame-parameter frame 'name)) (set-frame-name "ORG")))))) ;; If dolist found no unnamed frame, then create / name it. (if (not (frame-exists "ORG")) (progn (make-frame) (set-frame-name "ORG"))) ) (set-window-buffer (frame-selected-window) (buffer-name buffer))) ((regexp-match-p main-buffer-regexp (buffer-name buffer)) (if (frame-exists "MAIN") (switch-to-frame "MAIN") ;; If unnamed frame exists, then take control of it. (catch 'break (dolist (frame (frame-list)) (if (not (string-match regexp-frame-names (frame-parameter = frame 'name))) (throw 'break (progn (switch-to-frame (frame-parameter frame 'name)) (set-frame-name "MAIN")))))) ;; If dolist found no unnamed frame, then create / name it. (if (not (frame-exists "MAIN")) (progn (make-frame) (set-frame-name "MAIN"))) ) (set-window-buffer (frame-selected-window) (buffer-name buffer))) ((regexp-match-p system-buffer-regexp (buffer-name buffer)) (if (frame-exists "SYSTEM") (switch-to-frame "SYSTEM") ;; If unnamed frame exists, then take control of it. (catch 'break (dolist (frame (frame-list)) (if (not (string-match regexp-frame-names (frame-parameter = frame 'name))) (throw 'break (progn (switch-to-frame (frame-parameter frame 'name)) (set-frame-name "SYSTEM")))))) ;; If dolist found no unnamed frame, then create / name it. (if (not (frame-exists "SYSTEM")) (progn (make-frame) (set-frame-name "SYSTEM"))) ) (set-window-buffer (frame-selected-window) (buffer-name buffer))) ((and (not (regexp-match-p org-buffer-regexp (buffer-name buffer))) (not (regexp-match-p main-buffer-regexp (buffer-name buffer))) (not (regexp-match-p system-buffer-regexp (buffer-name = buffer))) buffer-filename ) (if (frame-exists "MISCELLANEOUS") (switch-to-frame "MISCELLANEOUS") ;; If unnamed frame exists, then take control of it. (catch 'break (dolist (frame (frame-list)) (if (not (string-match regexp-frame-names (frame-parameter = frame 'name))) (throw 'break (progn (switch-to-frame (frame-parameter frame 'name)) (set-frame-name "MISCELLANEOUS")))))) ;; If dolist found no unnamed frame, then create / name it. (if (not (frame-exists "MISCELLANEOUS")) (progn (make-frame) (set-frame-name "MISCELLANEOUS")))) (set-window-buffer (frame-selected-window) (buffer-name buffer))) (t (set-window-buffer (split-window-horizontally) (buffer-name = buffer))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; GENERIC REGEXP FUNCTION = ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun regexp-match-p (regexps string) (catch 'matched (dolist (regexp regexps) (if (string-match regexp string) (throw 'matched t))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;; GENERIC BUFFER / FRAME UTILITIES = ;;;;;;;;;;;;;;;;;;;;;;;; (defun frame-exists (frame-name) (not (eq nil (get-frame frame-name)))) (defun get-frame-name (&optional frame) "Return the string that names FRAME (a frame). Default is selected = frame." (unless frame (setq frame (selected-frame))) (if (framep frame) (cdr (assq 'name (frame-parameters frame))) (error "Function `get-frame-name': Argument not a frame: `%s'" = frame))) (defun get-frame (frame) "Return a frame, if any, named FRAME (a frame or a string). If none, return nil. If FRAME is a frame, it is returned." (cond ((framep frame) frame) ((stringp frame) (catch 'get-a-frame-found (dolist (fr (frame-list)) (when (string=3D frame (get-frame-name fr)) (throw 'get-a-frame-found fr))) nil)) (t (error "Function `get-frame-name': Arg neither a string nor a frame: = `%s'" frame)))) (defun switch-to-frame (frame-name) (let ((frames (frame-list))) (catch 'break (while frames (let ((frame (car frames))) (if (equal (frame-parameter frame 'name) frame-name) (throw 'break (select-frame-set-input-focus frame)) (setq frames (cdr frames)))))))) ;;;;;;;;;;;;;;;;;;;;;;;; IF BUILT --with-ns, THEN ALSO USE = ;;;;;;;;;;;;;;;;;;;;;;;;;; (defalias 'ns-find-file 'lawlist-ns-find-file) (defun lawlist-ns-find-file () "Do a `find-file' with the `ns-input-file' as argument." (interactive) (let* ((f (file-truename (expand-file-name (pop ns-input-file) command-line-default-directory))) (file (find-file-noselect f)) (bufwin1 (get-buffer-window file 'visible)) (bufwin2 (get-buffer-window "*scratch*" 'visible))) (cond (bufwin1 (select-frame (window-frame bufwin1)) (raise-frame (window-frame bufwin1)) (select-window bufwin1)) ((and (eq ns-pop-up-frames 'fresh) bufwin2) (ns-hide-emacs 'activate) (select-frame (window-frame bufwin2)) (raise-frame (window-frame bufwin2)) (select-window bufwin2) (lawlist-find-file f)) (t (ns-hide-emacs 'activate) (lawlist-find-file f))))) = ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;= ;;;;;;;;;;;=