(defun safe-files ()
  (let ((fn (expand-file-name "~/.safe-files")))
    (when (file-exists-p fn)
      (read-strings-in-file fn))))

(defun fwoar/mark-safe (fn)
  (interactive (list buffer-file-name))
  (with-temp-buffer
    (insert "\n")
    (insert fn)
    (append-to-file (point-min) (point-max)
                    (expand-file-name "~/.safe-files"))))

(defvar-local safe-file-p nil)
(setf (get 'safe-file-p 'risky-local-variable) t)

(defun fwoar/confirm-babel-evaluate (lang body)
  (message "Buffer file name: %s" buffer-file-name)
  (let ((result (or safe-file-p
                    (member buffer-file-name (safe-files)))))
    (setq-local safe-file-p result)
    (not safe-file-p)))

(use-package ob-graphql
  :ensure t)
(use-package ob-http
  :ensure t)
(use-package ob-restclient
  :ensure t)

(use-package org
  :ensure t
  :pin gnu
  :custom
  (org-confirm-babel-evaluate 'fwoar/confirm-babel-evaluate)
  (org-default-notes-file (concat org-directory "/scratch.org"))
  (org-directory "~/org")
  (org-log-done 'time)
  (org-log-into-drawer t)
  (org-refile-targets '((nil . (:maxlevel . 2))))
  (org-agenda-files '("~/org/notes.org" "~/org/agenda.org"))
  :config
  (comment
   (setq org-refile-use-outline-path 'file
         org-outline-path-complete-in-steps nil
         org-capture-templates '(("t" "Todo" entry (file+headline "~/org/gtd.org" "Tasks")
                                  "* TODO %?\n  %i\n  %a")
                                 ("j" "Journal" entry (file+olp+datetree "~/org/journal.org")
                                  "* %?\nEntered on %U\n  %i\n  %a")
                                 ("s" "Snippet" entry (file "~/org/snippets.org")
                                  "* %?\n#+BEGIN_SRC\n%i\n#+END_SRC")
                                 ("b" "Bookmarks" entry (file+olp+datetree "~/org/bookmarks.org")
                                  "* %? %^g\n%c\n")
                                 ("a" "Agenda" entry
                                  (file "~/org/agenda.org")
                                  "* %? %^G\n  SCHEDULED: %T"))))

  (org-babel-do-load-languages
   'org-babel-load-languages
   '((emacs-lisp . t)
     (graphql . t)
     (haskell . t)
     (http . t)
     (lisp . t)
     (restclient . t)
     (shell . t)))

  (define-key global-map "\C-cc" 'org-capture)
  (evil-define-key 'visual 'global (kbd "<leader>c") 'org-capture))

(use-package org-roam
  :ensure t
  :custom
  ( org-roam-directory "~/kb/")
  :config
  (evil-define-key 'normal 'global
    (kbd "<leader>v") #'org-roam-node-find)
  (make-directory (file-truename org-roam-directory) t)
  (org-roam-db-autosync-mode)
  )

(comment
 (use-package org-projectile
   :ensure t
   :after org company
   :config
   (progn
     (org-projectile-per-project)
     (setq org-agenda-skip-unavailable-files t)
     (setq org-projectile-per-project-filepath
           "notes/README.org")
     (setq org-agenda-files (append org-agenda-files (org-projectile-todo-files)))
     (push (org-projectile-project-todo-entry) org-capture-templates)
     (define-key projectile-mode-map (kbd "C-c c") 'org-capture))
   :ensure t))