emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

narf/org-start -> narf/org; remove redundant narf-org-attachments-list var

Browse source
This commit is contained in:
Henrik Lissner 2016-05-12 02:40:01 -04:00
parent ba4f370b43
commit ccbd8362b7
2 changed files with 3 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

17
modules/defuns/defuns-org-notebook.el
View file

@ -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 ()