← Back to branch summary

~ubuntu-branches/ubuntu/oneiric/denemo/oneiric

« back to all changes in this revision

Viewing changes to actions/menus/ObjectMenu/MovementMenu/Print Layout/Indent

  • Committer: Bazaar Package Importer
  • Author(s): Eric Hedekar
  • Date: 2009-07-19 22:36:51 UTC
  • mfrom: (1.2.5 upstream)
  • Revision ID: james.westby@ubuntu.com-20090719223651-8ue5zhxabz2nu6ul
Tags: 0.8.6-0ubuntu1
https://launchpad.net/bugs/325004
https://launchpad.net/bugs/143989
* New upstream version (LP: #325004)
* MimeType added for denemo files (LP: #143989)
* Fixed broken watch file
* Update package standards version
* adds new build-dep on liblash-dev, and libjack-dev to use of new features
* adds new build-dep on guile-1.8-dev to satisfy upstream dependencies
* removes build-dep on libasound-dev
* adds ${misc:Depends} to depends
* removed obsolete ./configure flags from debian/rules
* Corrects debian/copyright file

Show diffs side-by-side

added added

removed removed

Lines of Context:
actions/menus/ObjectMenu/MovementMenu/Print Layout/Indent
 
1
<?xml version="1.0"?>
 
2
<Denemo>
 
3
  <merge>
 
4
    <title>A Denemo Keymap</title>
 
5
    <author>AT, JRR, RTS</author>
 
6
    <map>
 
7
      <row>
 
8
        <action>Indent</action>
 
9
        <scheme>;;;;;;;;;;;;;;; MovementIndent Set indent
 
10
 
 
11
(let ((amount "0.0") (current "0.0")(thematch #f))
 
12
  (set! current (d-DirectiveGet-layout-postfix "MovementIndent"))
 
13
  (if (boolean? current)
 
14
      (set! current "15.0")
 
15
      (begin
 
16
        (set! thematch (string-match (string-append "indent = (.*)\n") current))
 
17
        (display thematch)
 
18
        (if (regexp-match? thematch)
 
19
            (set! current (match:substring thematch 1)))))
 
20
  (set! amount (d-GetUserInput "Choose indent of first system" "Give amount as decimal" current))
 
21
  (display amount)
 
22
  (d-DirectivePut-layout-postfix "MovementIndent" (string-append "indent = " amount "\n")))
 
23
(d-RefreshDisplay)
 
24
;;;;;;;;;;;;;;;;;;;
 
25
</scheme>
 
26
        <label>Indent</label>
 
27
        <tooltip>Alter the indent of the opening system for the current movement.</tooltip>
 
28
      </row>
 
29
    </map>
 
30
  </merge>
 
31
</Denemo>