gmane.emacs.sources

that should be "iswitch-menu" (was Re: iswitch-buffer release 1.0)

Joost Diepenmaat — 2008-10-06T18:29:59

egg -> face. the name of the extension is "iswitch-menu", not iswitch-buffer.

iswitch-buffer release 1.0

Joost Diepenmaat — 2008-10-06T18:26:57

iswitch-menu is an Emacs extension that aims to make the console menu interface for emacs much efficient and easy to use, based on the iswitchb mode for switching buffers by substring/regexp matching Latest versions are always at: http://github.com/joodie/iswitch-menu/ More info and screenshots: http://joost.zeekat.nl/2008/09/14/better-consolekeyboard-menus-for-emacs/ Please feel free to post questions or suggestions for improvent. code follows: ;;; iswitch-menu.el --- Use iswitch to access menus ;; Copyright (C) 2008 Joost Diepenmaat ;; Author: Joost Diepenmaat zeekat.nl> ;; Keywords: matching, frames, terminals, menus ;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation, either version 2 of the License, or ;; (at your option) any later version. ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see . ;;; Commentary: ;; ;; SYNOPSIS ;; ;; This code replaces tmm-prompt with something a lot more convenient. ;; Prompted by the horrible navigation menus in the otherwise ;; *excellent* emacs-rails library, this code should make using menus ;; without a mouse or X easy on the brain and fingers. ;; ;; to use: put the following in your init file and make sure this ;; file is in your load-path: ;; ;; (require 'iswitch-menu) ;; ;; you can then access the console menu by running ;; M-x tmm-menubar ;; note that this will work even if you're using a GUI menu bar ;; ;; CUSTOMIZATION ;; ;; You can customize the menus using the iswitch-menu customization ;; group: ;; ;; M-x customize-group iswitch-menu ;; ;; you can toggle iswitch-menu-override-tmm-prompt if you want to use ;; iswitch-menu-prompt only for specific modes or commands. ;; ;; REPORTING BUGS ;; ;; This code should work as advertized. If you find any situations ;; where it doesn't work, try the the latest version from ;; http://github.com/joodie/iswitch-menu/ ;; If that doesn't work either, please contact the author. If any ;; errors occur during the creation or executiong of a particular ;; menu, please provide the output of M-x iswitch-menu-report as run ;; immediately after the error. ;; ;; USING THIS CODE WITH EMACS-RAILS ;; ;; To use with emacs-rails navigation: same as above, and switch on ;; the Rails Always Use Text Menus option in the rails customization ;; group. ;; ;; Alternatively, if you don't like to globally override tmm-prompt, ;; get a version of emacs-rails with configurable text menus, like ;; this one: http://github.com/remvee/emacs-rails/tree/master and ;; switch on rails-always-use-text-menu and set ;; rails-text-menu-function to #'iswitch-menu-prompt ;; ;;; History: ;; ;; Release 1.0 - 2008/10/04 - Set last-command-event when selecting ;; menu items this means "Paste from kill menu" now works and ;; possibly fixes some other issues. As far as I can tell, the code ;; should now work for any menu that works with tmm-prompt or ;; x-popup-menu. ;; ;; 2008/10/03 - Evaluated titles in extended menu items now work. As ;; far as I can tell, this means the menu/keymap parsing code is now ;; complete. ;; ;; 2008/09/24 - More inline documentation; more conformance to the ;; elisp conventions. ;; ;; 2008/09/23 - and earlier: less documented versions. ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Code: (eval-when-compile (require 'cl)) (require 'tmm) (defgroup iswitch-menu nil "keyboard driven menus based on iswitchb" :group 'menu :prefix "iswitch-menu") (defcustom iswitch-menu-checked-toggle-mark "(*)" "A string indicating a menu item is a checked toggle item." :group 'iswitch-menu :type 'string) (defcustom iswitch-menu-unchecked-toggle-mark "( )" "A string indicating a menu item is an unchecked toggle item." :group 'iswitch-menu :type 'string) (defcustom iswitch-menu-checked-radio-mark "[*]" "A string indicating a menu item is a checked radio item." :group 'iswitch-menu :type 'string) (defcustom iswitch-menu-unchecked-radio-mark "[ ]" "A string indicating a menu item is an unchecked radio item." :group 'iswitch-menu :type 'string) (defcustom iswitch-menu-override-tmm-prompt t "If true, override `tmm-prompt' to use `iswitch-menu-prompt'. this means all `text-mode' menus will use iswitch-menu" :group 'iswitch-menu :type 'boolean) ;; this will store debug info (defvar iswitch-menu-parse-error :no-error) (defvar iswitch-menu-captured-keymap :none) (defvar iswitch-menu-last-chosen :none) (defvar iswitch-menu-last-single-prompt :none) ;; adapted from iswitchb.el, Kin Cho (defun iswitch-menu-single-prompt (prompt items) "Display a non-nested menu (using `iswitchb'). PROMPT is a string and ITEMS is an alist of options ((TITLE . SOMETHING) ...). Return the selected cons." (setq iswitch-menu-last-single-prompt items) (let ((iswitchb-make-buflist-hook (lambda () (setq iswitchb-temp-buflist (mapcar #'car items))))) (let ((r (assoc (iswitchb-read-buffer prompt) items))) (setq last-command-event (car r)) ; this is used by "edit > paste from kill menu" & others r))) (defun iswitch-menu-nested-prompt (prompt items) "Display a possibly nested menu (using `iswitchb'). PROMPT is a string and ITEMS is an alist consisting of (TITLE . DEFINITION) pairs. DEFINITIONs are cons cells containing (:result . RESULT) or (:menu . ALIST), where RESULT is returned if the user chooses it, and ALIST is a submenu definition" (let ((chosen (iswitch-menu-single-prompt (concat prompt " > ") items))) (when chosen (setq iswitch-menu-last-chosen chosen) (case (cadr chosen) (:result (cddr chosen)) (:menu (iswitch-menu-nested-prompt (concat prompt " > " (car chosen)) (cddr chosen))) (t chosen))))) ;; see elisp manual section "Extended Menu Items" (defun iswitch-menu-parse-extended-menu-item (menu-item) "Convert an extended MENU-ITEM into a form suitable for `iswitch-menu'. See also the elisp manual section on Extended Menu Items." (when (and (cdr menu-item) ;; skip non-selectable menu-items (consp (cdr menu-item)) (consp (cddr menu-item))) (let* ((title (cadr menu-item)) (binding (caddr menu-item)) (props (if (keywordp (cadddr menu-item)) (cdddr menu-item) (cddddr menu-item))) (button (getf props :button))) (unless (stringp title) (setq title (eval title))) (if (getf props :filter) (setq binding (funcall (getf props :filter) binding))) (if (keymapp binding) (setq binding (cons :menu (iswitch-menu-parse-keymap binding))) (setq binding (cons :result binding))) (if (and (eval (getf props :enable t)) (eval (getf props :visible t))) (if button (let* ((ticked (eval (cdr button))) (mark (if (eql :toggle (car button)) (if ticked iswitch-menu-checked-toggle-mark iswitch-menu-unchecked-toggle-mark) (if ticked iswitch-menu-checked-radio-mark iswitch-menu-unchecked-radio-mark)))) (cons (concat title " " mark) binding)) (cons title binding)) nil)))) (defun iswitch-menu-parse-menu-item (menu-item) "Convert a MENU-ITEM into a form suitable for `iswitch-menu'." (when (and menu-item (consp menu-item) (cdr menu-item)) (cond ((eql (car menu-item) 'menu-item) (iswitch-menu-parse-extended-menu-item menu-item)) ((stringp (car menu-item)) ;; simple menu item (let ((binding (if (and (consp (cdr menu-item)) (stringp (cadr menu-item)) ;; help string (cddr menu-item)) ;; has a real binding (cddr menu-item) (cdr menu-item)))) (cons (car menu-item) (if (keymapp binding) (cons :menu (iswitch-menu-parse-keymap binding)) (cons :result binding))))) (t nil)))) (defun iswitch-menu-parse-keymap (keymap) "Convert a KEYMAP menu into a form suitable for `iswitch-menu'." (let ((orig-keymap keymap)) (if (and (symbolp keymap) (keymapp keymap)) (setq keymap (symbol-value keymap))) (if (keymapp keymap) (let ((result)) (map-keymap (lambda (key def) (let ((p (iswitch-menu-parse-menu-item def))) (if p (setq result (cons p result))))) keymap) (cons (if (consp (cadr keymap)) (cadr (cadr keymap)) (cadr keymap)) result) (nreverse result)) (remove-if #'null (mapcar #'iswitch-menu-parse-menu-item keymap))))) (defun iswitch-menu-prompt (menu &rest) "A drop-in replacement for `tmm-prompt' and `x-popup-menu' using `iswitchb'. Should make using MENUs from the console / keyboard faster and more comfortable." (setq iswitch-menu-captured-keymap menu) (if (or (keymapp menu) (keymapp (car menu))) (progn (let ((r (iswitch-menu-nested-prompt "Menu" (iswitch-menu-parse-keymap menu)))) (call-interactively (cond ((symbolp r) r) ((and (consp r) (consp (car r)) (eql 'lambda (cadr r))) (cdr r)))))) (iswitch-menu-nested-prompt (caadr menu) (remove-if #'null (mapcar #'iswitch-menu-parse-menu-item (cdadr menu)))))) (defadvice tmm-prompt (around use-iswitch-menu-prompt (menu &rest rest)) "Call either `tmm-prompt' or `iswitch-menu-prompt'. Which is called depends on the `iswitch-menu-override-tmm-prompt' customization setting" (if iswitch-menu-override-tmm-prompt (iswitch-menu-prompt menu) ad-do-it)) (ad-enable-advice #'tmm-prompt 'around 'use-iswitch-menu-prompt) (ad-activate #'tmm-prompt) (defun iswitch-menu-report () "Show debug information for `iswitch-menu'." (interactive) (let ((buf (generate-new-buffer "*ISWITCH-MENU-DEBUG*"))) (display-buffer buf) (set-buffer buf) (insert "iswitch-menu debug info:\n\n") (dolist (s '(iswitch-menu-parse-error iswitch-menu-captured-keymap iswitch-menu-last-chosen iswitch-menu-last-single-prompt)) (insert (symbol-name s) ": " (pp-to-string (symbol-value s)) "\n\n")))) (provide 'iswitch-menu) ;;; iswitch-menu.el ends here

