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
** 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
choice.el is required by =chronometrist-key-values=
**** goal
@ -533,45 +546,59 @@ 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
(my-prefix-data-dir
"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 "/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
"/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
"/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"
(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"
(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/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")
(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
"/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
"/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")
(chronometrist-edit-file (chronometrist-active-backend)))
("Guitar"
(let* ((path-1 "/media/data/anon/Sync/Scores/guitar-solo/repertoire.org")
(path-2 "/media/data/anon/Sync/Scores/guitar-duo/repertoire.org")
(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"))
(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 "/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))
("Khilona archiving"
(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/Documents/Markor/OSM/TODO.md"))
("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
"/media/data/phone/anon/Nokia 6.1/Documents/Markor/Computers/todo.md"))
("Reading"
(find-file-other-window "/media/data/anon/Documents/sync/"))
(find-file-other-window
(my-prefix-data-dir "Documents/sync/")))
("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"
(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"
;; (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 "/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")
)
("Theatre rehearsal"
(contrapunctus-find-two-files
"/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"))
(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")))
("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 "/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/"))
;; (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/")))
("Video editing"
(start-process "kdenlive" (generate-new-buffer-name "kdenlive")
;; "flatpak" "run" "org.kde.kdenlive"
@ -623,7 +663,8 @@ FILE-1 will appear above FILE-2."
"/media/data/khilona/Videos/podcast/"))
("Wiktionary"
(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"
(find-file-other-window
"/media/data/phone/anon/Nokia 6.1/Documents/Markor/Songs or Poems/"))))