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

Move private configuration into encrypted file

This commit is contained in:
contrapunctus 2022-02-20 11:09:44 +05:30
parent e55008c430
commit a16736ee43
2 changed files with 6 additions and 436 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
contrapunctus/my-chronometrist.el.gpg Normal file
View File

Binary file not shown.

442
init.org
View File

@ -1826,8 +1826,8 @@ choice.el is required by =chronometrist-key-values=
chronometrist-before-in-functions '()
chronometrist-after-in-functions '(;; chronometrist-tags-add
;; chronometrist-kv-add
contrapunctus-start-project)
chronometrist-before-out-functions '(;; contrapunctus-before-project-stop
my-start-project)
chronometrist-before-out-functions '(;; my-before-project-stop
;; chronometrist-tags-add
;; chronometrist-tag-choice
chronometrist-key-values-unified-prompt
@ -1845,22 +1845,10 @@ choice.el is required by =chronometrist-key-values=
("Time" 10 t)]))
#+END_SRC
**** private config :crypt:
-----BEGIN PGP MESSAGE-----
jA0ECQMCv6JpOUpeiBn/0sEyAXTx2w7PFIY6FDKLWZjywmFiU7cH7vTF41bGqcCc
b0X6/txyHdXTKaME6kxjTWixeSNGa2hbnJXsPaotkXBEAgRgn17i5Qfe3zn7KPOK
vyCpXjB3DURxzrot6MX2Odllhu/udgpYz3l1riNpS4A8bML08caKqGmbNSB6Z2S9
rMmCoXA3tnErzyopeKdf+B5f3rFYhoGwUZDXdpeGwOv02ObVTQ46lo1ZNYnHS7P0
Q+2OhhTT+aUIhyqJro/tgd7AjX1AHkhMLKaOH/26ij87FmFakJ4qAx1cMMfTgr7y
SLffJ7Oho1f5VpuEGodBpa+KWSl2WALAEf7fPYBeBag2FaO+/wDSfiaRdYU0GwP2
Dr2So6HNJVMUjSF5Swmphx+1W3I2KuVxb8n6PW8exCrZmmuX6BnJEfyXBc4V/nXA
DTBtvHghRJNCznaSlwNPnEposGHfNIeeXgEgMsA77fvx3z0S+y3GqntkvWa5NSMJ
IOhATmIgXRmVpLTUexd2cdMSIDgv9eMfWylyLBEDO8eMCo5EAreLpKjxkbi4pBc0
D7k4GGJun+BNH4k0oKIWXtunUvkqpEQ5Rcikw1odYWUZxu0x6Z+rZKlsNy4Sescf
CpXgtR8glWmgerWCXQpHWVaAW45d2FeoFPAh/TeJR2u4N94/
=+veS
-----END PGP MESSAGE-----
Some Chronometrist configuration I prefer to keep private.
#+BEGIN_SRC emacs-lisp
(require 'my-chronometrist)
#+END_SRC
**** activity-indicator
#+BEGIN_SRC emacs-lisp
@ -1892,414 +1880,6 @@ FILE-1 will appear above FILE-2."
(outline-show-subtree))
#+END_SRC
**** start-project
#+BEGIN_SRC emacs-lisp
(defvar my-arrangement-frameset
[frameset
1 (24907 10263 320473 920000) nil nil nil nil
((((minibuffer . t)
(undecorated)
(override-redirect)
(border-width . 0)
(internal-border-width . 0)
(right-divider-width . 0)
(bottom-divider-width . 0)
(vertical-scroll-bars)
(horizontal-scroll-bars)
(foreground-color . "#d6d6d4")
(background-color . "#1c1e1f")
(mouse-color . "black")
(border-color . "black")
(screen-gamma)
(line-spacing)
(left-fringe . 4)
(right-fringe . 4)
(no-special-glyphs)
(scroll-bar-foreground)
(scroll-bar-background)
(menu-bar-lines . 1)
(tab-bar-lines . 0)
(height . 40)
(tool-bar-lines . 0)
(title)
(wait-for-wm . t)
(tool-bar-position . top)
(inhibit-double-buffering)
(icon-type . t)
(auto-raise)
(auto-lower)
(cursor-type . box)
(scroll-bar-width . 16)
(scroll-bar-height . 16)
(alpha)
(no-focus-on-map)
(no-accept-focus)
(fullscreen . maximized)
(visibility . t)
(skip-taskbar)
(z-group)
(display-type . color)
(background-mode . dark)
(cursor-color . "#fb2874")
(sticky)
(environment)
(last-focus-update . t)
(frameset--id . "6557-E2CE-3D63-0FD0")
(frameset--mini t . t)
(width . 169)
(modeline . t)
(unsplittable)
(left . 0)
(top . 0)
(icon-name)
(display . ":0.0")
(explicit-name))
((min-height . 8)
(min-width . 20)
(min-height-ignore . 4)
(min-width-ignore . 6)
(min-height-safe . 2)
(min-width-safe . 4)
(min-pixel-height . 136)
(min-pixel-width . 160)
(min-pixel-height-ignore . 68)
(min-pixel-width-ignore . 48)
(min-pixel-height-safe . 34)
(min-pixel-width-safe . 32))
vc (pixel-width . 1366)
(pixel-height . 669)
(total-width . 171)
(total-height . 39)
(normal-height . 1.0)
(normal-width . 1.0)
(combination-limit)
(hc
(pixel-width . 1366)
(pixel-height . 507)
(total-width . 171)
(total-height . 29)
(normal-height . 0.7661169415292354)
(normal-width . 1.0)
(combination-limit)
(leaf (pixel-width . 686)
(pixel-height . 507)
(total-width . 86)
(total-height . 29)
(normal-height . 1.0)
(normal-width . 0.5)
(buffer "2021-09-12 Songs of Travel-pacON.pdf"
(selected)
(hscroll . 0)
(fringes 4 4 nil nil)
(margins nil)
(scroll-bars nil 0 t nil 0 t nil)
(vscroll . 0)
(dedicated)
(point . 1)
(start . 1)))
(leaf (last . t)
(pixel-width . 680)
(pixel-height . 507)
(total-width . 85)
(total-height . 29)
(normal-height . 1.0)
(normal-width . 0.5)
(buffer "IMSLP89688-PMLP183796-SongsOfTravel.pdf"
(selected)
(hscroll . 0)
(fringes 4 4 nil nil)
(margins nil)
(scroll-bars nil 0 t nil 0 t nil)
(vscroll . 0)
(dedicated)
(point . 1)
(start . 1))))
(leaf (last . t)
(pixel-width . 1366)
(pixel-height . 162)
(total-width . 171)
(total-height . 9)
(normal-height . 0.23388305847076465)
(normal-width . 1.0)
(buffer "guitar.ly"
(selected . t)
(hscroll . 0)
(fringes 4 4 nil nil)
(margins nil)
(scroll-bars nil 0 t nil 0 t nil)
(vscroll . 0)
(dedicated)
(point . 1)
(start . 1)))))])
#+END_SRC
#+BEGIN_SRC emacs-lisp
(defvar my-composition-frameset
[frameset 1
(25081 27011 924166 854000)
nil nil nil nil
((((minibuffer . t)
(undecorated)
(override-redirect)
(border-width . 0)
(internal-border-width . 0)
(right-divider-width . 0)
(bottom-divider-width . 0)
(vertical-scroll-bars)
(horizontal-scroll-bars)
(foreground-color . "#d6d6d4")
(background-color . "#1c1e1f")
(mouse-color . "black")
(border-color . "black")
(screen-gamma)
(line-spacing)
(left-fringe . 4)
(right-fringe . 4)
(no-special-glyphs)
(scroll-bar-foreground)
(scroll-bar-background)
(menu-bar-lines . 1)
(tab-bar-lines . 0)
(height . 58)
(tool-bar-lines . 0)
(title)
(wait-for-wm . t)
(tool-bar-position . top)
(inhibit-double-buffering)
(icon-type . t)
(auto-raise)
(auto-lower)
(cursor-type . box)
(scroll-bar-width . 16)
(scroll-bar-height . 16)
(alpha)
(no-focus-on-map)
(no-accept-focus)
(fullscreen . maximized)
(visibility . t)
(skip-taskbar)
(z-group)
(display-type . color)
(background-mode . dark)
(cursor-color . "#fb2874")
(sticky)
(environment)
(last-focus-update . t)
(frameset--id . "3226-BFF7-1499-D0C7")
(frameset--mini t . t)
(modeline . t)
(unsplittable)
(icon-name)
(display . ":0.0")
(explicit-name)
(width . 235)
(left . 31)
(top . 0))
((min-height . 8)
(min-width . 20)
(min-height-ignore . 4)
(min-width-ignore . 6)
(min-height-safe . 2)
(min-width-safe . 4)
(min-pixel-height . 136)
(min-pixel-width . 160)
(min-pixel-height-ignore . 68)
(min-pixel-width-ignore . 48)
(min-pixel-height-safe . 34)
(min-pixel-width-safe . 32))
hc
(pixel-width . 1889)
(pixel-height . 981)
(total-width . 236)
(total-height . 58)
(normal-height . 1.0)
(normal-width . 1.0)
(combination-limit)
(vc
(pixel-width . 945)
(pixel-height . 981)
(total-width . 118)
(total-height . 58)
(normal-height . 1.0)
(normal-width . 0.5)
(combination-limit)
(leaf
(pixel-width . 945)
(pixel-height . 862)
(total-width . 118)
(total-height . 51)
(normal-height . 0.884102564102564)
(normal-width . 1.0)
(buffer "music"
(selected . t)
(hscroll . 0)
(fringes 4 4 nil nil)
(margins nil)
(scroll-bars nil 0 t nil 0 t nil)
(vscroll . 0)
(dedicated)
(point . 444)
(start . 1))
(prev-buffers
("init.org[emacs-lisp]" 35109 35711)
("music" 1 444)
("2 Mera Mera Kyon-pacON.pdf" 1 1)
("composition-portfolio.org" 1 3240)
("*Chronometrist*" 1 302)
("Birthdays.md" 1 28)
("Markor" 1 900)
("People" 1 162)
("*compilation*" 1 1)
("*async-backup*" 1 624)
("pdf-tools.el" 18146 19210)))
(leaf
(last . t)
(pixel-width . 945)
(pixel-height . 119)
(total-width . 118)
(total-height . 7)
(normal-height . 0.11589743589743609)
(normal-width . 1.0)
(buffer "*compilation*"
(selected)
(hscroll . 0)
(fringes 4 4 nil nil)
(margins nil)
(scroll-bars nil 0 t nil 0 t nil)
(vscroll . 0)
(dedicated)
(point . 1)
(start . 1))
(prev-buffers
("music" 232 444)
("*compilation*" 1 1)
("composition-portfolio.org" 3080 3240)
("2 Mera Mera Kyon-pacON.pdf" 1 1)
("init.org[emacs-lisp]" 35577 35711))))
(leaf
(last . t)
(pixel-width . 944)
(pixel-height . 981)
(total-width . 118)
(total-height . 58)
(normal-height . 1.0)
(normal-width . 0.5)
(buffer "2 Mera Mera Kyon-pacON.pdf"
(selected)
(hscroll . 0)
(fringes 4 4 nil nil)
(margins nil)
(scroll-bars nil 0 t nil 0 t nil)
(vscroll . 0)
(dedicated)
(point . 1)
(start . 1))
(prev-buffers
("music" 1 444)
("2 Mera Mera Kyon-pacON.pdf" 1 1)
("pdf-tools.el" 18146 19210)
("init.org[emacs-lisp]" 35577 35711)))))])
#+END_SRC
#+BEGIN_SRC emacs-lisp
(defun contrapunctus-start-project (project)
(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 "/media/data/anon/Documents/Text Files/latex/Nithalle Ki Diary/nithalle ki diary.pdf"))
("Arrangement/new edition"
(my-find-file*
"/media/data/anon/1-music-scores/4-my-arrangements/2021/2021-09-12 Songs of Travel/1 The Vagabond/music/guitar.ly"
"/media/data/anon/1-music-scores/4-my-arrangements/2021/2021-09-12 Songs of Travel/output/2021-09-12 Songs of Travel-pacON.pdf"
"~/Sync/Scores/voice/Vaughan Williams/IMSLP89688-PMLP183796-SongsOfTravel.pdf")
(frameset-restore my-arrangement-frameset :reuse-frames t))
("Aural exercises"
(find-file-other-window "/media/data/anon/Documents/Text Files/music_stuff/harmonic-analysis.org"))
((or "Sequencing" "Composing")
(my-find-file*
"~/1-music-scores/2-my-compositions/composition-portfolio.org"
"~/1-music-scores/2-my-compositions/2016/2016-07 Sab Ka Sooraj/2 Mera Mera Kyon/output/2 Mera Mera Kyon-pacON.pdf"
"~/1-music-scores/2-my-compositions/2016/2016-07 Sab Ka Sooraj/2 Mera Mera Kyon/music/")
(frameset-restore my-composition-frameset :reuse-frames t))
("Data organization"
(find-dired "/media/data/anon/" "-name \\'dl\\' -size +0c"))
("Digitization"
(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-backend (chronometrist-active-backend)))
("Guitar"
(let* ((path-1 "~/Sync/Scores/guitar-solo/repertoire.org")
(path-2 "~/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)
(find-file-other-window path-1)
(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")
(outline-show-subtree))
("Khilona archiving"
(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 "/media/data/anon/Documents/Text Files/khilona/2011 Me?/script/script.tex"))
("OSM"
;; (delete-window (get-buffer-window " *JOSM*"))
(contrapunctus-find-two-files "/media/data/phone/anon/Nokia 6.1/Android/data/net.osmand.plus/files/"
;; "/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/mcclim.html")
(find-file-other-window "~/Documents/Text Files/programming/projects.org"))
("Reading"
(find-file-other-window "/media/data/anon/Documents/sync/"))
("Recording"
(find-file-other-window
"/media/data/anon/8-music-production/1-my-creations/BWV 1006a/1 Prelude/"))
("Singing"
(find-file-other-window
"~/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/")
;; (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"))
("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")
(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"
"kdenlive"
;; "/home/khilona/Videos/ghar ghar theatre 3/ggt3.kdenlive"
"/media/data/khilona/Videos/podcast/episode 3/episode 3.kdenlive")
(find-file-other-window ;; "/home/khilona/Videos/ghar ghar theatre 3/"
"/media/data/khilona/Videos/podcast/"))
("Wiktionary"
(find-file-other-window
"/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/"))))
#+END_SRC
**** commit-prompt
#+BEGIN_SRC emacs-lisp
(autoload 'magit-anything-modified-p "magit")
@ -2317,16 +1897,6 @@ Return nil (and run `magit-status') if the user answers no."
(t (magit-status) nil)))
#+END_SRC
**** before-project-stop
#+BEGIN_SRC emacs-lisp
(defun contrapunctus-before-project-stop (project)
(if (member project '("Composing" "Khilona archiving" "Programming"))
(contrapunctus-commit-prompt)
;; all functions in `chronometrist-before-project-stop-functions'
;; must return t for successful clock-out
t))
#+END_SRC
**** after-project-stop
FIXME -
1. instead of changing the last plist, change the last plist with name "OSM" and without tags or key-values (because a new plist may have been inserted in the meantime)