From 994477840a293742e420fc4116ff2c154c780a18 Mon Sep 17 00:00:00 2001
From: Oscar Najera <hi@oscarnajera.com>
Date: Wed, 1 Jan 2025 16:09:37 +0100
Subject: grocy products
---
elisp/grocy.el | 76 +++++++++++++++++++++++++++++++++++++---------------------
1 file changed, 49 insertions(+), 27 deletions(-)
diff --git a/elisp/grocy.el b/elisp/grocy.el
index 49638fb..923d36d 100644
--- a/elisp/grocy.el
+++ b/elisp/grocy.el
@@ -82,8 +82,24 @@ Set METHOD to other request types and include the already encoded DATA."
(json-parse-buffer :object-type 'plist))
(setq grocy-locations result)))))
+(defun grocy-update-product-groups ()
+ "Update localdb with product groups."
+ (grocy--request
+ "objects/product_groups"
+ (lambda (_status)
+ (goto-char url-http-end-of-headers)
+ (let ((result (make-hash-table)))
+ (mapc
+ (lambda (groups)
+ (-let (((&plist :id :name) groups))
+ (puthash id name result)))
+ (json-parse-buffer :object-type 'plist))
+ (setq grocy-product-groups result)))))
+
+
(grocy-update-units)
(grocy-update-locations)
+(grocy-update-product-groups)
(defun grocy-stock--row (row)
"Compose ROW into tabulated entry for stock view."
@@ -124,39 +140,45 @@ Set METHOD to other request types and include the already encoded DATA."
(tabulated-list-print)
(display-buffer (current-buffer)))))))
-(defun grocy-products ()
- "Render tabulated list view of products."
- (interactive)
+(defun grocy-products--row (product)
+ (-let* (((&hash "name" "location_id" "qu_id_stock"
+ "min_stock_amount" "product_group_id") product)
+ (prod-group (gethash product_group_id grocy-product-groups)))
+ (list product
+ (vector name
+ (car (gethash location_id grocy-locations))
+ (car (gethash qu_id_stock grocy-units))
+ (number-to-string min_stock_amount)
+ (if prod-group prod-group "NULL" )))))
+
+(defun grocy-products--refresh ()
(grocy--request
"objects/products"
(lambda (_status)
(goto-char url-http-end-of-headers)
(let ((result (json-parse-buffer)))
(with-current-buffer (get-buffer-create "Grocy products")
- (tabulated-list-mode)
- (setq tabulated-list-format [("Name" 40 t)
- ("Location" 15 t)
- ("Unit" 8 t)
- ("min stock" 5 t)]
- tabulated-list-sort-key '("Name"))
+ (setq tabulated-list-entries
+ (cl-map 'list #'grocy-products--row result))
+ (tabulated-list-print 'remember t))))))
- (thread-last
- (cl-map 'list
- (lambda (product)
- (-let (((&hash "name" "location_id" "qu_id_stock"
- "min_stock_amount") product))
- (list product
- (vector name
- (car (gethash location_id grocy-locations))
- (car (gethash qu_id_stock grocy-units))
- (number-to-string min_stock_amount)))))
- result)
- (setq tabulated-list-entries))
- (local-set-key "e" #'grocy-update-product)
- (local-set-key "a" #'grocy-add-product-shopping-list)
- (tabulated-list-init-header)
- (tabulated-list-print)
- (display-buffer (current-buffer)))))))
+(defun grocy-products ()
+ "Render tabulated list view of products."
+ (interactive)
+ (with-current-buffer (get-buffer-create "Grocy products")
+ (tabulated-list-mode)
+ (setq tabulated-list-format [("Name" 40 t)
+ ("Location" 25 t)
+ ("Unit" 8 t)
+ ("min stock" 5 t)
+ ("Group" 10 t)]
+ tabulated-list-sort-key '("Name"))
+ (local-set-key "e" #'grocy-update-product)
+ (local-set-key "a" #'grocy-add-product-shopping-list)
+ (add-hook 'tabulated-list-revert-hook #'grocy-products--refresh nil t)
+ (run-hooks 'tabulated-list-revert-hook)
+ (tabulated-list-init-header)
+ (display-buffer (current-buffer))))
(defun grocy--message-error-reply (status)
"Display `url-retrieve' response buffer and error STATUS."
@@ -169,8 +191,8 @@ Set METHOD to other request types and include the already encoded DATA."
(defun grocy-push-buffer-and-kill-fn (endpoint method)
"Function to assign to keymap that pushed to ENDPOINT by METHOD."
(lambda ()
- (interactive)
"Push current buffer to defined endpoint."
+ (interactive)
(grocy--request
endpoint
#'grocy--message-error-reply
--
cgit v1.2.3