howm

conf/cocoa-init.el

@@ -20,6 +20,7 @@
 
 ;; C-z で最小化するのうざいのでころす
 (define-key global-map (kbd "C-z") nil)
+;(define-key global-map (kbd "C-x C-z") nil)  ;; init/init-howm.el でhowmのprefixとして指定してる
 
 ;; タイトルバー
 (setq frame-title-format "Emacs")

conf/el-get.el

@@ -40,7 +40,14 @@
           org-mode
           lua-mode
           yasnippet
+          howm
           ))
 
 (if (locate-file "llvm-config" exec-path)
     (el-get 'sync '(clang-complete-async)))
+
+
+
+
+
+

conf/init.el

@@ -96,3 +96,11 @@
   (interactive)
   (kill-buffer))
 (define-key global-map (kbd "C-x k") 'kill-current-buffer)
+
+;; orgとかで日付が日本語になると変なのでこうしちゃう
+(setq system-time-locale "C")
+
+;;; cocoa-* だと最後によみこまれて、helmとかのキーもきえてしまうので、C-zの無効はここでやる
+;(if (or (equal window-system 'ns) (equal window-system 'mac))
+;    (define-key global-map (kbd "C-z") nil))
+

conf/init/init-howm.el

@@ -0,0 +1,13 @@
+(setq howm-directory "~/Dropbox/howm")
+
+(setq howm-view-title-header "*")
+(setq howm-file-name-format "%Y/%m/%Y-%m-%d.org")
+
+(define-key global-map (kbd "C-x C-z") nil)
+(define-key global-map (kbd "C-x C-z ,") 'howm-menu)
+(setq howm-prefix (kbd "C-x C-z"))
+
+(autoload 'howm-menu "howm-mode" "Hitori Otegaru Wiki Modoki" t)
+(autoload 'howm-mode "howm-mode" "Hitori Otegaru Wiki Modoki" t)
+
+(add-hook 'org-mode-hook 'howm-mode)

conf/init/init-org-mode.el

@@ -19,25 +19,29 @@
 (setq org-todo-keywords
       '((sequence "TODO(t)" "|" "DONE(d)" "CANCELLED(c)")))
 
+;; org directory
+(setq org-directory "~/Dropbox/org")
+
 ;; agenda
 (add-to-list 'org-agenda-files "~/Dropbox/org/projects")
 (add-to-list 'org-agenda-files "~/Dropbox/org/personal")
 (add-to-list 'org-agenda-files "~/Dropbox/org/todo.org")
 (add-to-list 'org-agenda-files "~/Dropbox/org/diary.org")
 (add-to-list 'org-agenda-files "~/Dropbox/org/memo.org")
 
-(define-key global-map (kbd "C-c c") 'org-capture)
-(define-key global-map (kbd "C-c a") 'org-agenda)
+(define-key global-map (kbd "C-x M") 'org-capture)
+(define-key global-map (kbd "C-x m") (lambda () (interactive) (org-capture nil "m")))
+(define-key global-map (kbd "C-x A") 'org-agenda)
 ;; C-c bはanything-projectで使っているのでC-c C-bにする。
 (define-key global-map (kbd "C-c C-b") 'org-iswitchb)
 
 (setq org-capture-templates
       '(
-        ("t" "Todo" entry (file+headline "~/Dropbox/org/todo.org" "Tasks")
+        ("t" "Todo" entry (file "~/Dropbox/org/todo.org")
          "* TODO %?\n  %a\n  %i")
-        ("m" "Memo" entry (file+datetree "~/Dropbox/org/memo.org"))
-        ("d" "Diary" entry (file+datetree "~/Dropbox/org/diary.org")
-         "* %U\n  %?\n  %a")
+
+        ("m" "Memo" entry (file (concat "~/Dropbox/howm/" (format-time-string "%Y/%m/%Y-%m-%d.org")))
+         "* %?\n  %T %a")
         ))
 
 ;; publish blosxom