adjust org-agenda view

Signed-off-by: Andreas Gerler <baronNOSPAMbundesbrandschatzamt.de>

diff --git a/bba-orgmode.org b/bba-orgmode.org
index 74caa8bdca9652a86e5dd1ed19e17cd6d8949028..3794216004d176e02a7d43f6e04ba25acad47031 100644 (file)
--- a/bba-orgmode.org
+++ b/bba-orgmode.org
@@ -82,6 +82,12 @@ this is how your firefox bookmark must look like:
 
 #+END_SRC
 
+We want to see the next weeks as well in the agenda.
+
+#+begin_src emacs-lisp
+  (setq org-agenda-span 30)
+#+end_src
+
 ** org sync to icloud
 [2022-09-07 Wed 11:11]
 

diff --git a/custom.el b/custom.el
index f7a8b3e7f3a10c8b8ee05f6a7268a537cc9c1f3d..b98634cadd81a7d9278a97a2a924a4e9e2e47c08 100644 (file)
--- a/custom.el
+++ b/custom.el
@@ -7,9 +7,10 @@
    ["black" "red3" "green3" "yellow3" "LightSkyBlue1" "magenta3" "cyan3" "gray90"])
  '(aws-snippets-ec2-list-instances-query
    '("Reservations[].Instances[].[Tags[?Key==`Name`].Value[] | [0],Tags[?Key==`Schedule`].Value[] | [0],InstanceId, State.Name, PublicDnsName, InstanceType,Placement.AvailabilityZone,LaunchTime]" "Reservations[].Instances[].[Tags[?Key==`Name`].Value[] | [0],Tags[?Key==`Schedule`].Value[] | [0],InstanceId, State.Name, PublicDnsName, InstanceType,Placement.AvailabilityZone,LaunchTime, IamInstanceProfile.Arn]" "Reservations[].Instances[].[Tags[?Key==`Name`].Value[] | [0],Tags[?Key==`Schedule`].Value[] | [0],InstanceId, State.Name, PublicDnsName, InstanceType,Placement.AvailabilityZone,LaunchTime, KeyName]" "Reservations[].Instances[?IamInstanceProfile.Arn==null].[Tags[?Key==`Name`].Value[] | [0],Tags[?Key==`Type`].Value[] | [0],Tags[?Key==`Project`].Value[] | [0],InstanceId, State.Name, PublicDnsName, InstanceType,Placement.AvailabilityZone,LaunchTime, IamInstanceProfile.Arn]"))
- '(aws-snippets-profiles '("test" "prod" "cn"))
+ '(aws-snippets-profiles '("test" "prod" "cn-prod"))
  '(aws-snippets-regions '("us-east-1" "eu-west-1" "ap-southeast-1" "cn-north-1"))
  '(blink-cursor-mode t)
+ '(bmkp-last-as-first-bookmark-file "~/workorg/bookmarks")
  '(cfengine-parameters-indent '(promise pname 2))
  '(custom-safe-themes
    '("8db4b03b9ae654d4a57804286eb3e332725c84d7cdab38463cb6b97d5762ad26" default))
@@ -17,6 +18,7 @@
  '(grep-template "grep -i <X> <C> -nH -e <R> <F>")
  '(helm-comint-mode-list '(comint-mode slime-repl-mode sql-interactive-mode))
  '(history-length 1000)
+ '(kubel-use-namespace-list 'on)
  '(magit-commit-arguments '("--signoff" "--gpg-sign=43BA01102D205F88"))
  '(magit-commit-signoff t)
  '(magit-git-global-arguments '("--no-pager"))
@@ -24,8 +26,13 @@
  '(magit-log-margin '(t "%Y-%m-%d %H:%M " magit-log-margin-width t 18))
  '(magit-pull-arguments nil)
  '(magit-repo-dirs '("~/git"))
+ '(org-mobile-directory
+   "~/Library/Mobile Documents/iCloud~com~mobileorg~mobileorg/Documents/")
+ '(org-mobile-files
+   '("~/org/notes.org" "~/org/motorcycles.org" "~/org/milling.org" "~/org/kitchen.org" "~/org/todo.org"))
+ '(org-startup-folded t)
  '(package-selected-packages
