Add binding for helm-occur

global.org

@@ -950,9 +950,10 @@
     Use less verbose reminders:
     #+begin_src emacs-lisp
       (setq org-agenda-deadline-leaders
-            '("⇒" "In %3d d. " "%2d d. ago ")
+            '("⇒" "@ %3d d. " "! %2d d. ago ")
             org-agenda-scheduled-leaders
-            '("→" "↻ %2d×"))
+            '("→" "↻ %2d×")
+            org-agenda-habit-leader "·")
     #+end_src
     Default to daily agenda
     #+begin_src emacs-lisp
@@ -1039,11 +1040,11 @@
                              "")))
 
           (format (concat "\n"
-                          "%12s  %s %4d%s\n"
+                          "%9s  %s %4d%s\n"
-                          "%12s \n"
+                          "%9s \n"
-                          "%12s  %-10s\n"
+                          "%9s  %-10s\n"
-                          "%12s \n"
+                          "%9s \n"
-                          "%12s  %s\n")
+                          "%9s  %s\n")
                   (figlet-num day 0) monthname year weekstring
                   (figlet-num day 1)
                   (figlet-num day 2) dayname
@@ -1052,10 +1053,10 @@
 
       (setq org-agenda-format-date #'org-agenda-format-date-figlet)
       (setq org-agenda-prefix-format
-            '((agenda . " %i %9c · %?-12t% s")
+            '((agenda . " %i %6c %s %?-12t")
-              (todo . " %i %9c · ")
+              (todo . " %i %6c · ")
-              (tags . " %i %9c · ")
+              (tags . " %i %6c · ")
-              (search . " %i %9c · ")))
+              (search . " %i %6c · ")))
     #+end_src
     - Add a whiteline after the header Now, this is a horrible hack:
       the string that forms the header is obtained by constructing
@@ -2476,7 +2477,9 @@
       '(("M-x"     . helm-M-x)
         ("C-x f"   . helm-find-files)
         ("C-x b"   . helm-mini)
-        ("M-y"     . helm-show-kill-ring)))
+        ("M-y"     . helm-show-kill-ring)
+        ("C-c s"   . helm-occur)))
+
      (define-key helm-map (kbd "C-h") nil)
      (define-key helm-find-files-map (kbd "C-h") nil)
      (define-key helm-find-files-map (kbd "C-<backspace>") nil)