add weather, single day for agenda
authorJames Richardson <james@jamestechnotes.com>
Fri, 10 Feb 2017 17:45:36 +0000 (12:45 -0500)
committerJames Richardson <james@jamestechnotes.com>
Fri, 10 Feb 2017 17:45:36 +0000 (12:45 -0500)
.emacs.d/config/load-paths.el
.emacs.d/config/main.el
.emacs.d/config/org.el
.emacs.d/init.el

index 002ede221060e1f72a1aedeb2b817e35ffa8018c..1a312a7a2576a8e5ab3f50f9e4ddd6c87798a7cf 100644 (file)
@@ -1,3 +1,5 @@
+
+
 ;;; load-paths.el --- configure load paths
 
 ;; ;; If I track org, I need to add my org to the load path and then uninstall the shipping org-mode
@@ -47,3 +49,7 @@
   (add-to-list 'load-path (file-truename "~/src/gitolite-emacs"))
   (require 'gl-conf-mode)
   (add-to-list 'auto-mode-alist '("gitolite\\.conf\\'" . gl-conf-mode)))
+
+;;; org-weather
+(when (file-directory-p "~/src/org-weather")
+  (add-to-list 'load-path (file-truename "~/src/org-weather")))
index 0f271ba410c4bfbaf8eb051d8b907368276b9e9d..44ca6251bd061b323bc33db9f1450f6ee086ffa5 100644 (file)
@@ -3,6 +3,8 @@
 (require 'package)
 (add-to-list 'package-archives
             '("melpa" . "https://melpa.org/packages/"))
+(add-to-list 'package-archives
+            '("org" . "http://orgmode.org/elpa/"))
 (when (< emacs-major-version 24)
   (add-to-list 'package-archives '("gnu" . "http://elpa.gnu.org/packages/")))
 
 (unless (file-exists-p "~/.emacs.d/elpa")
   (package-refresh-contents))
 
-;(mapc
-; (lambda (package)
-;   (or (package-installed-p package)
-;       (package-install package)))
-; '(cider clojure-mode epl markdown-mode org paredit restclient slime edit-server
-;       edit-server-htmlize company lacarte icicles magit magit-annex magit-popup))
+(mapc
+ (lambda (package)
+   (or (package-installed-p package)
+       (package-install package)))
+ '(cider clojure-mode epl markdown-mode org org-plus-contrib
+         paredit restclient slime edit-server
+        edit-server-htmlize company lacarte icicles magit magit-annex magit-popup))
  
 (transient-mark-mode t)
 (global-set-key [remap kill-ring-save]
index a4cc4c1706efd6c0380d288748ed08d501c147b6..a9c932e59e8af935771ac642492cc48d3d8cd2ff 100644 (file)
@@ -1,4 +1,5 @@
 
+
 ;; org mode
 ;; required in upper level, before this file gets sourced.
 ;; The idea is I don't need this if I don't have my org files.
@@ -82,7 +83,7 @@
 ; Tags
 (setq org-tag-alist (quote ((:startgroup)
                             ("@home" . ?H)
-                            ("@office" . ?o)
+                            ("@lowes" . ?l)
                             (:endgroup)
                             ("PHONE" . ?p)
                             ("PERSONAL" . ?P)
@@ -95,7 +96,7 @@
 (setq org-fast-tag-selection-single-key (quote expert))
 
 (setq org-agenda-tags-todo-honor-ignore-options t)
-(setq org-agenda-span 7)
+(setq org-agenda-span 1) ;; show day to start
 (setq org-deadline-warning-days 14)
 (setq org-agenda-show-all-dates t)
 (setq org-agenda-skip-deadline-if-done t)
 ;;              ("i" "#+index: ?" "#+index: ?")
 ;;              ("I" "#+include %file ?" "<include file=%file markup=\"?\">"))))
 
-
+(setq org-startup-indented t
+      org-export-headline-levels 10)
 (defun bh/mark-next-parent-tasks-todo ()
   "Visit each parent task and change NEXT states to TODO"
   (let ((mystate (or (and (fboundp 'state)
@@ -691,7 +693,7 @@ Late deadlines first, then scheduled, then non-late deadlines"
 (require 'org-checklist nil 'noerror)
 (setq org-enforce-todo-dependencies t)
 (setq org-hide-leading-stargs nil)
-(setq org-startup-indented nil)
+(setq org-startup-indented t)
 (setq org-cycle-separator-lines 2)
 (setq org-blank-before-new-entry (quote ((heading)
                                          (plain-list-item . auto))))
@@ -1099,3 +1101,27 @@ Late deadlines first, then scheduled, then non-late deadlines"
 ;;      "~/doc/org/todo.org" "rush")))
 (setq org-feed-default-template
       "\n* %h\n  SCHEDULED: %T\n  %description\n  %a\n")
+
+;; setup solar
+(setq calendar-latitude 35.6
+      calendar-longitude -80.8
+      calendar-location-name "Mooresville, NC"
+      calendar-time-zone -300
+      calendar-standard-time-zone-name "EST"
+      calendar-daylight-time-zone-name "EDT")
+
+;; org-weather
+(when (require 'org-weather nil 'noerror)
+  (setq org-weather-location "Mooresville, NC"
+       org-weather-api-url "http://api.openweathermap.org/data/2.5/forecast/daily?q=%s&mode=json&units=imperial&cnt=7&APPID=%s"
+       org-weather-temperature-unit "°F")
+  (org-weather-refresh))
+
+;; effort and clocking
+; Set default column view headings: Task Effort Clock_Summary
+(setq org-columns-default-format "%80ITEM(Task) %10Effort(Effort){:} %10CLOCKSUM")
+
+; global Effort estimate values
+; global STYLE property values for completion
+(setq org-global-properties (quote (("Effort_ALL" . "0:15 0:30 0:45 1:00 2:00 3:00 4:00 5:00 6:00 8:00")
+                                    ("STYLE_ALL" . "habit"))))
index 6734338fb4a6db32e7c3b631839da60e96c22870..224533f95115fa46358b298ee6c15cff12f422d8 100644 (file)
@@ -51,7 +51,7 @@
  '(icicle-command-abbrev-alist (quote ((cider-restart ## 1))))
  '(package-selected-packages
    (quote
-    (org slime-company restclient paredit markdown-mode magit-find-file magit-annex lacarte icicles geiser edit-server-htmlize cider))))
+    (slime-company restclient paredit markdown-mode magit-find-file lacarte icicles geiser edit-server-htmlize cider))))
 (custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.