Incorporate some suggestions from the byte compiler
This commit is contained in:
parent
7085e3ff65
commit
336ee9d7c4
|
@ -4,6 +4,8 @@
|
|||
|
||||
;;; Code:
|
||||
|
||||
(require 'gnutls)
|
||||
|
||||
(defgroup personal-settings nil
|
||||
"A bunch of functions and variables for personalizing emacs."
|
||||
:prefix "db/"
|
||||
|
@ -38,7 +40,6 @@ search commands like `db/helm-shortcuts’."
|
|||
Assumes that NEW-VALUE points to a directory, and certificates
|
||||
are assumed to be of the form *.crt."
|
||||
(set symbol new-value)
|
||||
(require 'gnutls)
|
||||
(when (file-directory-p new-value)
|
||||
(dolist (cert-file (directory-files new-value t ".crt$"))
|
||||
(add-to-list 'gnutls-trustfiles cert-file))))
|
||||
|
|
|
@ -4,6 +4,8 @@
|
|||
|
||||
;;; Code:
|
||||
|
||||
(declare-function rectangle-exchange-point-and-mark "rect")
|
||||
|
||||
(require 'hydra)
|
||||
|
||||
(defhydra hydra-toggle (:color blue)
|
||||
|
|
|
@ -8,8 +8,14 @@
|
|||
|
||||
;;; Code:
|
||||
|
||||
(require 'org)
|
||||
(require 'org-agenda)
|
||||
(require 'hydra)
|
||||
(require 'db-customize)
|
||||
|
||||
(declare-function counsel-org-goto-all "counsel")
|
||||
(declare-function which-function "which-func")
|
||||
|
||||
|
||||
;;; Agenda Customization
|
||||
|
||||
|
@ -117,7 +123,7 @@ If OTHERS is true, skip all entries that do not correspond to TAG."
|
|||
|
||||
If a is before b, return -1. If a is after b, return 1. If they
|
||||
are equal return nil."
|
||||
(lexical-let ((prop prop))
|
||||
(let ((prop prop))
|
||||
#'(lambda (a b)
|
||||
(let* ((a-pos (get-text-property 0 'org-marker a))
|
||||
(b-pos (get-text-property 0 'org-marker b))
|
||||
|
|
|
@ -6,9 +6,13 @@
|
|||
|
||||
;;; Code:
|
||||
|
||||
(declare-function projectile-add-known-project "projectile")
|
||||
(declare-function projectile-cleanup-known-projects "projectile")
|
||||
|
||||
(require 'subr-x)
|
||||
(require 'cl-lib)
|
||||
(require 'dash)
|
||||
(require 'bookmark)
|
||||
|
||||
(defgroup projects nil
|
||||
"Simple directory-based project management"
|
||||
|
@ -17,11 +21,13 @@
|
|||
|
||||
(defcustom projects-main-project-directory "~/Documents/projects/"
|
||||
"Main directory to host projects."
|
||||
:group 'projects)
|
||||
:group 'projects
|
||||
:type 'directory)
|
||||
|
||||
(defcustom projects-archive-directory "~/Documents/projects/.archive"
|
||||
(defcustom projects-archive-directory "~/Documents/projects/.archive/"
|
||||
"Directory to archive projects into"
|
||||
:group 'projects)
|
||||
:group 'projects
|
||||
:type 'directory)
|
||||
|
||||
(defun projects-project-exists-p (short-name)
|
||||
"Check whether a project named SHORT-NAME already exists"
|
||||
|
|
|
@ -12,6 +12,7 @@
|
|||
(require 'cl-lib)
|
||||
(require 'dash)
|
||||
(require 'db-customize)
|
||||
(require 'bookmark)
|
||||
|
||||
|
||||
;;; Application Shortcuts
|
||||
|
@ -422,7 +423,7 @@ drawers, will be copied to point."
|
|||
(org-element-at-point))))
|
||||
(unless (string-equal (org-element-property :title template-element)
|
||||
"Template")
|
||||
(assert "Template must be first headline in periodic task."))
|
||||
(user-error "Template must be first headline in periodic task."))
|
||||
;; XXX: trying to get the contents of the current item, without any
|
||||
;; drawers, by going to the end of the template item and marking the
|
||||
;; element at point, which, incidentally, seems to be the content we are
|
||||
|
|
Loading…
Reference in New Issue