Update paths to reflect partition changes

This commit is contained in:
contrapunctus 2021-04-03 14:26:09 +05:30
parent a9509793ab
commit 5474584bdf
1 changed files with 46 additions and 48 deletions

View File

@ -399,90 +399,88 @@ FILE-1 will appear above FILE-2."
(goto-char (point-min))
(outline-next-visible-heading n)
(outline-show-subtree))
#+END_SRC
#+BEGIN_SRC emacs-lisp
(defun contrapunctus-start-project (project)
(delete-other-windows)
(pcase project
("Acting"
(find-file "/home/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"))
("Arrangement/new edition"
(delete-other-windows)
(emms-play-file "/home/anon/Music/Hallelujah Rufus Wainwright-xR0DKOGco_o.opus")
(launch-file "/home/anon/1-music-scores/4-my-arrangements/2021/2021-03-11 Hallelujah/output/2021-03-11 Hallelujah-pacON.pdf")
(find-file "/home/anon/1-music-scores/4-my-arrangements/2021/")
;; (find-file "~/1-music-scores/4-my-arrangements/2020/2020-11-27 Winterreise/01 Gute Nacht/music/")
;; (launch-file "~/1-music-scores/4-my-arrangements/2020/2020-11-27 Winterreise/01 Gute Nacht/output/01 Gute Nacht-pacON.pdf")
;; (launch-file "~/Sync/Scores/voice/Schubert, Franz/IMSLP570459-PMLP2203-D_911,_Winterreise.pdf")
)
;; (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")
(find-file "/media/data/anon/1-music-scores/4-my-arrangements/2020/2020-10-14 An die ferne Geliebte/music/")
(launch-file
"/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")
(launch-file
"/media/data/anon/Sync/Scores/voice/Beethoven, Ludwig van/IMSLP47561-PMLP11572-Beethoven_Lieder_Peters_9535_Op_98_An_die_ferne_Geliebte.pdf"))
("Aural exercises"
(find-file-other-window
"~/phone/Nokia 6.1/Documents/Markor/Music/Analyse.md"))
"/media/data/anon/Documents/Text Files/music_stuff/harmonic-analysis.org"))
("Composing"
(find-file-other-window
;; "~/1-music-scores/2-my-compositions/2017/2017-02 The Rainbow Flower/1 Chhutti Ka Din/music/"
"~/1-music-scores/2-my-compositions/2019/2019-03 Kahe Natak Karte Ho Ji?/2 Adi Kal Se/")
(launch-file "/home/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"))
;; "/media/data/anon/1-music-scores/2-my-compositions/2017/2017-02 The Rainbow Flower/1 Chhutti Ka Din/music/"
"/media/data/anon/1-music-scores/2-my-compositions/2019/2019-03 Kahe Natak Karte Ho Ji?/2 Adi Kal Se/")
(launch-file "/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"))
("Data organization"
(find-dired "~/" "-name \\'dl\\' -size +0c"))
(find-dired "/media/data/anon/" "-name \\'dl\\' -size +0c"))
("Digitization"
(find-file
"~/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.tex")
(launch-file
"~/Documents/Text Files/latex/Don't, Mr. Disraeli!/dont-mr-disraeli.pdf"))
("Exercise"
(let* ((path-1 "~/Documents/Text Files/ma/practice.org")
(path-2 "~/Documents/Text Files/ma/0shoto-syllabus.org")
(file-1 (file-name-nondirectory path-1))
(file-2 (file-name-nondirectory path-2)))
(contrapunctus-find-two-files path-1 path-2)
(select-window (get-buffer-window file-1))))
"/media/data/anon/Documents/Text Files/latex/Don't, Mr. Disraeli!/dont-mr-disraeli.pdf"))
("Exercise" (chronometrist-key-values-unified-choice "Exercise")
(chronometrist-open-log))
("Guitar"
(let* ((path-1 "~/Sync/Scores/guitar-solo/repertoire.org")
(path-2 "~/Sync/Scores/guitar-duo/repertoire.org")
(let* ((path-1 "/media/data/anon/Sync/Scores/guitar-solo/repertoire.org")
(path-2 "/media/data/anon/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)
(select-window (get-buffer-window (get-file-buffer path-1)))
(org-match-sparse-tree nil "perform")))
("Keyboard"
(find-file-other-window "~/Documents/Text Files/music_stuff/piano.org")
(find-file-other-window "/media/data/anon/Documents/Text Files/music_stuff/piano.org")
(outline-show-subtree))
("Khilona archiving"
(find-file-other-window "~/Documents/sync/Khilona/")
(find-file-other-window "/media/data/anon/Documents/sync/Khilona/")
(split-window-below)
(other-window 1)
(find-file "~/Khilona/Videos/Me?/")
(other-window 1)
(find-file "~/Documents/Text Files/khilona/2011 Me?/script/script.tex"))
(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 "~/phone/Nokia 6.1/Android/data/net.osmand.plus/files/"
;; "~/phone/Nokia 6.1/external/DCIM/OpenCamera/osm/"
"~/phone/Nokia 6.1/Documents/Markor/OSM/TODO.md"))
(contrapunctus-find-two-files "/media/data/anon/phone/Nokia 6.1/Android/data/net.osmand.plus/files/"
;; "/media/data/anon/phone/Nokia 6.1/external/DCIM/OpenCamera/osm/"
"/media/data/anon/phone/Nokia 6.1/Documents/Markor/OSM/TODO.md"))
("Programming"
(launch-file "~/git/cl/McCLIM/Documentation/Manual/Texinfo/mcclim.pdf")
(launch-file "/media/data/anon/git/cl/McCLIM/Documentation/Manual/Texinfo/mcclim.pdf")
(find-file-other-window
"~/phone/Nokia 6.1/Documents/Markor/Computers/todo.md"))
"/media/data/anon/phone/Nokia 6.1/Documents/Markor/Computers/todo.md"))
("Singing"
(find-file-other-window "~/Sync/Scores/voice/repertoire.org"))
(find-file-other-window "/media/data/anon/Sync/Scores/voice/repertoire.org"))
("Subtitles"
;; (find-file-other-window "~/Music/0-classical/vocal/musical/Company/")
;; (find-file-other-window "/media/data/anon/Music/0-classical/vocal/musical/Company/")
(start-process "subtitleeditor" nil "subtitleeditor" "/home/khilona/Videos/Peer Gynt/peer-gynt.srt"))
("Teaching"
(find-file-other-window "~/Documents/Text Files/students/")
;; (launch-file "~/Sync/Scores/voice/jingle-bell-rock.pdf")
(find-file-other-window "/media/data/anon/Documents/Text Files/students/")
;; (launch-file "/media/data/anon/Sync/Scores/voice/jingle-bell-rock.pdf")
)
("Theatre rehearsal"
(contrapunctus-find-two-files
"~/Documents/Text Files/khilona/voices.org"
"~/1-music-scores/2-my-compositions/2019/2019-03 Kahe Natak Karte Ho Ji/Kahe Natak Karte Ho Ji.org"))
"/media/data/anon/Documents/Text Files/khilona/voices.org"
"/media/data/anon/1-music-scores/2-my-compositions/2019/2019-03 Kahe Natak Karte Ho Ji/Kahe Natak Karte Ho Ji.org"))
("Transcription"
;; (find-file-other-window
;; "~/phone/Nokia 6.1/Documents/Markor/Music/transcriptions.md")
(emms-play-file "~/Music/christmas/Glee - Jingle Bell Rock (Lyrics)-VfLf7A_-1Vw.webm")
(find-file "~/1-music-scores/3-my-transcriptions/Glee - Jingle Bell Rock/music/")
(launch-file "~/1-music-scores/3-my-transcriptions/Glee - Jingle Bell Rock/output/Glee - Jingle Bell Rock-pacON.pdf"))
;; "/media/data/anon/phone/Nokia 6.1/Documents/Markor/Music/transcriptions.md")
(emms-play-file "/media/data/anon/Music/Hallelujah Rufus Wainwright-xR0DKOGco_o.opus")
(launch-file "/media/data/anon/1-music-scores/4-my-arrangements/2021/2021-03-11 Hallelujah/output/2021-03-11 Hallelujah-pacON.pdf")
(find-file "/media/data/anon/1-music-scores/4-my-arrangements/2021/"))
("Video editing"
(start-process "flatpak" (generate-new-buffer-name "kdenlive")
"flatpak" "run" "org.kde.kdenlive"
@ -492,10 +490,10 @@ FILE-1 will appear above FILE-2."
))
("Wiktionary"
(find-file-other-window
"~/phone/Nokia 6.1/Documents/Markor/Languages/hindi.md"))
"/media/data/anon/phone/Nokia 6.1/Documents/Markor/Languages/hindi.md"))
("Writing"
(find-file-other-window
"~/phone/Nokia 6.1/Documents/Markor/Songs or Poems/"))))
"/media/data/anon/phone/Nokia 6.1/Documents/Markor/Songs or Poems/"))))
(autoload 'magit-anything-modified-p "magit")
@ -794,7 +792,7 @@ PR ideas
(use-package emacsshot
:config
(setq emacsshot-with-timestamp t
emacsshot-snap-window-filename "~/Pictures/screenshots/emacsshot/emacsshot.png"))
emacsshot-snap-window-filename "/media/data/anon/Pictures/screenshots/emacsshot/emacsshot.png"))
#+END_SRC
*** File management
#+BEGIN_SRC emacs-lisp
@ -979,11 +977,11 @@ PR ideas
(setq contrasync-disk-path "/media/anon/kash-sg-2tb/"
contrasync-source-paths
`("~/.emacs.d/"
"~/1-music-notation/"
"~/Documents/"
"/media/data/anon/1-music-notation/"
"/media/data/anon/Documents/"
"~/.config/"
"~/.local/"
("~/phone/Nokia 6.1/" ,contrasync-disk-path "phone/Nokia 6.1/"))))
("/media/data/anon/phone/Nokia 6.1/" ,contrasync-disk-path "phone/Nokia 6.1/"))))
(use-package peep-dired
:disabled