dmgerman

"""This file acts as the main module for this script."""

import traceback
import adsk.core
import adsk.fusion
import os
# import adsk.cam

# Initialize the global variables for the Application and UserInterface objects.
app = adsk.core.Application.get()

dmgerman

dmg_all_keys = {"cmd", "alt", "ctrl"}

hs.console.consoleFont({
    __luaSkinType = "NSFont",
    name = "Menlo-Regular",
    size = 18.0
})

hs.hotkey.bind(

dmgerman

(message "what is going on")

(setq package-enable-at-startup nil)

;;; REMEMBER: they are in reverse mode!

(add-to-list 'load-path "~/.emacs.d/org-mode/lisp")
(add-to-list 'load-path "~/.emacs.d/modules/org-roam")
(add-to-list 'load-path "~/.emacs.d/modules/consult")

dmgerman

(defun dmg-agenda-section-test (parm)
  "Generate a custom section to be inserted into the agenda.  Takes an optional PARM parameter."
  (message "Parm --------------[%S]" parm)
  (let (
         (original-pt (point))
         (inhibit-read-only t)
         )
    (goto-char (point-max))
    (let (
          (pt (point))

dmgerman

(use-package org-transclusion
  :ensure t
  )

(require 'org-transclusion-http)

(add-to-list 'org-transclusion-extensions 'org-transclusion-http)
(add-to-list 'org-transclusion-extensions 'org-transclusion-html)
;(add-to-list 'org-transclusion-extensions 'dmg-org-transclusion-function)

dmgerman

(defun org-roam-template-extract-fields (template)
  "return a list with the names of the fields used
in the given template"
  (let (
        (result '())
        (pos 0)
        )

    (while (string-match "\\${\\([^}]+\\)}" template pos)
      ;; position should be saved first, since

dmgerman

(defun dmg-org-roam-danling-links  (&optional limit)
  (let (
        (lim (or limit 25))
        )
    (unless (integerp lim)
      (error "limit should be nil or an integer"))
    (org-roam-db-query
     (format 

dmgerman

formatting fields for presentation

• The way the nodes are processed for the template is very slow.
• To test how slow, I replaced the code and returned the value of the field without any extra manipulation

  See below

• With these changes, the take home:

dmgerman

(defun test-node-creation-original (rows)
    (cl-loop for row in rows
             append (pcase-let* ((`(,id ,file ,file-title ,level ,todo
                                        ,pos ,priority ,scheduled ,deadline
                                        ,title ,properties ,olp  ;;12
                                        ,atime ,mtime ,tags ,aliases ,refs)
                                  row)
                                 (all-titles (cons title aliases)))
                      (mapcar (lambda (temp-title)

dmgerman

(cl-defstruct (org-roam-node (:constructor org-roam-node-create)
                             (:constructor org-roam-node-create-from-db
                                           (title aliases                    ; 2
                                            id file file-title level todo     ; 5
                                            point priority scheduled deadline properties ;;5
                                            olp file-atime file-mtime tags refs)) ;;5
                             (:copier nil))
  "A heading or top level file with an assigned ID property."
  file file-title file-hash file-atime file-mtime ;5 
  id level point todo priority ; 5