projectorg/projectorg.el

;;; projectorg.el ---

;; Copyright (C) 2019 Maxime Wack

;; Author: Maxime Wack <maximewack@free.fr>
;; Version: 0.1

;; This file is not part of GNU Emacs.

;; This program is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.

;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with this program.  If not, see <http://www.gnu.org/licenses/>.

;;; Commentary:

;; 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)

;;; projectorg.el ends here