-   '(german-holidays jenkinsfile-mode cider company seq flymeditorconfig edit-indirect dired-narrow dired+ demo-it debian-changelog-mode csv-nav csv-mode command-log-mode color-identifiers-mode centered-cursor-mode bug-hunter aws-snippets avy ascii artbollocks-mode apples-mode ac-helm))
+   '(bibtex-completion detached atomic-chrome org-mac-link noflet pcre2el vterm german-holidays jenkinsfile-mode cider company seq flymake log4e annotate a magit-section bicycle beacon alert graphviz-dot-mode helm-core apache-mode groovy-mode kubel solarized-theme lsp-ui docker-tramp dockerfile-mode yasnippet with-editor treepy transient simple-httpd request markdown-mode magit-popup hydra htmlize hl-todo helm git-commit low langtool keyfreq json-mode impatient-mode highlight-symbol helm-swoop helm-safari helm-projectile helm-gtags helm-git helm-descbinds helm-c-yasnippet helm-aws guide-key graphql go-snippets go-mode gnuplot git-timemachine ghub ggtags fullscreen-mode fullframe flymake-yaml flymake-puppet flymake-perlcritic flymake-json flycheck fast-scroll expand-region ess epoch-view engine-mode elfeed-org ejc-sql editorconfig edit-indirect dired-narrow dired+ demo-it debian-changelog-mode csv-nav csv-mode command-log-mode color-identifiers-mode centered-cursor-mode bug-hunter aws-snippets avy ascii artbollocks-mode apples-mode ac-helm))
  '(package-user-dir "~/.emacs.d/elpa")
  '(paradox-github-token t)
  '(safe-local-variable-values
@@ -34,7 +41,18 @@
      (bba-keep-whitespaces . 1)))
  '(template-default-directories '("~/.emacs.d/templates/"))
  '(toolbar-visible-p nil)
- '(vc-handled-backends '(RCS CVS SVN SCCS Bzr Hg Arch)))
+ '(vc-handled-backends '(RCS CVS SVN SCCS Bzr Hg Arch))
+ '(warning-suppress-types
+   '((comp)
+     (comp)
+     (comp)
+     (comp)
+     (comp)
+     (comp)
+     (comp)
+     (comp)
+     (comp)
+     (comp))))
 (defcustom sql-mysql-program "~/bin/mysql"
 "*Command to start mysql by mysqlDB."
 :type 'file
@@ -46,6 +64,7 @@
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
+ '(default ((t (:inherit nil :extend nil :stipple nil :background "#282828" :foreground "#07e30d" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 120 :width normal :foundry "nil" :family "Menlo"))))
  '(org-block ((t (:inherit shadow :background "#29759c" :foreground "#84cbef" :distant-forground "#131313" :extend t))))
  '(org-block-begin-line ((t (:background "#07538a" :foreground "#84cbef" :extend t))))
  '(org-block-end-line ((t (:inherit org-block-begin-line))))

diff --git a/elpa/apples-mode-20110121.418/apples-mode.el b/elpa/apples-mode-20110121.418/apples-mode.el
index 45bf6edfb2f30c8c8e82d65851537834fa0d4052..ee16459ed2c90f4367c7298d84214b443bd11140 100644 (file)
--- a/elpa/apples-mode-20110121.418/apples-mode.el
+++ b/elpa/apples-mode-20110121.418/apples-mode.el
@@ -65,7 +65,7 @@
 
 ;;; Code:
 
-(require 'cl)
+; (require 'cl)
 (require 'easymenu)
 (require 'newcomment)
 
@@ -129,7 +129,7 @@ the same directory where apples-mode.el is located."
                             "apples-tmp-dir")))))
       (unless (file-directory-p dir)
         (mkdir dir t))
