Как мне создать свою собственную функцию в spacemacs? - PullRequest
Новая
       31

Как мне создать свою собственную функцию в spacemacs?

1 голос
/ 16 февраля 2020

Я переключился на Spacemacs, но некоторые функции больше не работают.

Я пытаюсь запустить функцию на создать диапазон времени из оценки усилий Создать по закону 

(defun org-schedule-effort ()
(interactive)
  (save-excursion
    (org-back-to-heading t)
    (let* (
        (element (org-element-at-point))
        (effort (org-element-property :EFFORT element))
        (scheduled (org-element-property :scheduled element))
        (ts-year-start (org-element-property :year-start scheduled))
        (ts-month-start (org-element-property :month-start scheduled))
        (ts-day-start (org-element-property :day-start scheduled))
        (ts-hour-start (org-element-property :hour-start scheduled))
        (ts-minute-start (org-element-property :minute-start scheduled)) )
      (org-schedule nil (concat
        (format "%s" ts-year-start)
        "-"
        (if (< ts-month-start 10)
          (concat "0" (format "%s" ts-month-start))
          (format "%s" ts-month-start))
        "-"
        (if (< ts-day-start 10)
          (concat "0" (format "%s" ts-day-start))
          (format "%s" ts-day-start))
        " "
        (if (< ts-hour-start 10)
          (concat "0" (format "%s" ts-hour-start))
          (format "%s" ts-hour-start))
        ":"
        (if (< ts-minute-start 10)
          (concat "0" (format "%s" ts-minute-start))
          (format "%s" ts-minute-start))
        "+"
        effort)) )))

Но когда я запускаю M-x org-schedule-effort функция не найдена

Я понимаю, что вы бы назвали ее как обычно как работает в Emacs

Я поместил все функции в defun dotspacemacs/user-config () и протестировал скрипт hello world 

(defun dotspacemacs/user-config ()
    (defun say-hello ()
        "hello")
)

Как запустить defun в Spacemacs?

...