howard/hamacs
howard/hamacs
1
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix bugs ...

Browse source 
Including splitting out the project list (so that it can be added to
later in the initialization), a bug found in the `beep` code.
This commit is contained in:
Howard Abrams 2022-01-04 16:12:20 -08:00
parent 129f834812
commit 6791c7bdc8
3 changed files with 18 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
elisp/beep.el
View file

@ -97,11 +97,12 @@ See `beep--when-finished' for details."
(defun beep--extract-function-name (expr) (defun beep--extract-function-name (expr)
"Extracts the original function from a lambda expression, EXPR." "Extracts the original function from a lambda expression, EXPR."
(if (listp expr) (cond ((listp expr)
(if (equal (car expr) 'lambda) (if (equal (car expr) 'lambda)
(car (cadr expr)) (car (cadr expr))
expr) (car expr)))
expr)) ((stringp expr) expr)
(t "")))
(provide 'beep) (provide 'beep)
;;; beep.el ends here ;;; beep.el ends here

10
ha-aux-apps.org
View file

@ -99,6 +99,8 @@ Add my org-specific predicates, see this [[http://www.howardism.org/Technical/Em
(re-search-forward ,reg nil t 1)))) (re-search-forward ,reg nil t 1))))
(error "The `T' predicate takes an org-mode tag value in single quotes."))) (error "The `T' predicate takes an org-mode tag value in single quotes.")))
(defvar eshell-predicate-alist nil
"A list of predicates than can be applied to a globbing pattern.")
(add-to-list 'eshell-predicate-alist '(?T . (eshell-org-file-tags))) (add-to-list 'eshell-predicate-alist '(?T . (eshell-org-file-tags)))
#+END_SRC #+END_SRC
** VTerm ** VTerm
@ -170,14 +172,6 @@ Been working on a project for getting Emacs helping as a /Dungeon Master's Assis
:commands (rpgdm-mode rpgdm-tables-load) :commands (rpgdm-mode rpgdm-tables-load)
:config (ha-leader "t D" '("rpg dm" . rpgdm-mode))) :config (ha-leader "t D" '("rpg dm" . rpgdm-mode)))
#+END_SRC #+END_SRC
While it is a minor mode, I don't necessarily want to turn it on for all files.
Instead, in an Org file, I just need to include something like this:
#+BEGIN_SRC org
# Local Variables:
# eval: (progn (rpgdm-mode 1) (rpgdm-tables-load "ironsworn"))
# End:
#+END_SRC
* Technical Artifacts :noexport: * Technical Artifacts :noexport:
Let's =provide= a name so we can =require= this file: Let's =provide= a name so we can =require= this file:

16
ha-config.org
View file

@ -957,12 +957,16 @@ Let's describe a list of startup project workspaces. This way, I don't need the
Granted, this list is essentially a list of projects that I'm currently developing, so I expect this to change often. Granted, this list is essentially a list of projects that I'm currently developing, so I expect this to change often.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(defvar ha-workspace-projects-personal (defvar ha-workspace-projects-personal nil "List of default projects with a name.")
'(("projects" "~/projects" ("breathe.org" "tasks.org"))
("personal" "~/personal" ("general.org")) (add-to-list 'ha-workspace-projects-personal
("technical" "~/technical" ("ansible.org")) '("projects" "~/projects" ("breathe.org" "tasks.org")))
("hamacs" "~/other/hamacs" ("README.org" "ha-config.org"))) (add-to-list 'ha-workspace-projects-personal
"List of default projects with a name.") '("personal" "~/personal" ("general.org")))
(add-to-list 'ha-workspace-projects-personal
'("technical" "~/technical" ("ansible.org")))
(add-to-list 'ha-workspace-projects-personal
'("hamacs" "~/other/hamacs" ("README.org" "ha-config.org")))
#+END_SRC #+END_SRC
Given a list of information about project-workspaces, can we just create them all? Given a list of information about project-workspaces, can we just create them all?