contrapunctus
/
dotemacs
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Update Chronometrist hook functions

This commit is contained in:
contrapunctus 2022-01-13 21:40:55 +05:30
parent 507452d412
commit a92c571a40
1 changed files with 177 additions and 162 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

339
init.org
View File

@ -1020,160 +1020,171 @@ FILE-1 will appear above FILE-2."
#+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))))))])
[frameset 1
(24995 986 559662 42000)
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 . 58)
(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 . 235)
(left . 31)
(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))
hc
(pixel-width . 1889)
(pixel-height . 981)
(total-width . 236)
(total-height . 58)
(normal-height . 1.0)
(normal-width . 1.0)
(combination-limit)
(leaf
(pixel-width . 945)
(pixel-height . 981)
(total-width . 118)
(total-height . 58)
(normal-height . 1.0)
(normal-width . 0.5)
(buffer "2 Mera Mera Kyon-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))
(prev-buffers
("music" 1 521)
("2 Mera Mera Kyon-pacON.pdf" 1 1)
("composition-portfolio.org" 1 1)
("init.org[emacs-lisp]" 28440 29961)
("specifications.org" 1 1)
("doc<magrathea>" 1 183)
("magrathea" 1 181)
("src<magrathea>" 1 184)
("strata" 1 431)
("skylab.lisp" 851 2757)
("Inception (2010) [1080p]" 1 379)
("chronometrist.el" 33732 34395)
("*helpful variable: timer-list*" 1 802)))
(vc
(last . t)
(pixel-width . 944)
(pixel-height . 981)
(total-width . 118)
(total-height . 58)
(normal-height . 1.0)
(normal-width . 0.5)
(combination-limit)
(leaf
(pixel-width . 944)
(pixel-height . 482)
(total-width . 118)
(total-height . 28)
(normal-height . 0.5)
(normal-width . 1.0)
(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 . 444)
(start . 1))
(prev-buffers
("2 Mera Mera Kyon" 1 213)
("guitar.ly" 1 1)
("music" 1 444)))
(leaf
(last . t)
(pixel-width . 944)
(pixel-height . 499)
(total-width . 118)
(total-height . 30)
(normal-height . 0.5)
(normal-width . 1.0)
(buffer "*compilation*"
(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))
(prev-buffers
("*compilation*" 1 1)
("music" 1 521))))))])
#+END_SRC
#+BEGIN_SRC emacs-lisp
@ -1181,8 +1192,10 @@ FILE-1 will appear above FILE-2."
(delete-other-windows)
(pcase project
("Acting"
(find-file
"/media/data/anon/Documents/sync/Wilde, Oscar/The Importance of Being Earnest/gutenberg-script.txt"))
;; (find-file
;; "/media/data/anon/Documents/sync/Wilde, Oscar/The Importance of Being Earnest/gutenberg-script.txt")
(find-file "/media/data/anon/Documents/sync/hindi/Harishankar Parsai - Nithalle Ki Diary.pdf")
)
("Arrangement/new edition"
(my-find-file*
"/media/data/anon/1-music-scores/4-my-arrangements/2021/2021-09-12 Songs of Travel/1 The Vagabond/music/guitar.ly"
@ -1192,7 +1205,10 @@ FILE-1 will appear above FILE-2."
("Aural exercises"
(find-file-other-window "/media/data/anon/Documents/Text Files/music_stuff/harmonic-analysis.org"))
((or "Sequencing" "Composing")
(find-file-other-window "~/1-music-scores/2-my-compositions/composition-portfolio.org")
(my-find-file*
"~/1-music-scores/2-my-compositions/composition-portfolio.org"
"~/1-music-scores/2-my-compositions/2016/2016-07 Sab Ka Sooraj/2 Mera Mera Kyon/output/2 Mera Mera Kyon-pacON.pdf"
"~/1-music-scores/2-my-compositions/2016/2016-07 Sab Ka Sooraj/2 Mera Mera Kyon/music/")
(frameset-restore my-composition-frameset :reuse-frames t))
("Data organization"
(find-dired "/media/data/anon/" "-name \\'dl\\' -size +0c"))
@ -1201,13 +1217,14 @@ FILE-1 will appear above FILE-2."
"/media/data/anon/Documents/Text Files/latex/Don't, Mr. Disraeli!/dont-mr-disraeli.tex"
"/media/data/anon/Documents/Text Files/latex/Don't, Mr. Disraeli!/dont-mr-disraeli.pdf"))
("Exercise" (chronometrist-key-values-unified-prompt "Exercise")
(chronometrist-edit-file (chronometrist-active-backend)))
(chronometrist-edit-backend (chronometrist-active-backend)))
("Guitar"
(let* ((path-1 "~/Sync/Scores/guitar-solo/repertoire.org")
(path-2 "~/Sync/Scores/guitar-duo/repertoire.org")
(weekday (elt (decode-time) 6))
(week (string-to-number (format-time-string "%U"))))
(contrapunctus-find-two-files path-1 path-2)
;; (contrapunctus-find-two-files path-1 path-2)
(find-file-other-window path-1)
(select-window (get-buffer-window (get-file-buffer path-1)))
(org-match-sparse-tree nil "perform")))
("Keyboard"
@ -1221,15 +1238,13 @@ FILE-1 will appear above FILE-2."
(other-window 1)
(find-file "/media/data/anon/Documents/Text Files/khilona/2011 Me?/script/script.tex"))
("OSM"
;; (async-shell-command "java -jar ~/josm-tested.jar" " *JOSM*" " *JOSM errors*")
;; (delete-window (get-buffer-window " *JOSM*"))
(contrapunctus-find-two-files "/media/data/phone/anon/Nokia 6.1/Android/data/net.osmand.plus/files/"
;; "/media/data/phone/anon/Nokia 6.1/external/DCIM/OpenCamera/osm/"
"/media/data/phone/anon/Nokia 6.1/Documents/Markor/OSM/TODO.md"))
("Programming"
;; (eww-open-file "/media/data/anon/git/cl/McCLIM/Documentation/Manual/mcclim.html")
(find-file-other-window
"/media/data/phone/anon/Nokia 6.1/Documents/Markor/Computers/todo.md"))
(find-file-other-window "~/Documents/Text Files/programming/projects.org"))
("Reading"
(find-file-other-window "/media/data/anon/Documents/sync/"))
("Recording"