[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Spanish notes added to keyboard shortcuts (Quick Notes)
From: |
Carlos Betancourt |
Subject: |
Spanish notes added to keyboard shortcuts (Quick Notes) |
Date: |
10 Nov 2002 00:25:02 +0100 |
Hello Lilyponders!
I've added spanish-note-replacements to lilypond-mode.el
Lilypond version: 1.6.6-1 (from Debian Sid)
I read in the ML archives that 1.6.x branch is feature frozen, so should
I generate a patch for version 1.7.x?
Carlos
---8<---cut here---
--- lilypond-mode.el.orig 2002-11-08 11:23:41.000000000 +0100
+++ lilypond-mode.el.new 2002-11-09 23:46:25.000000000 +0100
@@ -9,6 +9,9 @@
;;; * Add PS-compilation, PS-viewing and MIDI-play (29th Aug 2001)
;;; * Keyboard shortcuts (12th Sep 2001)
;;; * Inserting tags, inspired on sgml-mode (11th Oct 2001)
+;;;
+;;; Changed 2002 Carlos Betancourt <address@hidden>
+;;; * Added spanish-note-replacements
;;; Inspired on auctex
@@ -540,6 +543,15 @@
'(("eeses" "eses") ("ees" "es") ("aeses" "asas") ("aes" "as") ("b" "h")
("beses" "heses") ("bes" "b") ("bis" "his") ("bisis" "hisis")))
; add more translations of the note names
+ (setq spanish-note-replacements
+ '(("c" "do") ("d" "re") ("e" "mi") ("f" "fa") ("g" "sol") ("a" "la")
("b" "si")
+ ("cis" "dos") ("cisis" "doss") ("ces" "dob") ("ceses" "dobb")
+ ("dis" "res") ("disis" "ress") ("des" "reb") ("deses" "rebb")
+ ("eis" "mis") ("eisis" "miss") ("ees" "mib") ("eeses" "mibb")
+ ("fis" "fas") ("fisis" "fass") ("fes" "fab") ("feses" "fabb")
+ ("gis" "sols") ("gisis" "solss") ("ges" "solb") ("geses" "solbb")
+ ("ais" "las") ("aisis" "lass") ("aes" "lab") ("aeses" "labb")
+ ("bis" "sis") ("bisis" "siss") ("bes" "sib") ("beses" "sibb")))
(setq other-keys "()<>~}")
(setq accid 0) (setq octav 0) (setq durat "") (setq dots 0)
@@ -604,10 +616,13 @@
(message "Selected Finnish/Deutsch notes")
(sit-for 0 750 1))) ; n
; add more translations of the note names
+ ((string= x "p") (progn (setq note-replacements spanish-note-replacements)
+ (message "Selected Spanish notes")
+ (sit-for 0 750 1))) ; p
((string= x "h")
(progn (message "Insert notes with fewer key strokes. For example
\"i,5.f\" produces \"fis,32. \".") (sit-for 5 0 1)
(message "Add also \"a ~ a\"-ties, \"a ( ) b\"-slurs and \"< a b
>\"-chords.") (sit-for 5 0 1)
- (message "Note names are in Du(t)ch by default. Hit 'n' for
Fin(n)ish/Deutsch note names.") (sit-for 5 0 1)
+ (message "Note names are in Du(t)ch by default. Hit 'n' for
Fin(n)ish/Deutsch note names. Hit 'p' for S(p)anish note names") (sit-for 5 0
1)
(message "Backspace deletes last note, return starts a new
indented line and Esc quits.") (sit-for 5 0 1)
(message "Insert note triplets \"\\times 2/3 { a b } \" by typing
\"/23ab}\".") (sit-for 5 0 1)
(message "Remember to add all other details as well.") (sit-for 5
0 1)))
- Spanish notes added to keyboard shortcuts (Quick Notes),
Carlos Betancourt <=