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

Attempt to create multi-machine configuration

This commit is contained in:
contrapunctus 2021-09-17 23:11:34 +05:30
parent 9680150f28
commit 902268f913
1 changed files with 63 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

85
init.org
View File

@ -424,6 +424,19 @@ I'm pretty much using this to emulate `god-mode', which was great, but is no lon
#+END_SRC #+END_SRC
** Applications ** 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))
#+END_SRC
*** time tracking - chronometrist *** time tracking - chronometrist
choice.el is required by =chronometrist-key-values= choice.el is required by =chronometrist-key-values=
**** goal **** goal
@ -533,45 +546,59 @@ FILE-1 will appear above FILE-2."
(delete-other-windows) (delete-other-windows)
(pcase project (pcase project
("Acting" ("Acting"
(find-file "/media/data/anon/Documents/Sync/Wilde, Oscar/The Importance of Being Earnest/gutenberg-script.txt")) (find-file
(my-prefix-data-dir
"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 "/media/data/anon/1-music-scores/4-my-arrangements/2020/2020-10-14 An die ferne Geliebte/music/") (find-file
(my-prefix-data-dir
"1-music-scores/4-my-arrangements/2020/2020-10-14 An die ferne Geliebte/music/"))
(launch-file (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") (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 (launch-file
"/media/data/anon/Sync/Scores/voice/Beethoven, Ludwig van/IMSLP47561-PMLP11572-Beethoven_Lieder_Peters_9535_Op_98_An_die_ferne_Geliebte.pdf")) (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 (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/"
"/media/data/anon/1-music-scores/2-my-compositions/2019/2019-03 Kahe Natak Karte Ho Ji?/2 Adi Kal Se/") (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") (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")
(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 (find-file
"/media/data/anon/Documents/Text Files/latex/Don't, Mr. Disraeli!/dont-mr-disraeli.tex") (my-prefix-data-dir
"Documents/Text Files/latex/Don't, Mr. Disraeli!/dont-mr-disraeli.tex"))
(launch-file (launch-file
"/media/data/anon/Documents/Text Files/latex/Don't, Mr. Disraeli!/dont-mr-disraeli.pdf")) (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 "/media/data/anon/Sync/Scores/guitar-solo/repertoire.org") (let* ((path-1 (my-prefix-data-dir
(path-2 "/media/data/anon/Sync/Scores/guitar-duo/repertoire.org") "Sync/Scores/guitar-solo/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 "/media/data/anon/Documents/Text Files/music_stuff/piano.org") (find-file-other-window
(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/")
@ -587,32 +614,45 @@ FILE-1 will appear above FILE-2."
;; "/media/data/phone/anon/Nokia 6.1/external/DCIM/OpenCamera/osm/" ;; "/media/data/phone/anon/Nokia 6.1/external/DCIM/OpenCamera/osm/"
"/media/data/phone/anon/Nokia 6.1/Documents/Markor/OSM/TODO.md")) "/media/data/phone/anon/Nokia 6.1/Documents/Markor/OSM/TODO.md"))
("Programming" ("Programming"
(eww-open-file "/media/data/anon/git/cl/McCLIM/Documentation/Manual/Texinfo/mcclim.html") ;; (eww-open-file "/media/data/anon/git/cl/McCLIM/Documentation/Manual/mcclim.html")
(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 "/media/data/anon/Documents/sync/")) (find-file-other-window
(my-prefix-data-dir "Documents/sync/")))
("Recording" ("Recording"
(find-file-other-window "/media/data/anon/8-music-production/1-my-creations/BWV 1006a/1 Prelude/")) (find-file-other-window
(my-prefix-data-dir
"8-music-production/1-my-creations/BWV 1006a/1 Prelude/")))
("Singing" ("Singing"
(find-file-other-window "/media/data/anon/Sync/Scores/voice/repertoire.org")) (find-file-other-window
(my-prefix-data-dir
"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 "/media/data/anon/Documents/Text Files/students/") (find-file-other-window
(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
"/media/data/anon/Documents/Text Files/khilona/voices.org" (my-prefix-data-dir
"/media/data/anon/1-music-scores/2-my-compositions/2019/2019-03 Kahe Natak Karte Ho Ji/Kahe Natak Karte Ho Ji.org")) "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")))
("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 "/media/data/anon/1-music-scores/4-my-arrangements/2021/2021-03-11 Hallelujah/output/2021-03-11 Hallelujah-pacON.pdf") (launch-file
(find-file "/media/data/anon/1-music-scores/4-my-arrangements/2021/")) (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/")))
("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"
@ -623,7 +663,8 @@ 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
"/media/data/phone/anon/Nokia 6.1/Documents/Markor/Languages/hindi.md")) (my-prefix-data-dir
"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/"))))