Re: contentswitch.el --- switch to buffer/file by content

2008-10-06T15:41:52

Actually, it's not very hard to do if I remember the details of contentswitch.el correctly. Someone needs to fork contentswitch.el and separate the presentation and the backend in it. It involves modifying 2-3 functions at most and it's mostly about rearranging code. When the backend is separated then an anything source can require the modified contentswitch package and call the backend functions and do the presentation via anything. I'm fairly sure anything.el itself doesn't need to be modified at all, since the presentation involves merely using text properties, so it should work out of the box. Since you seem motivated I suggest you take a look at how contentswitch.el work and do the separation of backend and presentation yourself. When it's done then creating and anything source for the modified contentswitch should be fairly straightforward.

Re: contentswitch.el --- switch to buffer/file by content

Ted Zlatanov — 2008-10-06T14:16:02

On Sat, 04 Oct 2008 18:10:05 +0900 (JST) rubikitch< at >ruby-lang.org wrote: r> From: Ted Zlatanov lifelogs.com> r> Subject: Re: contentswitch.el --- switch to buffer/file by content r> Date: Thu, 02 Oct 2008 12:51:56 -0500 r> Yes, it is only a fake as implied by the name. I didn't know the functionality was fake as well ;) r> Yes, I want to use contentswitch within anything. How do you think that will work? contentswitch shows live matches as you type; will that integrate easily with anything.el? The calculator source in anything-sources.el is a nice demo of dynamic result updates, so maybe it will work. Anyhow, the more pertinent question is, will you implement it or are you waiting for someone to do it? Ted

