aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorAaron LI <aaronly.me@outlook.com>2017-03-13 22:00:29 +0800
committerAaron LI <aaronly.me@outlook.com>2017-03-13 22:00:29 +0800
commit9a07d3aacce17cb7ccaf489c53b5cb12d1f5da9f (patch)
tree999aeeefd53bd10a6c55a33376bed5c82e4eebe7
parent4b1620c750a4816d119ffb239f6afa78d8161d54 (diff)
downloaddotfiles-9a07d3aacce17cb7ccaf489c53b5cb12d1f5da9f.tar.bz2
spacemacs: Change 'aly' -> 'my'
-rw-r--r--_spacemacs.d/config/my-mu4e.el (renamed from _spacemacs.d/config/aly-mu4e-config.el)6
-rw-r--r--_spacemacs.d/config/my-org-helpers.el (renamed from _spacemacs.d/config/aly-org-helpers.el)140
-rw-r--r--_spacemacs.d/config/my-org.el (renamed from _spacemacs.d/config/aly-org-config.el)66
-rw-r--r--_spacemacs.d/init.el4
4 files changed, 108 insertions, 108 deletions
diff --git a/_spacemacs.d/config/aly-mu4e-config.el b/_spacemacs.d/config/my-mu4e.el
index d5d31a8..6aa2f0d 100644
--- a/_spacemacs.d/config/aly-mu4e-config.el
+++ b/_spacemacs.d/config/my-mu4e.el
@@ -1,4 +1,4 @@
-;;; aly-mu4e-config.el --- mu4e (mu for Emacs) configurations
+;;; my-mu4e.el --- mu4e (mu for Emacs) configurations
;; -*- mode: emacs-lisp -*-
;; vim: set ts=8 sw=2 tw=0 fenc=utf-8 ft=lisp:
;;
@@ -348,6 +348,6 @@
) ;; with-eval-after-load 'mu4e
-(provide 'aly-mu4e-config)
+(provide 'my-mu4e)
-;;; aly-mu4e-config.el ends here
+;;; my-mu4e.el ends here
diff --git a/_spacemacs.d/config/aly-org-helpers.el b/_spacemacs.d/config/my-org-helpers.el
index 3254c79..e3c30c1 100644
--- a/_spacemacs.d/config/aly-org-helpers.el
+++ b/_spacemacs.d/config/my-org-helpers.el
@@ -1,4 +1,4 @@
-;;; aly-org-helpers.el --- Custom Helper Functions for Org Mode
+;;; my-org-helpers.el --- Custom Helper Functions for Org Mode
;; -*- mode: emacs-lisp -*-
;; vim: set ts=8 sw=2 tw=0 fenc=utf-8 ft=lisp:
;;
@@ -16,18 +16,18 @@
;;; Code:
-(defun aly/verify-refile-target ()
+(defun my/verify-refile-target ()
"Exclude todo keywords with a done state from refile targets"
(not (member (nth 2 (org-heading-components)) org-done-keywords)))
-(defun aly/remove-empty-drawer-on-clock-out ()
+(defun my/remove-empty-drawer-on-clock-out ()
"Remove empty `LOGBOOK' drawers on clock out"
(interactive)
(save-excursion
(beginning-of-line 0)
(org-remove-empty-drawer-at "LOGBOOK" (point))))
-(defun aly/find-project-task ()
+(defun my/find-project-task ()
"Move point to the parent (project) task if any"
(save-restriction
(widen)
@@ -38,7 +38,7 @@
(goto-char parent-task)
parent-task)))
-(defun aly/is-project-p ()
+(defun my/is-project-p ()
"Any task with a subtask using a todo keyword"
(save-restriction
(widen)
@@ -54,18 +54,18 @@
(setq has-subtask t))))
(and is-a-task has-subtask))))
-(defun aly/is-project-subtree-p ()
+(defun my/is-project-subtree-p ()
"Any task with a todo keyword that is in a project subtree.
Callers of this function already widen the buffer view."
(let ((task (save-excursion (org-back-to-heading 'invisible-ok)
(point))))
(save-excursion
- (aly/find-project-task)
+ (my/find-project-task)
(if (equal (point) task)
nil
t))))
-(defun aly/is-task-p ()
+(defun my/is-task-p ()
"Any task with a todo keyword and no subtask"
(save-restriction
(widen)
@@ -81,7 +81,7 @@ Callers of this function already widen the buffer view."
(setq has-subtask t))))
(and is-a-task (not has-subtask)))))
-(defun aly/is-subproject-p ()
+(defun my/is-subproject-p ()
"Any task which is a subtask of another project"
(let ((is-subproject)
(is-a-task (member (nth 2 (org-heading-components)) org-todo-keywords-1)))
@@ -91,7 +91,7 @@ Callers of this function already widen the buffer view."
(setq is-subproject t))))
(and is-a-task is-subproject)))
-(defun aly/list-sublevels-for-projects-indented ()
+(defun my/list-sublevels-for-projects-indented ()
"Set org-tags-match-list-sublevels so when restricted to a subtree we list all subtasks.
This is normally used by skipping functions where this variable is already local to the agenda."
(if (marker-buffer org-agenda-restrict-begin)
@@ -99,7 +99,7 @@ Callers of this function already widen the buffer view."
(setq org-tags-match-list-sublevels nil))
nil)
-(defun aly/list-sublevels-for-projects ()
+(defun my/list-sublevels-for-projects ()
"Set org-tags-match-list-sublevels so when restricted to a subtree we list all subtasks.
This is normally used by skipping functions where this variable is already local to the agenda."
(if (marker-buffer org-agenda-restrict-begin)
@@ -107,21 +107,21 @@ Callers of this function already widen the buffer view."
(setq org-tags-match-list-sublevels nil))
nil)
-(defvar aly/hide-scheduled-and-waiting-next-tasks t)
+(defvar my/hide-scheduled-and-waiting-next-tasks t)
-(defun aly/toggle-next-task-display ()
+(defun my/toggle-next-task-display ()
(interactive)
- (setq aly/hide-scheduled-and-waiting-next-tasks (not aly/hide-scheduled-and-waiting-next-tasks))
+ (setq my/hide-scheduled-and-waiting-next-tasks (not my/hide-scheduled-and-waiting-next-tasks))
(when (equal major-mode 'org-agenda-mode)
(org-agenda-redo))
- (message "%s WAITING and SCHEDULED NEXT Tasks" (if aly/hide-scheduled-and-waiting-next-tasks "Hide" "Show")))
+ (message "%s WAITING and SCHEDULED NEXT Tasks" (if my/hide-scheduled-and-waiting-next-tasks "Hide" "Show")))
-(defun aly/skip-stuck-projects ()
+(defun my/skip-stuck-projects ()
"Skip trees that are not stuck projects"
(save-restriction
(widen)
(let ((next-headline (save-excursion (or (outline-next-heading) (point-max)))))
- (if (aly/is-project-p)
+ (if (my/is-project-p)
(let* ((subtree-end (save-excursion (org-end-of-subtree t)))
(has-next ))
(save-excursion
@@ -134,13 +134,13 @@ Callers of this function already widen the buffer view."
next-headline)) ; a stuck project, has subtasks but no next task
nil))))
-(defun aly/skip-non-stuck-projects ()
+(defun my/skip-non-stuck-projects ()
"Skip trees that are not stuck projects"
- ;; (aly/list-sublevels-for-projects-indented)
+ ;; (my/list-sublevels-for-projects-indented)
(save-restriction
(widen)
(let ((next-headline (save-excursion (or (outline-next-heading) (point-max)))))
- (if (aly/is-project-p)
+ (if (my/is-project-p)
(let* ((subtree-end (save-excursion (org-end-of-subtree t)))
(has-next ))
(save-excursion
@@ -153,48 +153,48 @@ Callers of this function already widen the buffer view."
nil)) ; a stuck project, has subtasks but no next task
next-headline))))
-(defun aly/skip-non-projects ()
+(defun my/skip-non-projects ()
"Skip trees that are not projects"
- ;; (aly/list-sublevels-for-projects-indented)
- (if (save-excursion (aly/skip-non-stuck-projects))
+ ;; (my/list-sublevels-for-projects-indented)
+ (if (save-excursion (my/skip-non-stuck-projects))
(save-restriction
(widen)
(let ((subtree-end (save-excursion (org-end-of-subtree t))))
(cond
- ((aly/is-project-p)
+ ((my/is-project-p)
nil)
- ((and (aly/is-project-subtree-p) (not (aly/is-task-p)))
+ ((and (my/is-project-subtree-p) (not (my/is-task-p)))
nil)
(t
subtree-end))))
(save-excursion (org-end-of-subtree t))))
-(defun aly/skip-non-tasks ()
+(defun my/skip-non-tasks ()
"Show non-project tasks.
Skip project and sub-project tasks, habits, and project related tasks."
(save-restriction
(widen)
(let ((next-headline (save-excursion (or (outline-next-heading) (point-max)))))
(cond
- ((aly/is-task-p)
+ ((my/is-task-p)
nil)
(t
next-headline)))))
-(defun aly/skip-project-trees-and-habits ()
+(defun my/skip-project-trees-and-habits ()
"Skip trees that are projects"
(save-restriction
(widen)
(let ((subtree-end (save-excursion (org-end-of-subtree t))))
(cond
- ((aly/is-project-p)
+ ((my/is-project-p)
subtree-end)
((org-is-habit-p)
subtree-end)
(t
nil)))))
-(defun aly/skip-projects-and-habits-and-single-tasks ()
+(defun my/skip-projects-and-habits-and-single-tasks ()
"Skip trees that are projects, tasks that are habits, single non-project tasks"
(save-restriction
(widen)
@@ -202,17 +202,17 @@ Skip project and sub-project tasks, habits, and project related tasks."
(cond
((org-is-habit-p)
next-headline)
- ((and aly/hide-scheduled-and-waiting-next-tasks
+ ((and my/hide-scheduled-and-waiting-next-tasks
(member "WAITING" (org-get-tags-at)))
next-headline)
- ((aly/is-project-p)
+ ((my/is-project-p)
next-headline)
- ((and (aly/is-task-p) (not (aly/is-project-subtree-p)))
+ ((and (my/is-task-p) (not (my/is-project-subtree-p)))
next-headline)
(t
nil)))))
-(defun aly/skip-project-tasks-maybe ()
+(defun my/skip-project-tasks-maybe ()
"Show tasks related to the current restriction.
When restricted to a project, skip project and sub project tasks, habits, NEXT tasks, and loose tasks.
When not restricted, skip project and sub-project tasks, habits, and project related tasks."
@@ -222,37 +222,37 @@ When not restricted, skip project and sub-project tasks, habits, and project rel
(next-headline (save-excursion (or (outline-next-heading) (point-max))))
(limit-to-project (marker-buffer org-agenda-restrict-begin)))
(cond
- ((aly/is-project-p)
+ ((my/is-project-p)
next-headline)
((org-is-habit-p)
subtree-end)
((and (not limit-to-project)
- (aly/is-project-subtree-p))
+ (my/is-project-subtree-p))
subtree-end)
((and limit-to-project
- (aly/is-project-subtree-p)
+ (my/is-project-subtree-p)
(member (org-get-todo-state) (list "NEXT")))
subtree-end)
(t
nil)))))
-(defun aly/skip-project-tasks ()
+(defun my/skip-project-tasks ()
"Show non-project tasks.
Skip project and sub-project tasks, habits, and project related tasks."
(save-restriction
(widen)
(let* ((subtree-end (save-excursion (org-end-of-subtree t))))
(cond
- ((aly/is-project-p)
+ ((my/is-project-p)
subtree-end)
((org-is-habit-p)
subtree-end)
- ((aly/is-project-subtree-p)
+ ((my/is-project-subtree-p)
subtree-end)
(t
nil)))))
-(defun aly/skip-non-project-tasks ()
+(defun my/skip-non-project-tasks ()
"Show project tasks.
Skip project and sub-project tasks, habits, and loose non-project tasks."
(save-restriction
@@ -260,66 +260,66 @@ Skip project and sub-project tasks, habits, and loose non-project tasks."
(let* ((subtree-end (save-excursion (org-end-of-subtree t)))
(next-headline (save-excursion (or (outline-next-heading) (point-max)))))
(cond
- ((aly/is-project-p)
+ ((my/is-project-p)
next-headline)
((org-is-habit-p)
subtree-end)
- ((and (aly/is-project-subtree-p)
+ ((and (my/is-project-subtree-p)
(member (org-get-todo-state) (list "NEXT")))
subtree-end)
- ((not (aly/is-project-subtree-p))
+ ((not (my/is-project-subtree-p))
subtree-end)
(t
nil)))))
-(defun aly/skip-projects-and-habits ()
+(defun my/skip-projects-and-habits ()
"Skip trees that are projects and tasks that are habits"
(save-restriction
(widen)
(let ((subtree-end (save-excursion (org-end-of-subtree t))))
(cond
- ((aly/is-project-p)
+ ((my/is-project-p)
subtree-end)
((org-is-habit-p)
subtree-end)
(t
nil)))))
-(defun aly/skip-non-subprojects ()
+(defun my/skip-non-subprojects ()
"Skip trees that are not projects"
(let ((next-headline (save-excursion (outline-next-heading))))
- (if (aly/is-subproject-p)
+ (if (my/is-subproject-p)
nil
next-headline)))
-(setq aly/keep-clock-running nil)
+(setq my/keep-clock-running nil)
-(defun aly/clock-in-to-next (kw)
+(defun my/clock-in-to-next (kw)
"Switch a task from TODO to NEXT when clocking in.
Skips capture tasks, projects, and subprojects.
Switch projects and subprojects from NEXT back to TODO"
(when (not (and (boundp 'org-capture-mode) org-capture-mode))
(cond
((and (member (org-get-todo-state) (list "TODO"))
- (aly/is-task-p))
+ (my/is-task-p))
"NEXT")
((and (member (org-get-todo-state) (list "NEXT"))
- (aly/is-project-p))
+ (my/is-project-p))
"TODO"))))
-(defun aly/punch-in (arg)
+(defun my/punch-in (arg)
"Start continuous clocking and set the default task to the
selected task. If no task is selected set the Organization task
as the default task."
(interactive "p")
- (setq aly/keep-clock-running t)
+ (setq my/keep-clock-running t)
(if (equal major-mode 'org-agenda-mode)
;; We are in the agenda
(let* ((marker (org-get-at-bol 'org-hd-marker))
(tags (org-with-point-at marker (org-get-tags-at))))
(if (and (eq arg 4) tags)
(org-agenda-clock-in '(16))
- (aly/clock-in-organization-task-as-default)))
+ (my/clock-in-organization-task-as-default)))
;; We are NOT in the agenda
(save-restriction
(widen)
@@ -328,21 +328,21 @@ as the default task."
(not (org-before-first-heading-p))
(eq arg 4))
(org-clock-in '(16))
- (aly/clock-in-organization-task-as-default)))))
+ (my/clock-in-organization-task-as-default)))))
-(defun aly/punch-out ()
+(defun my/punch-out ()
(interactive)
- (setq aly/keep-clock-running nil)
+ (setq my/keep-clock-running nil)
(when (org-clock-is-active)
(org-clock-out))
(org-agenda-remove-restriction-lock))
-(defun aly/clock-in-default-task ()
+(defun my/clock-in-default-task ()
(save-excursion
(org-with-point-at org-clock-default-task
(org-clock-in))))
-(defun aly/clock-in-parent-task ()
+(defun my/clock-in-parent-task ()
"Move point to the parent (project) task if any and clock in"
(let ((parent-task))
(save-excursion
@@ -354,23 +354,23 @@ as the default task."
(if parent-task
(org-with-point-at parent-task
(org-clock-in))
- (when aly/keep-clock-running
- (aly/clock-in-default-task)))))))
+ (when my/keep-clock-running
+ (my/clock-in-default-task)))))))
-(defun aly/clock-in-organization-task-as-default ()
+(defun my/clock-in-organization-task-as-default ()
(interactive)
- (org-with-point-at (org-id-find aly/organization-task-id 'marker)
+ (org-with-point-at (org-id-find my/organization-task-id 'marker)
(org-clock-in '(16))))
-(defun aly/clock-out-maybe ()
- (when (and aly/keep-clock-running
+(defun my/clock-out-maybe ()
+ (when (and my/keep-clock-running
(not org-clock-clocking-in)
(marker-buffer org-clock-default-task)
(not org-clock-resolving-clocks-due-to-idleness))
- (aly/clock-in-parent-task)))
+ (my/clock-in-parent-task)))
-(defun aly/skip-non-archivable-tasks ()
+(defun my/skip-non-archivable-tasks ()
"Skip trees that are not available for archiving"
(save-restriction
(widen)
@@ -394,6 +394,6 @@ as the default task."
next-headline))))
-(provide 'aly-org-helpers)
+(provide 'my-org-helpers)
-;;; aly-org-helpers.el ends here
+;;; my-org-helpers.el ends here
diff --git a/_spacemacs.d/config/aly-org-config.el b/_spacemacs.d/config/my-org.el
index 0fb46f5..f3bec12 100644
--- a/_spacemacs.d/config/aly-org-config.el
+++ b/_spacemacs.d/config/my-org.el
@@ -1,4 +1,4 @@
-;;; aly-org-config.el --- Custom Configurations for Org Mode
+;;; my-org.el --- Custom Configurations for Org Mode
;; -*- mode: emacs-lisp -*-
;; vim: set ts=8 sw=2 tw=0 fenc=utf-8 ft=lisp:
;;
@@ -18,7 +18,7 @@
;;; Code:
;; Default task to clock in whenever the clock normally stops
-(defvar aly/organization-task-id "bb7f1326-bda4-11e6-a30d-185e0f33a428")
+(defvar my/organization-task-id "bb7f1326-bda4-11e6-a30d-185e0f33a428")
;; Allow single character alphabetical bullets
;; Need to be set before `org.el' is loaded
@@ -34,7 +34,7 @@
(require 'ox-latex)
;; Load custom helper functions for Org
- (require 'aly-org-helpers)
+ (require 'my-org-helpers)
;; Default location to look for Org files
(setq org-directory '("~/org"))
@@ -88,13 +88,13 @@
))
;; Remove empty `LOGBOOK' drawers on clock out
- (add-hook 'org-clock-out-hook 'aly/remove-empty-drawer-on-clock-out 'append)
+ (add-hook 'org-clock-out-hook 'my/remove-empty-drawer-on-clock-out 'append)
;; More handy shortcuts
(global-set-key (kbd "<f9>") 'org-agenda)
;; Exclude `DONE' state tasks from refile targets
- (setq org-refile-target-verify-function 'aly/verify-refile-target)
+ (setq org-refile-target-verify-function 'my/verify-refile-target)
;; Do not dim blocked tasks
(setq org-agenda-dim-blocked-tasks nil)
@@ -116,75 +116,75 @@
(org-tags-match-list-sublevels nil)))
(tags-todo "-CANCELLED/!"
((org-agenda-overriding-header "Stuck Projects")
- (org-agenda-skip-function 'aly/skip-non-stuck-projects)
+ (org-agenda-skip-function 'my/skip-non-stuck-projects)
(org-agenda-sorting-strategy
'(category-keep))))
(tags-todo "-HOLD-CANCELLED/!"
((org-agenda-overriding-header "Projects")
- (org-agenda-skip-function 'aly/skip-non-projects)
+ (org-agenda-skip-function 'my/skip-non-projects)
(org-tags-match-list-sublevels 'indented)
(org-agenda-sorting-strategy
'(category-keep))))
(tags-todo "-CANCELLED/!NEXT"
((org-agenda-overriding-header
(concat "Project Next Tasks"
- (if aly/hide-scheduled-and-waiting-next-tasks
+ (if my/hide-scheduled-and-waiting-next-tasks
""
" (including WAITING and SCHEDULED tasks)")))
- (org-agenda-skip-function 'aly/skip-projects-and-habits-and-single-tasks)
+ (org-agenda-skip-function 'my/skip-projects-and-habits-and-single-tasks)
(org-tags-match-list-sublevels t)
- (org-agenda-todo-ignore-scheduled aly/hide-scheduled-and-waiting-next-tasks)
- (org-agenda-todo-ignore-deadlines aly/hide-scheduled-and-waiting-next-tasks)
- (org-agenda-todo-ignore-with-date aly/hide-scheduled-and-waiting-next-tasks)
+ (org-agenda-todo-ignore-scheduled my/hide-scheduled-and-waiting-next-tasks)
+ (org-agenda-todo-ignore-deadlines my/hide-scheduled-and-waiting-next-tasks)
+ (org-agenda-todo-ignore-with-date my/hide-scheduled-and-waiting-next-tasks)
(org-agenda-sorting-strategy
'(todo-state-down effort-up category-keep))))
(tags-todo "-REFILE-CANCELLED-WAITING-HOLD/!"
((org-agenda-overriding-header
(concat "Project Subtasks"
- (if aly/hide-scheduled-and-waiting-next-tasks
+ (if my/hide-scheduled-and-waiting-next-tasks
""
" (including WAITING and SCHEDULED tasks)")))
- (org-agenda-skip-function 'aly/skip-non-project-tasks)
- (org-agenda-todo-ignore-scheduled aly/hide-scheduled-and-waiting-next-tasks)
- (org-agenda-todo-ignore-deadlines aly/hide-scheduled-and-waiting-next-tasks)
- (org-agenda-todo-ignore-with-date aly/hide-scheduled-and-waiting-next-tasks)
+ (org-agenda-skip-function 'my/skip-non-project-tasks)
+ (org-agenda-todo-ignore-scheduled my/hide-scheduled-and-waiting-next-tasks)
+ (org-agenda-todo-ignore-deadlines my/hide-scheduled-and-waiting-next-tasks)
+ (org-agenda-todo-ignore-with-date my/hide-scheduled-and-waiting-next-tasks)
(org-agenda-sorting-strategy
'(category-keep))))
(tags-todo "-REFILE-CANCELLED-WAITING-HOLD/!"
((org-agenda-overriding-header
(concat "Standalone Tasks"
- (if aly/hide-scheduled-and-waiting-next-tasks
+ (if my/hide-scheduled-and-waiting-next-tasks
""
" (including WAITING and SCHEDULED tasks)")))
- (org-agenda-skip-function 'aly/skip-project-tasks)
- (org-agenda-todo-ignore-scheduled aly/hide-scheduled-and-waiting-next-tasks)
- (org-agenda-todo-ignore-deadlines aly/hide-scheduled-and-waiting-next-tasks)
- (org-agenda-todo-ignore-with-date aly/hide-scheduled-and-waiting-next-tasks)
+ (org-agenda-skip-function 'my/skip-project-tasks)
+ (org-agenda-todo-ignore-scheduled my/hide-scheduled-and-waiting-next-tasks)
+ (org-agenda-todo-ignore-deadlines my/hide-scheduled-and-waiting-next-tasks)
+ (org-agenda-todo-ignore-with-date my/hide-scheduled-and-waiting-next-tasks)
(org-agenda-sorting-strategy
'(category-keep))))
(tags-todo "-CANCELLED+WAITING|HOLD/!"
((org-agenda-overriding-header
(concat "Waiting and Postponed Tasks"
- (if aly/hide-scheduled-and-waiting-next-tasks
+ (if my/hide-scheduled-and-waiting-next-tasks
""
" (including WAITING and SCHEDULED tasks)")))
- (org-agenda-skip-function 'aly/skip-non-tasks)
+ (org-agenda-skip-function 'my/skip-non-tasks)
(org-tags-match-list-sublevels nil)
- (org-agenda-todo-ignore-scheduled aly/hide-scheduled-and-waiting-next-tasks)
- (org-agenda-todo-ignore-deadlines aly/hide-scheduled-and-waiting-next-tasks)))
+ (org-agenda-todo-ignore-scheduled my/hide-scheduled-and-waiting-next-tasks)
+ (org-agenda-todo-ignore-deadlines my/hide-scheduled-and-waiting-next-tasks)))
(tags "-REFILE/"
((org-agenda-overriding-header "Tasks to Archive")
- (org-agenda-skip-function 'aly/skip-non-archivable-tasks)
+ (org-agenda-skip-function 'my/skip-non-archivable-tasks)
(org-tags-match-list-sublevels nil))))
nil)))
- (defun aly/org-auto-exclude-function (tag)
+ (defun my/org-auto-exclude-function (tag)
"Automatic task exclusion in the agenda with `/ RET'"
(and (cond
((string= tag "hold") t) ; exclude "HOLD" tasks
)
(concat "-" tag)))
- (setq org-agenda-auto-exclude-function 'aly/org-auto-exclude-function)
+ (setq org-agenda-auto-exclude-function 'my/org-auto-exclude-function)
;; Clocking
;;
@@ -202,7 +202,7 @@
;; Resume clocking task on clock-in if the clock is open
(setq org-clock-in-resume t)
;; Change tasks to `NEXT' when clocking in
- (setq org-clock-in-switch-to-state 'aly/clock-in-to-next)
+ (setq org-clock-in-switch-to-state 'my/clock-in-to-next)
;; Separate drawers for clocking and logs
(setq org-drawers '("PROPERTIES" "LOGBOOK"))
;; Save clock data and state changes and notes in the `LOGBOOK' drawer
@@ -211,7 +211,7 @@
(setq org-clock-out-remove-zero-time-clocks t)
;; Clock out when moving task to a done state
(setq org-clock-out-when-done t)
- (add-hook 'org-clock-out-hook 'aly/clock-out-maybe 'append)
+ (add-hook 'org-clock-out-hook 'my/clock-out-maybe 'append)
;; Use discrete minute intervals (no rounding) increments for time editing
(setq org-time-stamp-rounding-minutes '(1 1))
@@ -281,6 +281,6 @@
)
-(provide 'aly-org-config)
+(provide 'my-org)
-;;; aly-org-config.el ends here
+;;; my-org.el ends here
diff --git a/_spacemacs.d/init.el b/_spacemacs.d/init.el
index 97583a1..9b3b791 100644
--- a/_spacemacs.d/init.el
+++ b/_spacemacs.d/init.el
@@ -485,8 +485,8 @@
;;
;; Load custom configurations
(push "~/.spacemacs.d/config" load-path)
- (require 'aly-org-config)
- (require 'aly-mu4e-config)
+ (require 'my-org)
+ (require 'my-mu4e)
;;
;; Set custom file location instead of using this file
(setq custom-file "~/.spacemacs.d/custom.el")