|
|
@@ -1,4 +1,4 @@ |
|
|
|
;;; projectorg.el --- __DESCRIPTION__ |
|
|
|
;;; projectorg.el --- |
|
|
|
|
|
|
|
;; Copyright (C) 2019 Maxime Wack |
|
|
|
|
|
|
@@ -22,10 +22,35 @@ |
|
|
|
|
|
|
|
;;; Commentary: |
|
|
|
|
|
|
|
;; __DESCRIPTION__ |
|
|
|
;; Project management using org, projectile and skeletor |
|
|
|
|
|
|
|
;;; Code: |
|
|
|
|
|
|
|
(defun projectorg/go-to-inbox () |
|
|
|
"Go to org-default-notes-file" |
|
|
|
(interactive) |
|
|
|
(find-file org-default-notes-file)) |
|
|
|
|
|
|
|
(defun projectorg/go-to-notes () |
|
|
|
"Go to notes.org if it exists at the root of a project, org go to default notes file" |
|
|
|
(interactive) |
|
|
|
(let ((notes-file (concat (projectile-project-p) "notes.org"))) |
|
|
|
(if (or (and (eq projectile-require-project-root 'prompt) |
|
|
|
(not (projectile-project-p))) |
|
|
|
(not (file-exists-p notes-file))) |
|
|
|
(projectorg/go-to-inbox) |
|
|
|
(find-file notes-file)))) |
|
|
|
|
|
|
|
(defun projectorg/add-to-project-list () |
|
|
|
(let ((notes-file (concat (projectile-project-p) "notes.org"))) |
|
|
|
(unless (or (and (eq projectile-require-project-root 'prompt) |
|
|
|
(not (projectile-project-p))) |
|
|
|
(not (file-exists-p notes-file))) |
|
|
|
(projectile-add-known-project (projectile-project-p))))) |
|
|
|
|
|
|
|
(defun projectorg/remove-from-project-list () |
|
|
|
(let ((current-project (projectile-project-name))) |
|
|
|
(message current-project)) ) |
|
|
|
|
|
|
|
|
|
|
|
(provide 'projectorg) |
|
|
|