Re: contentswitch.el --- switch to buffer/file by content

2008-10-04T09:10:05

From: Ted Zlatanov lifelogs.com> Subject: Re: contentswitch.el --- switch to buffer/file by content Date: Thu, 02 Oct 2008 12:51:56 -0500 Yes, it is only a fake as implied by the name. Yes, I want to use contentswitch within anything. -- rubikitch Blog: http://d.hatena.ne.jp/rubikitch/ Site: http://www.rubyist.net/~rubikitch/

Re: contentswitch.el --- switch to buffer/file by content

Ted Zlatanov — 2008-10-02T17:51:56

On Sun, 24 Aug 2008 07:31:49 +0900 (JST) rubikitch< at >ruby-lang.org wrote: r> From: "spamfilteraccount< at >gmail.com" gmail.com> r> Subject: Re: contentswitch.el --- switch to buffer/file by content r> Date: Wed, 20 Aug 2008 09:30:34 -0700 (PDT) r> Here it is. r> http://d.hatena.ne.jp/unkounko1/20080819/1219151374 I finally got to this. I can't read the Japanese, but the code doesn't really integrate contentswitch with anything.el. Rather, it creates a fake contentswitch-like matcher. For me it's broken--nothing displays for any pattern. I haven't played with the new anything.el release, but it looks promising. I hope I won't have to change my current configuration too much to use it. Are you interested in integrating contentswitch with it? Thanks Ted

