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

Use symlinks for multi-machine config; create my-find-file*

This commit is contained in:
contrapunctus 2021-09-18 13:13:05 +05:30
parent 902268f913
commit b2055090d2
1 changed files with 28 additions and 63 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

89
init.org
View File

@ -425,16 +425,8 @@ I'm pretty much using this to emulate `god-mode', which was great, but is no lon
** Applications ** Applications
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(defvar my-data-dir (defun my-find-file* (&rest paths)
(pcase (->> (shell-command-to-string "hostname") (mapc #'find-file paths))
(replace-regexp-in-string "\n" ""))
("Dell-Vostro-15-3000" "/home/anon/")
("HP-ProBook-450-G0" "/media/data/anon/"))
"Absolute path to directory containing my data.")
(defun my-prefix-data-dir (path)
"Return PATH with `my-data-dir' prefixed."
(concat my-data-dir path))
#+END_SRC #+END_SRC
*** time tracking - chronometrist *** time tracking - chronometrist
@ -547,58 +539,42 @@ FILE-1 will appear above FILE-2."
(pcase project (pcase project
("Acting" ("Acting"
(find-file (find-file
(my-prefix-data-dir "/media/data/anon/Documents/sync/Wilde, Oscar/The Importance of Being Earnest/gutenberg-script.txt"))
"Documents/sync/Wilde, Oscar/The Importance of Being Earnest/gutenberg-script.txt")))
("Arrangement/new edition" ("Arrangement/new edition"
(delete-other-windows) (delete-other-windows)
;; (find-file "/media/data/anon/1-music-scores/4-my-arrangements/2020/2020-11-27 Winterreise/01 Gute Nacht/music/") ;; (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/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") ;; (launch-file "/media/data/anon/Sync/Scores/voice/Schubert, Franz/IMSLP570459-PMLP2203-D_911,_Winterreise.pdf")
(find-file (my-find-file*
(my-prefix-data-dir "/media/data/anon/1-music-scores/4-my-arrangements/2020/2020-10-14 An die ferne Geliebte/music/"
"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"
(launch-file "/home/anon/Sync/Scores/voice/Beethoven, Ludwig van/IMSLP47561-PMLP11572-Beethoven_Lieder_Peters_9535_Op_98_An_die_ferne_Geliebte.pdf"))
(my-prefix-data-dir
"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
(my-prefix-data-dir
"Sync/Scores/voice/Beethoven, Ludwig van/IMSLP47561-PMLP11572-Beethoven_Lieder_Peters_9535_Op_98_An_die_ferne_Geliebte.pdf")))
("Aural exercises" ("Aural exercises"
(find-file-other-window (find-file-other-window "/media/data/anon/Documents/Text Files/music_stuff/harmonic-analysis.org"))
(my-prefix-data-dir
"Documents/Text Files/music_stuff/harmonic-analysis.org")))
("Composing" ("Composing"
(find-file-other-window
;; "/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/2017/2017-02 The Rainbow Flower/1 Chhutti Ka Din/music/"
(my-prefix-data-dir (my-find-file*
"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/"
(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") "/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")) (start-process "qtractor" nil "qtractor" "/media/data/anon/8-music-production/1-my-creations/2019/natyashastra/2-adi-kal-se/adi-kal-se.qtr"))
("Data organization" ("Data organization"
(find-dired "/media/data/anon/" "-name \\'dl\\' -size +0c")) (find-dired "/media/data/anon/" "-name \\'dl\\' -size +0c"))
("Digitization" ("Digitization"
(find-file (my-find-file*
(my-prefix-data-dir "/media/data/anon/Documents/Text Files/latex/Don't, Mr. Disraeli!/dont-mr-disraeli.tex"
"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"))
(launch-file
(my-prefix-data-dir
"Documents/Text Files/latex/Don't, Mr. Disraeli!/dont-mr-disraeli.pdf")))
("Exercise" (chronometrist-key-values-unified-prompt "Exercise") ("Exercise" (chronometrist-key-values-unified-prompt "Exercise")
(chronometrist-edit-file (chronometrist-active-backend))) (chronometrist-edit-file (chronometrist-active-backend)))
("Guitar" ("Guitar"
(let* ((path-1 (my-prefix-data-dir (let* ((path-1 "/home/anon/Sync/Scores/guitar-solo/repertoire.org")
"Sync/Scores/guitar-solo/repertoire.org")) (path-2 "/home/anon/Sync/Scores/guitar-duo/repertoire.org")
(path-2 (my-prefix-data-dir
"Sync/Scores/guitar-duo/repertoire.org"))
(weekday (elt (decode-time) 6)) (weekday (elt (decode-time) 6))
(week (string-to-number (format-time-string "%U")))) (week (string-to-number (format-time-string "%U"))))
(contrapunctus-find-two-files path-1 path-2) (contrapunctus-find-two-files path-1 path-2)
(select-window (get-buffer-window (get-file-buffer path-1))) (select-window (get-buffer-window (get-file-buffer path-1)))
(org-match-sparse-tree nil "perform"))) (org-match-sparse-tree nil "perform")))
("Keyboard" ("Keyboard"
(find-file-other-window (find-file-other-window "/media/data/anon/Documents/Text Files/music_stuff/piano.org")
(my-prefix-data-dir
"Documents/Text Files/music_stuff/piano.org"))
(outline-show-subtree)) (outline-show-subtree))
("Khilona archiving" ("Khilona archiving"
(find-file-other-window "/media/data/anon/Documents/sync/Khilona/") (find-file-other-window "/media/data/anon/Documents/sync/Khilona/")
@ -618,41 +594,31 @@ FILE-1 will appear above FILE-2."
(find-file-other-window (find-file-other-window
"/media/data/phone/anon/Nokia 6.1/Documents/Markor/Computers/todo.md")) "/media/data/phone/anon/Nokia 6.1/Documents/Markor/Computers/todo.md"))
("Reading" ("Reading"
(find-file-other-window (find-file-other-window "/media/data/anon/Documents/sync/"))
(my-prefix-data-dir "Documents/sync/")))
("Recording" ("Recording"
(find-file-other-window (find-file-other-window
(my-prefix-data-dir "/media/data/anon/8-music-production/1-my-creations/BWV 1006a/1 Prelude/"))
"8-music-production/1-my-creations/BWV 1006a/1 Prelude/")))
("Singing" ("Singing"
(find-file-other-window (find-file-other-window
(my-prefix-data-dir "/home/anon/Sync/Scores/voice/repertoire.org"))
"Sync/Scores/voice/repertoire.org")))
("Subtitles" ("Subtitles"
;; (find-file-other-window "/media/data/anon/Music/0-classical/vocal/musical/Company/") ;; (find-file-other-window "/media/data/anon/Music/0-classical/vocal/musical/Company/")
(start-process "subtitleeditor" nil "subtitleeditor" "/media/data/khilona/Videos/Peer Gynt/peer-gynt.srt")) (start-process "subtitleeditor" nil "subtitleeditor" "/media/data/khilona/Videos/Peer Gynt/peer-gynt.srt"))
("Teaching" ("Teaching"
(find-file-other-window (find-file-other-window "/media/data/anon/Documents/Text Files/students/")
(my-prefix-data-dir
"Documents/Text Files/students/"))
;; (launch-file "/media/data/anon/Sync/Scores/voice/jingle-bell-rock.pdf") ;; (launch-file "/media/data/anon/Sync/Scores/voice/jingle-bell-rock.pdf")
) )
("Theatre rehearsal" ("Theatre rehearsal"
(contrapunctus-find-two-files (contrapunctus-find-two-files
(my-prefix-data-dir "/media/data/anon/Documents/Text Files/khilona/voices.org"
"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"))
(my-prefix-data-dir
"1-music-scores/2-my-compositions/2019/2019-03 Kahe Natak Karte Ho Ji/Kahe Natak Karte Ho Ji.org")))
("Transcription" ("Transcription"
;; (find-file-other-window ;; (find-file-other-window
;; "/media/data/phone/anon/Nokia 6.1/Documents/Markor/Music/transcriptions.md") ;; "/media/data/phone/anon/Nokia 6.1/Documents/Markor/Music/transcriptions.md")
;; (emms-play-file "/media/data/anon/Music/Hallelujah Rufus Wainwright-xR0DKOGco_o.opus") ;; (emms-play-file "/media/data/anon/Music/Hallelujah Rufus Wainwright-xR0DKOGco_o.opus")
(launch-file (my-find-file*
(my-prefix-data-dir "/media/data/anon/1-music-scores/4-my-arrangements/2021/2021-03-11 Hallelujah/output/2021-03-11 Hallelujah-pacON.pdf"
"1-music-scores/4-my-arrangements/2021/2021-03-11 Hallelujah/output/2021-03-11 Hallelujah-pacON.pdf")) "/media/data/anon/1-music-scores/4-my-arrangements/2021/"))
(find-file
(my-prefix-data-dir
"1-music-scores/4-my-arrangements/2021/")))
("Video editing" ("Video editing"
(start-process "kdenlive" (generate-new-buffer-name "kdenlive") (start-process "kdenlive" (generate-new-buffer-name "kdenlive")
;; "flatpak" "run" "org.kde.kdenlive" ;; "flatpak" "run" "org.kde.kdenlive"
@ -663,8 +629,7 @@ FILE-1 will appear above FILE-2."
"/media/data/khilona/Videos/podcast/")) "/media/data/khilona/Videos/podcast/"))
("Wiktionary" ("Wiktionary"
(find-file-other-window (find-file-other-window
(my-prefix-data-dir "/media/data/phone/anon/Nokia 6.1/Documents/Markor/Languages/hindi.md"))
"anon/Nokia 6.1/Documents/Markor/Languages/hindi.md")))
("Writing" ("Writing"
(find-file-other-window (find-file-other-window
"/media/data/phone/anon/Nokia 6.1/Documents/Markor/Songs or Poems/")))) "/media/data/phone/anon/Nokia 6.1/Documents/Markor/Songs or Poems/"))))