From a16736ee43d652b341800f8f32c08818920b41e9 Mon Sep 17 00:00:00 2001 From: contrapunctus Date: Sun, 20 Feb 2022 11:09:44 +0530 Subject: [PATCH] Move private configuration into encrypted file --- contrapunctus/my-chronometrist.el.gpg | Bin 0 -> 4050 bytes init.org | 442 +------------------------- 2 files changed, 6 insertions(+), 436 deletions(-) create mode 100644 contrapunctus/my-chronometrist.el.gpg diff --git a/contrapunctus/my-chronometrist.el.gpg b/contrapunctus/my-chronometrist.el.gpg new file mode 100644 index 0000000000000000000000000000000000000000..d99334018169ca9b73337fda31b1fdc903834678 GIT binary patch literal 4050 zcmV;@4=wPF4Fm}T0^sxgn#FLrHUHA<0r(zcX(BxD=7zx#^3Oz-L>6Dk5rw+uw*VEq z=4s6Q&PeZFP=XU>Mat1gvT{h5Lv&d#s|OlsJHDbWE$Hb1S(!s7nWcCBL%peFG{Dm(@pRP~DVB4-Y!NBPDG~N<_yWZ_BOO!l6@>a3tCj zM)Bv&B(g76Yv@Pzq*s zVqA};OXX&v>r)obzaU~2z`juGy$||*sW&)F4Tdhdq7@tBeA+2~^QF4hg*w8BCKi<^ zXe{=x0feW9gsX8p`x&JM-|YFg1XLLX;yN3WQBS{~!$C{J$?H(!C~+b0C`#P z987|La-nAx(qt(sH3uBy^|vUPZZVA>|I+0t3#drb1UhzggTT@4VA2oZ%-tYic_w7} z1^i>w3!Ou`u4^t&^~O|@eI@9BH?t+5<4OFfm=lsJ0)+GPwTmtTjpiFr8TfIYzDnT{ zFVct?D?cmsE0~VfH?W zyAVmTvZLs>m)E|+B4|?XQ7Fa-oNT6tRm@qTiq>6o%y05m$n^+f&E`19%ENsDpb4rk zUcn@TNw_rZN}9nBN08JwY>Xc7@#B3?pYB#DIbH4`+h=Dw>j|C@Vi(y;Pm)DNU zX%hI4uBO9GNB?Sr81$CJcJ8@tfEu&a#SK%Je1p*}p^&_>JnF#$@j#X4=~a5{S=J8n z#Ievv(uVi=x6Ka)pLmVR{4mAz=@_p=wBEp%3^J&Bkj8mpCWq8|IsjmYuv<6{Y$-1& zneZu_h?VtOPPA@{Ec?gJg!&@sZMX;QUxT^)`-YhB1f%fZa^r!f*GyZobYsr@1m*EM zKU^r~M8&2t$cVkI#1Po?uQi7>h*>Zk$_7U^z4(C(*J@{#Q)t6slZB60`39>HOLql- z{#@6#FSax27BnTJk(!YHosF&FuGp%Gy1ACFqtl;R;J)fV6k(ZnQL%chu$x%A$jfGC zRv_Ah(=Ir()sV#?#ixQ_w|cr+CG1wP6|3MU+A!omP~ zYU=K&u>I8xeosDdI=%}0#RGe-yR+{j;0>qc6$TPUWiVag2w{F8<%pMVHO;?T7sPl} z6nuEpBDi5D5t6}s+nZVT*!>Yc9Pdl=$bwVET|m0-87)>t2^W!}CB5Q-szel01qj2q zV!^X-u;ama>=kO3Uzk3C^>YP{ZcjbYLrkB|^mLu2RT6YNxatpROjIJ2n!XmdE?;S5 z#Gj-M(IZ~t4gcKhNL2&K*wtuTkiVd}9RaI00;1KQ*0lO}@>7FO7_hEExmwb+`w7Av_Xxn&qia@Y1_AtMT{xEJhz?e%VlQZ=cMZmW_^O*1zT zj@Fm3RxLm~n3U{&BPBg7k!Hpt+7Xv}9b5&cb2F(Uo4U{L2V1r?R<_^HYGzB$DxxSW z@@wHfeN{)|`WsOxy@C+sl`ml@wA%_3B{73d83@gI|HeRtPGtVfsE63gxRy#M1fq~F zAlZfq?ovCw=aGZ|WZgvXi#>Wy;&r>;hQW(Q52Jp_;;z1neFwEHKWkquNJ&ANOQWy}NA`!ej|lMm>r%>qr5 zd9@lZkf^;-m3COkT?PUzW;th^CgplX-MtgsfIu?bkT zR&K!yaqTn*Q08jSk6DySb|0nv#D&&vQW#GVAx^n7Scw~=!M#^fi&zf_^lZ9SlJs6{ zOv8o?J-~R3f6G(=R7Mkhc$*MrN4yLAkiFKM&6X1~qXkB3Z^9G2NU1c6!622QQyIH; z2;bvW>3zFKkW?Q4bUH;tD0+Bw&pgfHBue0I9}n;~HAO?2lU0NS$D4b!oHi~&)YB6$ zuP${uB}-e9%%T4pErnsLoN&;ej?C{hKnKad(ftKNoke*Gi~va>WuX{XK!FSt@jP)_ zWrtLG3ogqm--N?#=buc=J^aE$DQ*7+_?-P5dIj`&&}^+|Y^D5ts5NINesDgEo0g?J z3&&^9Ut^0)w~*$YCrXUYH=X>yXDjErlvmAr_sWBaS`?obga%;ESBbL+2Fdc5ZJ3g` zS`Rz;hsw?c524%c7?;_!{IE-R=3==W2zyHwy`IIM)?I3a^#PrxyVhVo$bAx)1tk3@ zc4+UEjs+4xjY2!^D1>#2EJk1ytOB;XwdUtM;&Yli#i@RD6#h^ou>Iu(XgT2s`$H83 zyNZ$hE%&s!&*kmc+q2_>|9#9<`#5nlZ!Oh^QZBkes+~No`&D~@+z(nsDC01auqRlJ3R46lK|4k{GNBkd}^B51s4YxsWq z#p-W4qqH#(fgT&hg&cJ4@E=1xU=@YQ=BNUIKmSeQ2|nP9tEGk}zh&_?2J6bjCcOubymq^`FJ3OT<&Ml0vVN!1x0&xw*ZQpE^OjfO z3!Id);v)(0|BC0JMmD`;WHinYPX+{J*Lhwk|G2Vcj5`U%fq)~mb2QnA18lu&je#l# zS!78IFaIh7wPSkBkBTH~`xsP(BI4z?yy4iZPZRx=Di)d8M-VN9wzONf+js_xB7E~2 zF)p0+`BOb?6RG@s8x=638cfxlXlqVc(j@QXuH6zH&x9!R&kgF6oGR|QLmSU3&Mq!T zB2KFXkjC>8*eh#WNNwz}HmPP`d!2iEs^F{43W<|lnCiw;44Ex10GS>VBEo(Cb_4~+ z`mU)EsZuIPM*ejf8ooOrfe@<|bFN7$8{x-ma3x(G%^|#}LwP1IR72fUC)9RGkG!TZ zI6S@?6uQJ=_W_b)C_STxP%Qgh&S(o0ARzwrc+ifmE{=6-5dOEk3-K6BAkHI`u-=>G ztk71BWtp{N@)yDS@{Y)@@Tx4sdgo3c9muerN=p`!LWUI5gc91;Jh2z)9(17uf_9_f z;AIN{(gEJE_7s3UVCOB_8jXitqiNz;B6Xuu!|9h-?pdF2&G>6kK|3f>LB4amJVjXC zO>6%9@nM4$ggcz*TloFZz)^l+&`(|zB~xYo2@&`yUyB*Cp}1C>ugJnLO>~WTz@;=4 z`F|>!dyYw-f-Oh$Q*HZp1VP~iJZMUX<)?NZ%a-ov>VBFMdna{ak~h`rB)Af`+<%A? z;e&*>or+;>PW*=W6aP}T6Ocx_Ef@3#vrr7=f`YL<<%&<@AS@1jZh6ctL)?XOd?S@H zLmVdLk^b^guv^dw^bz(*+Nm_F+(MpPqX>JlGfvo}y%W6KPp1Kni?;n-)!SGHYyM%- z*4?Rjy2DNbX8#^(vX%LS4e%9j0XADClyA}#J3Jz?bvz2@<-91s{P8OucqTi%_m9Tu z(PqD7#zG@sqw2Ufs{B~5^JDj^G^baP6Josv7_WJ@` zZktX<9r@uNk@{PZz0dyVH$7#*fvVv!gq=j(@vm4|iuTiMwe&NHRXv^A{|%S?l=?cx z0B|;V(P!?O2)FCDscR5-#C5FIc=Ua73!eneg!mZy%qs#+%lQ96O~@_I1QB6B=h)b6 zDPGe70OElqWRZL4R3LsPF2{>t%?x-$wrNea1!mRaDJFdgp3qo99DO%}_7{4Rt0uy5 z#Isw^Av_X~UNZX8YuW#Qj>>XEU<<(g#nuty=;7dlxj*16o};({@IdPr{R6@BOLWA( z)Ohb&Ho7FO?>f52igmm;2`BwLTt#JW6_`|#7D_b` z5EybY)b)0dQ(YUhfU=@_NlqcWOlI z!cK~rv{`-SowJ^tnEVgX&hX4$6__M*_8ewP8$k6#Q`}ssZ87=QLQ_ha#B7jN?huz3 zt4NrK4MLm{eYF*e?9J1lsgns^jQT#7#$=YmoWs>E(vU~a6JUj09lg1P3P&L zBB2Q7#<%3YssaN2`5#g&@(RBWTS2>qX>A9*UT(6N&Cc@sVYWB*_pp}bbT(qVMNg-u zCL+=&WgsS(Q@>ZIEN$&w%t*JHVmEa~=K0jO>&XgzyXHY`o~t0I_YJIFdp7E><_peB zElD-qzLt}Ym$BP+z3cKq+G!hHEIa-zc8y=Q<2AGMsvD z=c5GxyKpp~#$ub~Te$uXY*v-QZrMn86MAcghv?y#N4)fMd>BX+u}!ypVW}rXWO8f% E+g%CMKL7v# literal 0 HcmV?d00001 diff --git a/init.org b/init.org index 2eff45a..5d8c5db 100644 --- a/init.org +++ b/init.org @@ -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)