Gnus notify and Newsticker notify.

Andy Stewart — 2008-10-01T18:15:17

Hi, everyone! I have write some functions to notify gnus news and newsticker news in mode-line when coming new news. ;; Below is functions and configuration with gnus notify (defface gnus-update-news-modeline-face '((((class color) (background dark)) (:foreground "Gold"))) "Face for highlighting gnus news number in mode line" :group 'gnus) (defvar gnus-update-news-string nil "The highlight string of `global-mode-string' after call `guns-update-news-string'.") (defvar gnus-update-news-repeat 100 "The repeat second that call `gnus-update-news'.") (unless (member 'gnus-update-news-string global-mode-string) (setq global-mode-string (append global-mode-string (list 'gnus-update-news-string)))) (defun gnus-update-news () "Update gnus news and display notify message in mode-line." (interactive) (let (gnus-news-number) (force-mode-line-update t) ;; (gnus-group-get-new-news) (flet ((message (&rest args))) (gnus-group-get-new-news)) (setq gnus-news-number (gnus-get-unread-news-number)) (if (> gnus-news-number 0) (progn ;; the property `risky-local-variable' is a security measure for mode line ;; variable that have properties (put 'gnus-update-news-string 'risky-local-variable t) (setq gnus-update-news-string (propertize (format " [Gnus: %d]" gnus-news-number) 'face 'gnus-update-news-modeline-face))) (setq gnus-update-news-string "")))) (defun gnus-get-unread-news-number () "Get the total number of unread news of gnus group." (let (total-unread-news-number) (setq total-unread-news-number 0) (mapc '(lambda (g) (let* ((group (car g)) (unread (gnus-group-unread group))) (when (and (numberp unread) (> unread 0)) (setq total-unread-news-number (+ total-unread-news-number unread))))) gnus-newsrc-alist) total-unread-news-number)) (run-with-timer 0 gnus-update-news-repeat 'gnus-update-news) ;update gnus and display notify in mode-line ;; Below is functions and configuration with newsticker notify ;; NOTE: I use Newsticker 1.99, early version couldn't use those functions. (defface newsticker-update-news-modeline-face '((((class color) (background dark)) (:foreground "khaki"))) "Face for highlighting newsticker news number in mode line" :group 'newsticker) (defvar newsticker-update-news-string nil "The highlight string of `global-mode-string' after call `newsticker-update-news'.") (defvar newsticker-update-news-repeat 60 "The repeat second that `newsticker-update-news'.") (unless (member 'newsitcker-update-news-string global-mode-string) (setq global-mode-string (append global-mode-string (list 'newsticker-update-news-string)))) (defun newsticker-update-news () "Update newsticker news and display notify message in mode-line." (interactive) (let (newsticker-news-number) (force-mode-line-update t) (setq newsticker-news-number (newsticker--stat-num-items-total 'new)) (if (> newsticker-news-number 0) (progn ;; the property `risky-local-variable' is a security measure for mode line ;; variable that have properties (put 'newsticker-update-news-string 'risky-local-variable t) (setq newsticker-update-news-string (propertize (format " [Newsticker: %d]" newsticker-news-number) 'face 'newsticker-update-news-modeline-face))) (setq newsticker-update-news-string "")))) (run-with-timer 0 newsticker-update-news-repeat 'newsticker-update-news) ;update newsticker and display notify in mode-line Enjoy! -- Andy Stewart

Re: anything.el The Next Generation!

2008-09-30T20:04:04

From: "spamfilteraccount< at >gmail.com" gmail.com> Subject: Re: anything.el The Next Generation! Date: Mon, 29 Sep 2008 23:07:31 -0700 (PDT) That's a good idea. I'll create both Japanese and English Google Groups soon. Anything is very popular in Japanese blogosphere. -- rubikitch Blog: http://d.hatena.ne.jp/rubikitch/ Site: http://www.rubyist.net/~rubikitch/

Re: anything.el The Next Generation!

Phil Jackson — 2008-09-30T15:46:34

I can't see the original post (even on groups.google.com) or any new info on the wiki about anything.el. Can someone nudge me in the right direction please? Cheers, Phil

Re: anything.el The Next Generation!

2008-09-30T06:07:31

Why don't you (as the current maintainer) start a Google Group for anything.el? It would be easier to follow than tracking the changes of the Anything page on EmacsWiki when people add questions to it. I saw some enhancement requests went unanswered there which is less likely to happen with a Group.

Re: anything.el The Next Generation!

2008-09-30T04:30:46

From: gmane fastmail.fm> Subject: Re: anything.el The Next Generation! Date: Mon, 29 Sep 2008 23:40:45 +0200 Currently none. -- rubikitch Blog: http://d.hatena.ne.jp/rubikitch/ Site: http://www.rubyist.net/~rubikitch/

Re: anything.el The Next Generation!

gmane — 2008-09-29T21:40:45

Le Sun, 24 Aug 2008 19:55:07 +0200, ruby-lang.org> a écrit: Is there any user mailing list to discuss anything ?

Try to use my multi-term.el.

Andy Stewart — 2008-09-29T13:43:42

Hi, guys! Try to use my multi-term.el. Command "multi-term" for create new term buffer. Command "multi-term-next" and "multi-term-prev" can switch with term buffers. Enjoy! :) Andy. _______________________________________________ gnu-emacs-sources mailing list gnu-emacs-sources< at >gnu.org http://lists.gnu.org/mailman/listinfo/gnu-emacs-sources

Re: switch-to-new-buffer

Kevin Rodgers — 2008-09-27T02:38:13

Some code cleanup: * Renamed new-buffer-name to switch-to-new-buffer-name, added doc string and reference from switch-to-new-buffer's doc string * Named lambda form as switch-to-new-buffer-kill-buffer-query-function * Added copying permissions

customize-mismatched

Magnus Henoch — 2008-09-26T20:03:26

_______________________________________________ gnu-emacs-sources mailing list gnu-emacs-sources< at >gnu.org http://lists.gnu.org/mailman/listinfo/gnu-emacs-sources

switch-to-new-buffer

Kevin Rodgers — 2008-09-26T13:54:57

Dedicated to Xah.

Re: fix for security issue with python-21.el/python.el

Dave Love — 2008-09-15T11:40:31

I realize that to make diffs for the fixes I posted before, I transferred edits from before I checked (and corrected!) them on a different system to where the repo is; bother. Here are fixed patches that don't produce a constant result from the test. Full source is at . _______________________________________________ gnu-emacs-sources mailing list gnu-emacs-sources< at >gnu.org http://lists.gnu.org/mailman/listinfo/gnu-emacs-sources

fix for security issue with python-21.el/python.el

Dave Love — 2008-09-10T21:47:30

I got a second-hand report of a security problem with the way the inferior interpreter works in my Python mode. There are patches to work around it below for python-21.el (for Emacs 21) and python.el (for Emacs 22) as well as one which will apply against the forked mode from Emacs 22, although I wouldn't recommend using that version. There's an explanation in the commentary added by the patch. I assume, but don't know, that this is also appropriate for other systems like MS Windows. I've only checked on GNU/Linux, and the Python documentation says the module-loading behaviour is system-dependent. The current versions of the mode are under . _______________________________________________ gnu-emacs-sources mailing list gnu-emacs-sources< at >gnu.org http://lists.gnu.org/mailman/listinfo/gnu-emacs-sources

Re: spartan-wiki.el --- a really spartan personal wiki

Xavier Maillard — 2008-09-09T20:59:10

spamfilteraccount< at >gmail.com a écrit : Sort of. Links/pages linked to a page/link. Indeed.

Re: spartan-wiki.el --- a really spartan personal wiki

2008-09-09T19:20:25

What is backlink support? A list of pages linking to the current page? It shouldn't be too difficult add. I didn't envision anyone putting so much information in it. :) But if linking to an other wiki file is added then it's not an issue, because one can organize the information into separate files.

Re: spartan-wiki.el --- a really spartan personal wiki

Xavier Maillard — 2008-09-09T17:30:17

spamfilteraccount< at >gmail.com a écrit : Do you plan to have backlink support ? I do not need fancy features but I need thigs like: - backlinks - links to other wiki file This is all I am expecting from a wiki "engine". Also, what would happen if your wiki-file is too large to fit in an emacs buffer ?