C-c S-f6 to open work_archive.org

diff --git a/bba.org b/bba.org
index ecc265e7b1e3b8b2d5d908a3fdef038892762c9b..230709e8081d265fefaa6f1c38b4f163daead079 100644 (file)
--- a/bba.org
+++ b/bba.org
@@ -722,6 +722,7 @@ Very useful for repetitive literate devops jobs.
   (if (equal "work" (getenv "SYSENV"))
       (progn
         (global-set-key (kbd "C-c <f6>") '(lambda () (interactive) (find-file "~/workorg/work.org")))
+        (global-set-key (kbd "C-c S-<f6>") '(lambda () (interactive) (find-file "~/workorg/work_archive.org")))
         (global-set-key (kbd "C-c <f8>") '(lambda () (interactive) (find-file "~/workorg/workhours.org")))
         )
     (progn