memo.el

(defun memo-create()
  (interactive)
  (let ((memo-name (format-time-string "%Y-%m-%d-%s")))
      (find-file (concat "~/Dropbox/memo/" memo-name ".md"))))
(defun memo-search()
  (interactive)
  (setq q (read-string "grep word: "))
  (ag-regexp q "~/Dropbox/memo/")
  (select-window ; select ag buffer
   (car (my/get-buffer-window-list-regexp "^\\*ag "))))
(defun memo-list()
  (interactive)
  (ag-regexp "^#[^#]" "~/Dropbox/memo/")
  (select-window ; select ag buffer
   (car (my/get-buffer-window-list-regexp "^\\*ag "))))
(global-set-key (kbd "C-c m") 'memo-create)
(global-set-key (kbd "C-c s") 'memo-search)
(global-set-key (kbd "C-c l") 'memo-list)