From ccbd8362b796e33f016d4511444ff9cc30759830 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Thu, 12 May 2016 02:40:01 -0400 Subject: [PATCH] narf/org-start -> narf/org; remove redundant narf-org-attachments-list var --- modules/defuns/defuns-org-notebook.el | 17 ++--------------- private/my-bindings.el | 2 +- 2 files changed, 3 insertions(+), 16 deletions(-) diff --git a/modules/defuns/defuns-org-notebook.el b/modules/defuns/defuns-org-notebook.el index dd5f9ea80..a63a60063 100644 --- a/modules/defuns/defuns-org-notebook.el +++ b/modules/defuns/defuns-org-notebook.el @@ -1,22 +1,9 @@ ;;; defuns-org-notebook.el -;; Keep track of attachments -(defvar narf-org-attachments-list '() "A list of attachments for the current buffer") -(make-variable-buffer-local 'narf-org-attachments-list) - ;;;###autoload -(defun narf/org-start () +(defun narf/org () (interactive) - (let ((wg (wg-get-workgroup "*ORG*" t)) - orig-win) - (ignore-errors - (if (eq wg (wg-current-workgroup t)) - (wg-switch-to-workgroup wg) - (narf:workgroup-new nil "*ORG*" t))) - (setq orig-win (selected-window)) - (find-file (expand-file-name "Todo.org" org-directory)) - (narf/neotree) - (select-window orig-win t))) + (find-file (f-expand "inbox.org" org-directory))) ;;;###autoload (defun narf/org-notebook-new () diff --git a/private/my-bindings.el b/private/my-bindings.el index 98c541bf3..ef112c643 100644 --- a/private/my-bindings.el +++ b/private/my-bindings.el @@ -154,7 +154,7 @@ :n "T" 'os-switch-to-term-and-cd) ;; Org notes - :n "X" 'narf/org-start + :n "X" 'narf/org (:prefix "x" :n "." 'narf/org-find-file :n "/" 'narf/org-find-file-in-notes