chronometrist - define and use frameset for composition and sequencing

This commit is contained in:
contrapunctus 2021-11-06 18:54:30 +05:30
parent 334b422dc6
commit 32bf0ea458
1 changed files with 161 additions and 6 deletions

167
init.org
View File

@ -676,6 +676,164 @@ FILE-1 will appear above FILE-2."
(start . 1)))))])
#+END_SRC
#+BEGIN_SRC emacs-lisp
(defvar my-composition-frameset
[frameset
1 (24936 2014 421002 849000) 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 . "3226-BFF7-1499-D0C7")
(frameset--mini t . t)
(modeline . t)
(unsplittable)
(icon-name)
(display . ":0.0")
(explicit-name)
(width . 169)
(left . 0)
(top . 0))
((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)
(leaf
(pixel-width . 1366)
(pixel-height . 326)
(total-width . 171)
(total-height . 19)
(normal-height . 0.5)
(normal-width . 1.0)
(buffer
"1 Koi Hamen Bataaega Kya-pacON.pdf"
(selected)
(hscroll . 0)
(fringes 4 4 nil nil)
(margins nil)
(scroll-bars nil 0 t nil 0 t nil)
(vscroll . 70)
(dedicated)
(point . 1)
(start . 1))
(prev-buffers
("init.org[emacs-lisp]" 21939 22524)
("music" 1 326)
("1 Koi Hamen Bataaega Kya-pacON.pdf" 1 1)))
(hc (last . t)
(pixel-width . 1366)
(pixel-height . 343)
(total-width . 171)
(total-height . 20)
(normal-height . 0.5)
(normal-width . 1.0)
(combination-limit)
(leaf
(pixel-width . 686)
(pixel-height . 343)
(total-width . 86)
(total-height . 20)
(normal-height . 1.0)
(normal-width . 0.5)
(buffer "music"
(selected . t)
(hscroll . 0)
(fringes 4 4 nil nil)
(margins nil)
(scroll-bars nil 0 t nil 0 t nil)
(vscroll . 0)
(dedicated)
(point . 326)
(start . 1))
(prev-buffers
("1 Koi Hamen Bataaega Kya" 1 205)
("output" 1 386)
("1 Koi Hamen Bataaega Kya-pacON.pdf" 1 1)))
(leaf
(last . t)
(pixel-width . 680)
(pixel-height . 343)
(total-width . 85)
(total-height . 20)
(normal-height . 1.0)
(normal-width . 0.5)
(buffer "music"
(selected)
(hscroll . 0)
(fringes 4 4 nil nil)
(margins nil)
(scroll-bars nil 0 t nil 0 t nil)
(vscroll . 0)
(dedicated)
(point . 326)
(start . 1))
(prev-buffers
("1 Koi Hamen Bataaega Kya" 1 205)
("output" 1 386))))))])
#+END_SRC
#+BEGIN_SRC emacs-lisp
(defun contrapunctus-start-project (project)
(delete-other-windows)
@ -691,12 +849,9 @@ FILE-1 will appear above FILE-2."
(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"
;; "/media/data/anon/1-music-scores/2-my-compositions/2017/2017-02 The Rainbow Flower/1 Chhutti Ka Din/music/"
(my-find-file*
"/media/data/anon/1-music-scores/2-my-compositions/2019/2019-03 Kahe Natak Karte Ho Ji?/2 Adi Kal Se/"
"/media/data/anon/1-music-scores/2-my-compositions/2019/2019-03 Kahe Natak Karte Ho Ji?/2 Adi Kal Se/output/2 Adi Kal Se-pacON.pdf")
(start-process "qtractor" nil "qtractor" "/media/data/anon/8-music-production/1-my-creations/2019/natyashastra/2-adi-kal-se/adi-kal-se.qtr"))
((or "Sequencing" "Composing")
(find-file-other-window "/home/anon/1-music-scores/2-my-compositions/composition-portfolio.org")
(frameset-restore my-composition-frameset :reuse-frames t))
("Data organization"
(find-dired "/media/data/anon/" "-name \\'dl\\' -size +0c"))
("Digitization"