dmgerman

windowKeys = {}

function wkeys_prompt_for_key()
  local w = hs.window.focusedWindow()
  local result = nil
  hs.application.get("Hammerspoon"):activate()
  local button, text = hs.dialog.textPrompt("Input number key", "Please enter a single numeric character:", "", "OK", "Cancel")

  if button == "OK" then
    result =  text

dmgerman

important, this should the first thing of the file

;;; -*- lexical-binding: t; -*-

dmgerman

;; -*- lexical-binding: t; -*-

;; so they can't be simply changed
(setq dmg-parea-list (list "PROJ" "SPROJ" "AREA"))


;; this are probably hardcoded in some of the queries below
(setq dmg-org-roam-view-with-ancestors  "v_dmg_todos_with_ancestor")
(setq dmg-org-roam-view-prarea "v_dmg_prarea")
(setq dmg-org-roam-view-nexts  "v_dmg_nexts")

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