-      (loop for file in (apples-plist-get :tmp-files)
+      (cl-loop for file in (apples-plist-get :tmp-files)
             for tmp = (format "%s/%s.applescript" dir file)
             do
             (set file tmp)
@@ -293,7 +293,7 @@ nothing (nil). See also `apples-end-completion-hl-duration'."
   :group 'apples)
 
 ;; Faces
-(macrolet ((face (name &rest attrs)
+(cl-macrolet ((face (name &rest attrs)
                  `(defface ,(intern (format "apples-%s" name))
                     '((t (,@attrs)))
                     ,(subst-char-in-string ?- ?  (format "Face for %s." name))
@@ -784,7 +784,7 @@ are skipped.\n
 - Lines whose bol is in string or in comment
 - Comments"
   (save-excursion
-    (loop initially (beginning-of-line)
+    (cl-loop initially (beginning-of-line)
           while (not (bobp))
           do (forward-line -1)
           unless (or (looking-at "\\s-*$")
@@ -930,7 +930,7 @@ whitespaces are deleted."
 
 ;; end completion
 (defconst apples-statements
-  `(,@(loop for word in '("considering" "ignoring" "try" "if"
+  `(,@(cl-loop for word in '("considering" "ignoring" "try" "if"
                           "repeat" "tell" "using terms from")
             collect (cons word word))
     ("with timeout"                  . "timeout"                    )
@@ -953,20 +953,20 @@ whitespaces are deleted."
       (catch 'val
         (save-excursion
           (while (/= (point) min)
-            (catch 'loop
+            (catch 'cl-loop
               (if (null (setq bol (apples-ideal-prev-bol)))
                   (throw 'val nils)
                 (goto-char bol)
                 (setq lstr (apples-line-string))
                 (if (string-match "^end\\>" lstr)
                     (incf count)
-                  (loop for (beg . end) in apples-statements
+                  (cl-loop for (beg . end) in apples-statements
                         when (and (string-match (concat "^" beg "\\>") lstr)
                                   (not (apples-string-match apples-noindent-regexps
                                                             lstr)))
                         do (if (zerop (decf count))
                                (throw 'val (values bol beg end))
-                             (throw 'loop nil))
+                             (throw 'cl-loop nil))
                         finally
                         ;; in case of `on'
                         (when (and (string-match (concat "^on \\("
@@ -1193,7 +1193,7 @@ specified, also highlight the matching statement."
                   "Macintosh HD:System:Library:Speech:Voices:"
                   "/System/Library/Speech/Voices/")
                  )))
-          (loop for (folder path posix) in (nreverse lst)
+          (cl-loop for (folder path posix) in (nreverse lst)
                 collect (propertize folder 'path path 'posix posix))))
     )
   "Keywords of AppleScript. Each element has the form (TYPE . KEYWORDS).")
@@ -1269,7 +1269,7 @@ See also `font-lock-defaults' and `font-lock-keywords'.")
           ["Key => Key Code" apples-lookup-key->key-code]
           ["Key Code => Key" apples-lookup-key-code->key])
          ("path to..."
-          ,@(loop for folder in (nreverse (apples-keywords 'standard-folders))
+          ,@(cl-loop for folder in (nreverse (apples-keywords 'standard-folders))
                   collect (multiple-value-bind (path posix)
                               (with-temp-buffer
                                 (insert folder)
@@ -1300,7 +1300,7 @@ See also `font-lock-defaults' and `font-lock-keywords'.")
   "Set up keybindings for `apples-mode' according to `apples-keymap'."
   (when (and apples-keymap
              (not (apples-plist-get :keybinded?)))
-    (loop for (key . cmd) in apples-keymap
+    (cl-loop for (key . cmd) in apples-keymap
           do (define-key apples-mode-map (read-kbd-macro key) cmd)
           finally (apples-plist-put :keybinded? t))))
 
@@ -1323,7 +1323,7 @@ See also `font-lock-defaults' and `font-lock-keywords'.")
            (?\) ")( 4b")
            (?*  ". 23b")
            )))
-    (loop for (char entry) in lst
+    (cl-loop for (char entry) in lst
           do (modify-syntax-entry char entry st))
     st)
   "Syntax table used in `apples-mode'.")