[chronometrist] use frameset for Arrangement task

This commit is contained in:
contrapunctus 2021-09-22 19:32:16 +05:30
parent 585ca01285
commit 07c83847a0
1 changed files with 147 additions and 7 deletions

154
init.org
View File

@ -533,6 +533,149 @@ FILE-1 will appear above FILE-2."
(outline-show-subtree))
#+END_SRC
***** start-project
#+BEGIN_SRC emacs-lisp
(defvar my-arrangement-frameset
[frameset
1 (24907 10263 320473 920000) nil nil nil nil
((((minibuffer . t)
(undecorated)
(override-redirect)
(font . "-PfEd-DejaVu Sans Mono-normal-normal-normal-*-14-*-*-*-m-0-iso10646-1")
(font-parameter . "DejaVu Sans Mono-10.5")
(border-width . 0)
(internal-border-width . 0)
(right-divider-width . 0)
(bottom-divider-width . 0)
(vertical-scroll-bars)
(horizontal-scroll-bars)
(foreground-color . "#d6d6d4")
(background-color . "#1c1e1f")
(mouse-color . "black")
(border-color . "black")
(screen-gamma)
(line-spacing)
(left-fringe . 4)
(right-fringe . 4)
(no-special-glyphs)
(scroll-bar-foreground)
(scroll-bar-background)
(menu-bar-lines . 1)
(tab-bar-lines . 0)
(height . 40)
(tool-bar-lines . 0)
(title)
(wait-for-wm . t)
(tool-bar-position . top)
(inhibit-double-buffering)
(icon-type . t)
(auto-raise)
(auto-lower)
(cursor-type . box)
(scroll-bar-width . 16)
(scroll-bar-height . 16)
(alpha)
(no-focus-on-map)
(no-accept-focus)
(fullscreen . maximized)
(visibility . t)
(skip-taskbar)
(z-group)
(display-type . color)
(background-mode . dark)
(cursor-color . "#fb2874")
(sticky)
(environment)
(last-focus-update . t)
(powerline-cache)
(frameset--id . "6557-E2CE-3D63-0FD0")
(frameset--mini t . t)
(width . 169)
(modeline . t)
(unsplittable)
(left . 0)
(top . 0)
(icon-name)
(display . ":0.0")
(explicit-name))
((min-height . 8)
(min-width . 20)
(min-height-ignore . 4)
(min-width-ignore . 6)
(min-height-safe . 2)
(min-width-safe . 4)
(min-pixel-height . 136)
(min-pixel-width . 160)
(min-pixel-height-ignore . 68)
(min-pixel-width-ignore . 48)
(min-pixel-height-safe . 34)
(min-pixel-width-safe . 32))
vc (pixel-width . 1366)
(pixel-height . 669)
(total-width . 171)
(total-height . 39)
(normal-height . 1.0)
(normal-width . 1.0)
(combination-limit)
(hc
(pixel-width . 1366)
(pixel-height . 507)
(total-width . 171)
(total-height . 29)
(normal-height . 0.7661169415292354)
(normal-width . 1.0)
(combination-limit)
(leaf (pixel-width . 686)
(pixel-height . 507)
(total-width . 86)
(total-height . 29)
(normal-height . 1.0)
(normal-width . 0.5)
(buffer "2021-09-12 Songs of Travel-pacON.pdf"
(selected)
(hscroll . 0)
(fringes 4 4 nil nil)
(margins nil)
(scroll-bars nil 0 t nil 0 t nil)
(vscroll . 0)
(dedicated)
(point . 1)
(start . 1)))
(leaf (last . t)
(pixel-width . 680)
(pixel-height . 507)
(total-width . 85)
(total-height . 29)
(normal-height . 1.0)
(normal-width . 0.5)
(buffer "IMSLP89688-PMLP183796-SongsOfTravel.pdf"
(selected)
(hscroll . 0)
(fringes 4 4 nil nil)
(margins nil)
(scroll-bars nil 0 t nil 0 t nil)
(vscroll . 0)
(dedicated)
(point . 1)
(start . 1))))
(leaf (last . t)
(pixel-width . 1366)
(pixel-height . 162)
(total-width . 171)
(total-height . 9)
(normal-height . 0.23388305847076465)
(normal-width . 1.0)
(buffer "guitar.ly"
(selected . t)
(hscroll . 0)
(fringes 4 4 nil nil)
(margins nil)
(scroll-bars nil 0 t nil 0 t nil)
(vscroll . 0)
(dedicated)
(point . 1)
(start . 1)))))])
#+END_SRC
#+BEGIN_SRC emacs-lisp
(defun contrapunctus-start-project (project)
(delete-other-windows)
@ -541,14 +684,11 @@ FILE-1 will appear above FILE-2."
(find-file
"/media/data/anon/Documents/sync/Wilde, Oscar/The Importance of Being Earnest/gutenberg-script.txt"))
("Arrangement/new edition"
(delete-other-windows)
;; (find-file "/media/data/anon/1-music-scores/4-my-arrangements/2020/2020-11-27 Winterreise/01 Gute Nacht/music/")
;; (launch-file "/media/data/anon/1-music-scores/4-my-arrangements/2020/2020-11-27 Winterreise/01 Gute Nacht/output/01 Gute Nacht-pacON.pdf")
;; (launch-file "/media/data/anon/Sync/Scores/voice/Schubert, Franz/IMSLP570459-PMLP2203-D_911,_Winterreise.pdf")
(my-find-file*
"/media/data/anon/1-music-scores/4-my-arrangements/2020/2020-10-14 An die ferne Geliebte/music/"
"/media/data/anon/1-music-scores/4-my-arrangements/2020/2020-10-14 An die ferne Geliebte/output/2020-10-14 An die ferne Geliebte-pacON.pdf"
"/home/anon/Sync/Scores/voice/Beethoven, Ludwig van/IMSLP47561-PMLP11572-Beethoven_Lieder_Peters_9535_Op_98_An_die_ferne_Geliebte.pdf"))
"/media/data/anon/1-music-scores/4-my-arrangements/2021/2021-09-12 Songs of Travel/1 The Vagabond/music/guitar.ly"
"/media/data/anon/1-music-scores/4-my-arrangements/2021/2021-09-12 Songs of Travel/output/2021-09-12 Songs of Travel-pacON.pdf"
"/home/anon/Sync/Scores/voice/Vaughan Williams/IMSLP89688-PMLP183796-SongsOfTravel.pdf")
(frameset-restore my-arrangement-frameset :reuse-frames t))
("Aural exercises"
(find-file-other-window "/media/data/anon/Documents/Text Files/music_stuff/harmonic-analysis.org"))
("Composing"