3:26 p.m.
Приветствую,
Хочу повесить на 'C-A-любаябуква' переход на соответствующую метку
(jump-to-register), но для каждой буквы алфавита писать
соответствующий global-set-key лениво :) как сделать такое на elisp ?
нужно что-то вроде
for i in [a-z] do
(global-set-key i '(lambda () (jump-to-register i)))
done
--
Denis.
Легким движением руки Виндовс превращается в кучу свободного места.
3:58 p.m.
On Fri, 13 Jun 2003 18:26:26 +0400, Denis Dzyubenko wrote:
Хочу повесить на 'C-A-любаябуква' переход на соответствующую
метку
(jump-to-register), но для каждой буквы алфавита писать
соответствующий global-set-key лениво :) как сделать такое на elisp ?
A -- это M, Meta, то есть?
нужно что-то вроде
for i in [a-z] do
(global-set-key i '(lambda () (jump-to-register i)))
done
let и while спасут благородного дона. А вообще, марш читать хотя бы
``Programming in Emacs Lisp: An Introduction'' by Robert J. Chassell.
Берется с любого зеркала GNU.
--
I accept RFC3156 and RFC2440-compatible encrypted mail.
PGP key fingerprint: 123A 7CCE 6E26 6233 0D87 E01A A0F8 3524 FCD8 1841
4:07 p.m.
Vasily Korytov wrote:
: On Fri, 13 Jun 2003 18:26:26 +0400, Denis Dzyubenko wrote:
:
: A -- это M, Meta, то есть?
:
В общем случае не обязательно. Alt и Meta не всегда одно и тоже. С
точки зрения XKB это совершенно разные модификаторы.
--
Andrew W. Nosenko (awn(a)bcs.zp.ua)
5:01 p.m.
On Fri, 13 Jun 2003 18:58:53 +0400,
Vasily Korytov(VK) wrote to xemacs:
VK> A -- это M, Meta, то есть?
нет, Meta у меня клавиша Win; A - это left alt
> нужно что-то вроде
> for i in [a-z] do
> (global-set-key i '(lambda () (jump-to-register i)))
> done
VK> let и while спасут благородного дона. А вообще, марш читать хотя бы
VK> ``Programming in Emacs Lisp: An Introduction'' by Robert J. Chassell.
VK> Берется с любого зеркала GNU.
все никак не хватает времени почитать :( может подскажете в двух
словах?
--
Denis.
Нет, я не хакер, просто плохо спал...
5:48 p.m.
(let ((char ?a))
(while (< char ?z)
(global-set-key (list 'control 'alt char)
`(lambda () (jump-to-register ,char)))
(incf char)))
Но такие штуки в ``Programming in Emacs Lisp: An Introduction'', насколько я
помню, не описывают.
Хотя для любого, кто желает что-то делать на Лиспе, оное введение прочитать
просто необходимо.
Коля.
intro: "DD" == Denis Dzyubenko <shad(a)mail.kubtelecom.ru> writes:
DD> On Fri, 13 Jun 2003 18:58:53 +0400, Vasily Korytov(VK) wrote to xemacs:
VK> A -- это M, Meta, то есть?
DD> нет, Meta у меня клавиша Win; A - это left alt
>> нужно что-то вроде for i in [a-z] do (global-set-key i
'(lambda ()
>> (jump-to-register i))) done
VK> let и while спасут благородного дона. А вообще, марш читать хотя бы
VK> ``Programming in Emacs Lisp: An Introduction'' by Robert J. Chassell.
VK> Берется с любого зеркала GNU.
DD> все никак не хватает времени почитать :( может подскажете в двух словах?
DD> -- Denis.
DD> Нет, я не хакер, просто плохо спал...
8:48 p.m.
On 13 Jun 2003 20:48:34 +0400,
Nickolay Pakoulin(NP) wrote to Russian XEmacs Users:
NP> (let ((char ?a))
NP> (while (< char ?z)
NP> (global-set-key (list 'control 'alt char)
NP> `(lambda () (jump-to-register ,char)))
NP> (incf char)))
(let ((char ?a))
(while (<= char ?z)
(global-set-key (list 'control 'alt char)
`(lambda ()
(interactive)
(jump-to-register char)))
(incf char)))
вот так сообщает об ошибке Symbol's value as variable is void: char,
типа не объявлена переменная?
--
Denis.
Windows хранить в прохладном, темном, недоступном для юзеров месте!
10:52 p.m.
On 13 Jun 2003 20:48:34 +0400, Nickolay Pakoulin wrote:
(let ((char ?a))
(while (< char ?z)
(global-set-key (list 'control 'alt char)
`(lambda () (jump-to-register ,char)))
(incf char)))
Но такие штуки в ``Programming in Emacs Lisp: An Introduction'', насколько я
помню, не описывают.
while есть. Но в одноименной главе рассмотрен пример с setq. let есть в
другой главе. Скрестить эти две вещи предлагается читателю. Если он и
этого не может -- значит, или плохо читал, или негоден для
программирования.
intro: "DD" == Denis Dzyubenko
<shad(a)mail.kubtelecom.ru> writes:
DD> все никак не хватает времени почитать :( может подскажете в двух словах?
Да, Денис, в рассылку кричать всегда время хватает. И отправлять по два
письма -- сначала мне лично, потом в эху -- тоже.
--
I accept RFC3156 and RFC2440-compatible encrypted mail.
PGP key fingerprint: 123A 7CCE 6E26 6233 0D87 E01A A0F8 3524 FCD8 1841
11:13 p.m.
On Sat, 14 Jun 2003 01:52:04 +0400, Vasily Korytov wrote:
On 13 Jun 2003 20:48:34 +0400, Nickolay Pakoulin wrote:
> (let ((char ?a))
> (while (< char ?z)
> (global-set-key (list 'control 'alt char)
> `(lambda () (jump-to-register ,char)))
> (incf char)))
>
> Но такие штуки в ``Programming in Emacs Lisp: An Introduction'', насколько
> я помню, не описывают.
while есть. Но в одноименной главе рассмотрен пример с setq. let есть в
другой главе. Скрестить эти две вещи предлагается читателю. Если он и
этого не может -- значит, или плохо читал, или негоден для
программирования.
Вдогонку: да, backquote там, вроде, нет. Но если бы проблема была в
этом, это был бы _совершенно_ другой вопрос. Просто как небо и земля.
--
I accept RFC3156 and RFC2440-compatible encrypted mail.
PGP key fingerprint: 123A 7CCE 6E26 6233 0D87 E01A A0F8 3524 FCD8 1841
11:26 p.m.
On Sat, 14 Jun 2003 01:52:04 +0400,
Vasily Korytov(VK) wrote to xemacs:
> DD> все никак не хватает времени почитать :( может подскажете
в двух словах?
VK> Да, Денис, в рассылку кричать всегда время хватает. И отправлять по два
ну, если попросить помощи в рассылке это преступление, то тогда сорри,
не думал что такое отношение будет к простой просьбе о помощи.
btw, если придираться к словам - написание письма занимает максимум 5
минут; чтение elisp-intro - явно больше.
VK> письма -- сначала мне лично, потом в эху -- тоже.
за дубликат писем прошу прощения, случайно не ту кнопку нажал
--
Denis.
"...Для продолжения установки Win'XP вставьте 45234-ю дискету..."
11:43 p.m.
On Sat, 14 Jun 2003 02:26:20 +0400, Denis Dzyubenko wrote:
On Sat, 14 Jun 2003 01:52:04 +0400,
Vasily Korytov(VK) wrote to xemacs:
>> DD> все никак не хватает времени почитать :( может подскажете в двух
>> DD> словах?
VK> Да, Денис, в рассылку кричать всегда время хватает. И отправлять по два
ну, если попросить помощи в рассылке это преступление, то тогда сорри,
не думал что такое отношение будет к простой просьбе о помощи.
btw, если придираться к словам - написание письма занимает максимум 5
минут; чтение elisp-intro - явно больше.
Еще раз: помощь разумно давать только тем, кто может ее принять.
Коль скоро ты хрен знает сколько времени отказываешься прочесть эту
небольшую книжку даже избирательно, а продолжаешь чуть ли не 24 часа в
сутки висеть на проводе (мыло и рассылка) и твердить, что у тебя нет
времени -- я делаю вывод, что ты не можешь (и я знаю, о чем говорю, черт
возьми; это банальное мозгое＠ство -- нам и себе).
--
I accept RFC3156 and RFC2440-compatible encrypted mail.
PGP key fingerprint: 123A 7CCE 6E26 6233 0D87 E01A A0F8 3524 FCD8 1841
9:30 a.m.
Потерял запятую перед char. См lispref::Backquote.
Коля.
DD> On 13 Jun 2003 20:48:34 +0400,
DD> Nickolay Pakoulin(NP) wrote to Russian XEmacs Users:
DD>
DD> NP> (let ((char ?a))
DD> NP> (while (< char ?z)
DD> NP> (global-set-key (list 'control 'alt char)
DD> NP> `(lambda () (jump-to-register ,char)))
DD> NP> (incf char)))
DD>
DD> (let ((char ?a))
DD> (while (<= char ?z)
DD> (global-set-key (list 'control 'alt char)
DD> `(lambda ()
DD> (interactive)
DD> (jump-to-register char)))
DD> (incf char)))
DD>
DD> вот так сообщает об ошибке Symbol's value as variable is void: char,
DD> типа не объявлена переменная?
DD>
9:38 p.m.
On 16 Jun 2003 12:30:35 +0400,
Nickolay Pakoulin(NP) wrote to Russian XEmacs Users:
NP> Потерял запятую перед char. См lispref::Backquote.
ок, про backquote еще не прочитал, но из прочитанного elisp-intro
узнал про int-to-char и все заработало:
(let ((char (char-to-int ?a)))
(while (<= char ?z)
(global-set-key (list 'control 'alt char)
`(lambda ()
(interactive)
(jump-to-register (int-to-char ,char))))
(incf char)))
Спасибо огромное!
--
Denis.
"...Для продолжения установки Win'XP вставьте 45234-ю дискету..."
7607
days inactive
7617
days old
11 comments
4 participants
participants (4)
-
Andrew W. Nosenko -
Denis Dzyubenko -
Nickolay Pakoulin -
Vasily Korytov