#+TITLE: SKILL: Hardware Inhabitation Agent (Universal Literate Note)
#+ID: skill-hardware-inhabitation
#+STARTUP: content
#+FILETAGS: :sovereignty:deployment:bare-metal:lisp:psf:
#+DEPENDS_ON: skill-shell-actuator skill-environment-config

* Overview
The **Hardware Inhabitation Agent** is the system's "Physical Interface." It manages the deployment of the Lisp Machine across different hardware compartments, ensuring absolute sovereignty via bare-metal inhabitation and environment portability.

* Phase A: Demand (PRD)
:PROPERTIES:
:STATUS: FROZEN
:END:

** 1. Purpose
Define the interfaces for hardware-level deployment and image serialization.

** 2. User Needs
- **Bare-Metal Deployment:** Support for running Lisp directly on minimal hardware (e.g., RISC-V/ARM).
- **Image Portability:** Serialize and move the live Lisp Image across environments.
- **Hardware Inventory:** Maintain a manifest of available physical actuators and sensors.
- **Sovereignty Audit:** Verify that the current inhabitation is free from non-sovereign dependencies.

* Phase D: Build (Implementation)

** Inhabitation Logic
#+begin_src lisp :tangle projects/org-skill-hardware-inhabitation/src/inhabitation-logic.lisp
(defun inhabitation-serialize-image (target-path)
  "Serializes the live SBCL image for migration to a new hardware compartment."
  (kernel-log "SOVEREIGNTY [Hardware] - Serializing Lisp Image to ~a..." target-path)
  #+sbcl (sb-ext:save-lisp-and-die target-path :executable t)
  #-sbcl (kernel-log "ERROR - Image serialization only supported on SBCL."))

(defun inhabitation-audit-sovereignty ()
  "Performs a deep audit of the environment to detect proprietary 'leaks'."
  (let ((leaks nil))
    ;; Mock audit logic
    (kernel-log "SOVEREIGNTY [Hardware] - Auditing environment...")
    (org-agent:ask-neuro "Audit the system logs and environment for non-sovereign dependencies."
                         :system-prompt "You are the PSF Sovereignty Auditor. Look for proprietary telemetry or cloud hooks.")))
#+end_src

* Registration
#+begin_src lisp
(defskill :skill-hardware-inhabitation
  :priority 100 ; Mandatory sovereignty gate
  :trigger (lambda (context) (eq (getf (getf context :payload) :sensor) :sovereignty-audit))
  :neuro (lambda (context) "Synthesize a sovereignty report based on the hardware audit.")
  :symbolic (lambda (action context) action))
#+end_src