Incorporate some suggestions from the byte compiler

master
Daniel Borchmann 2 years ago
parent 7085e3ff65
commit 336ee9d7c4
No known key found for this signature in database
GPG Key ID: 1C7071A75BB72D64
  1. 3
      site-lisp/db-customize.el
  2. 2
      site-lisp/db-hydras.el
  3. 8
      site-lisp/db-org.el
  4. 12
      site-lisp/db-projects.el
  5. 3
      site-lisp/db-utils.el

@ -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…
Cancel
Save