[emacs][bin] improve random; add lilypond-mode; add scripts for gitHEADmaster

annex with picard and write org agenda

2 files changed, 51 insertions, 0 deletions

diff --git a/misc/bin/git-annex-picard.sh b/misc/bin/git-annex-picard.sh
new file mode 100755
index 0000000..de14399
--- /dev/null
+++ b/misc/bin/git-annex-picard.sh
@@ -0,0 +1,6 @@
+#!/bin/bash
+
+set -eu
+git annex get "$1"
+git annex unlock "$1"
+picard "$1"
diff --git a/misc/bin/org-a-sync.el b/misc/bin/org-a-sync.el
new file mode 100755
index 0000000..7123f04
--- /dev/null
+++ b/misc/bin/org-a-sync.el
@@ -0,0 +1,45 @@
+#!/bin/emacs --script
+
+(add-to-list 'load-path (locate-user-emacs-file "lisp/my"))
+(require 'org-agenda)
+(require 'my-package)
+(my-read-local-config)
+(my-setq-from-local my-org-agenda-and-next-export-files)
+(my-setq-from-local org-agenda-files)
+
+(progn
+  (setq org-todo-keywords
+        '((sequence "TODO(t)" "DOIN(i)" "WAIT(w)" "|"
+                    "DONE(d)" "OBSO(o)" "DUPL(u)")))
+  (setq org-closed-keep-when-no-todo t)
+  (setq org-enforce-todo-dependencies t
+        org-enforce-todo-checkbox-dependencies nil)
+  (setq org-use-fast-todo-selection 'expert)
+  (setq org-agenda-custom-commands
+	      `(("A" "Agenda and next"
+	         ((agenda ""
+		                ((org-agenda-span 32)
+                     ;; only works when `org-agenda-start-on-weekday'
+                     ;; is nil
+                     (org-agenda-start-day "-2d")))
+	          (tags-todo "PRIORITY=\"A\"" nil))
+	         nil
+           ,my-org-agenda-and-next-export-files
+           )))
+  (setq large-file-warning-threshold nil)
+  (setq org-agenda-todo-ignore-time-comparison-use-seconds t)
+  (setq org-agenda-todo-ignore-deadlines 'all)
+  (setq org-agenda-todo-ignore-scheduled 'all)
+  (setq org-agenda-todo-ignore-with-date 'all)
+  (setq org-agenda-todo-ignore-timestamp 'all)
+  (setq org-agenda-tags-todo-honor-ignore-options t)
+  (setq org-agenda-sticky t)
+  (setq org-agenda-inhibit-startup t)
+  (setq org-agenda-skip-deadline-if-done nil)
+  (setq org-agenda-skip-scheduled-if-done nil)
+  (setq org-agenda-skip-timestamp-if-done t)
+  (setq org-agenda-start-on-weekday nil)
+  )
+
+(let ((make-backup-files nil))
+  (call-interactively 'org-store-agenda-views))