Use symlinks for multi-machine config; create my-find-file*
This commit is contained in:
contrapunctus
parent
902268f913
commit
b2055090d2
91
init.org
91
init.org
|
|
@ -425,16 +425,8 @@ I'm pretty much using this to emulate `god-mode', which was great, but is no lon
|
|||
|
||||
** Applications
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(defvar my-data-dir
|
||||
(pcase (->> (shell-command-to-string "hostname")
|
||||
(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))
|
||||
(defun my-find-file* (&rest paths)
|
||||
(mapc #'find-file paths))
|
||||
#+END_SRC
|
||||
|
||||
*** time tracking - chronometrist
|
||||
|
|
@ -547,58 +539,42 @@ FILE-1 will appear above FILE-2."
|
|||
(pcase project
|
||||
("Acting"
|
||||
(find-file
|
||||
(my-prefix-data-dir
|
||||
"Documents/sync/Wilde, Oscar/The Importance of Being Earnest/gutenberg-script.txt")))
|
||||
"/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")
|
||||
(find-file
|
||||
(my-prefix-data-dir
|
||||
"1-music-scores/4-my-arrangements/2020/2020-10-14 An die ferne Geliebte/music/"))
|
||||
(launch-file
|
||||
(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")))
|
||||
(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"))
|
||||
("Aural exercises"
|
||||
(find-file-other-window
|
||||
(my-prefix-data-dir
|
||||
"Documents/Text Files/music_stuff/harmonic-analysis.org")))
|
||||
(find-file-other-window "/media/data/anon/Documents/Text Files/music_stuff/harmonic-analysis.org"))
|
||||
("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/"
|
||||
(my-prefix-data-dir
|
||||
"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/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"))
|
||||
("Data organization"
|
||||
(find-dired "/media/data/anon/" "-name \\'dl\\' -size +0c"))
|
||||
("Digitization"
|
||||
(find-file
|
||||
(my-prefix-data-dir
|
||||
"Documents/Text Files/latex/Don't, Mr. Disraeli!/dont-mr-disraeli.tex"))
|
||||
(launch-file
|
||||
(my-prefix-data-dir
|
||||
"Documents/Text Files/latex/Don't, Mr. Disraeli!/dont-mr-disraeli.pdf")))
|
||||
(my-find-file*
|
||||
"/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)))
|
||||
("Guitar"
|
||||
(let* ((path-1 (my-prefix-data-dir
|
||||
"Sync/Scores/guitar-solo/repertoire.org"))
|
||||
(path-2 (my-prefix-data-dir
|
||||
"Sync/Scores/guitar-duo/repertoire.org"))
|
||||
(let* ((path-1 "/home/anon/Sync/Scores/guitar-solo/repertoire.org")
|
||||
(path-2 "/home/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
|
||||
(my-prefix-data-dir
|
||||
"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 "/media/data/anon/Documents/sync/Khilona/")
|
||||
|
|
@ -618,41 +594,31 @@ FILE-1 will appear above FILE-2."
|
|||
(find-file-other-window
|
||||
"/media/data/phone/anon/Nokia 6.1/Documents/Markor/Computers/todo.md"))
|
||||
("Reading"
|
||||
(find-file-other-window
|
||||
(my-prefix-data-dir "Documents/sync/")))
|
||||
(find-file-other-window "/media/data/anon/Documents/sync/"))
|
||||
("Recording"
|
||||
(find-file-other-window
|
||||
(my-prefix-data-dir
|
||||
"8-music-production/1-my-creations/BWV 1006a/1 Prelude/")))
|
||||
"/media/data/anon/8-music-production/1-my-creations/BWV 1006a/1 Prelude/"))
|
||||
("Singing"
|
||||
(find-file-other-window
|
||||
(my-prefix-data-dir
|
||||
"Sync/Scores/voice/repertoire.org")))
|
||||
"/home/anon/Sync/Scores/voice/repertoire.org"))
|
||||
("Subtitles"
|
||||
;; (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"))
|
||||
("Teaching"
|
||||
(find-file-other-window
|
||||
(my-prefix-data-dir
|
||||
"Documents/Text Files/students/"))
|
||||
(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
|
||||
(my-prefix-data-dir
|
||||
"Documents/Text Files/khilona/voices.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")))
|
||||
"/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
|
||||
;; "/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")
|
||||
(launch-file
|
||||
(my-prefix-data-dir
|
||||
"1-music-scores/4-my-arrangements/2021/2021-03-11 Hallelujah/output/2021-03-11 Hallelujah-pacON.pdf"))
|
||||
(find-file
|
||||
(my-prefix-data-dir
|
||||
"1-music-scores/4-my-arrangements/2021/")))
|
||||
(my-find-file*
|
||||
"/media/data/anon/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/"))
|
||||
("Video editing"
|
||||
(start-process "kdenlive" (generate-new-buffer-name "kdenlive")
|
||||
;; "flatpak" "run" "org.kde.kdenlive"
|
||||
|
|
@ -663,8 +629,7 @@ FILE-1 will appear above FILE-2."
|
|||
"/media/data/khilona/Videos/podcast/"))
|
||||
("Wiktionary"
|
||||
(find-file-other-window
|
||||
(my-prefix-data-dir
|
||||
"anon/Nokia 6.1/Documents/Markor/Languages/hindi.md")))
|
||||
"/media/data/phone/anon/Nokia 6.1/Documents/Markor/Languages/hindi.md"))
|
||||
("Writing"
|
||||
(find-file-other-window
|
||||
"/media/data/phone/anon/Nokia 6.1/Documents/Markor/Songs or Poems/"))))
|
||||
|
|
|
|||
Loading…
Reference in New Issue