emacs.si srečanje maj 2025

POST https://prevedi.kompot.si/translate
Content-Type: application/json

{
  "q": "daj no delaj prosim",
  "source": "sl",
  "target": "de"
}

;; Moja osebna bljižnica
("C-c C-l" . ar/org-insert-link-dwim)

(defun js/get-link-title (url)
    "Get the title for a given URL based on its type."
    (cond
     ;; ((string-prefix-p "http" url t)
     ;;  (with-current-buffer (url-retrieve-synchronously url)
     ;;   (let ((dom (libxml-parse-html-region (point-min) (point-max))))
     ;;     (string-trim (dom-text (car (dom-by-tag dom 'title)))))))

     ;; Prebere ime spletne strani na http povezavi
     ((string-prefix-p "http" url t)
      (condition-case nil
          (let ((buffer (url-retrieve-synchronously url t t 3))) ; Add timeout of 3 seconds
            (when buffer
              (unwind-protect
                  (with-current-buffer buffer
                    (let ((dom (libxml-parse-html-region (point-min) (point-max))))
                      (string-trim (dom-text (car (dom-by-tag dom 'title))))))
    (kill-buffer buffer))))
  (error nil)))

     ;; Prebere naslov org-roam vozlišča - potrebuje org-roam
     ;; Če le-ta ni naložen ne bi smelo biti problemov, saj v
     ;; tem primeru težko dobiš id povezavo.
     ((string-prefix-p "id:" url t)
      (let* ((id (string-remove-prefix "id:" url))
             (node (org-roam-node-from-id id)))
  (org-roam-node-title node)))

     ;; Formatira povezavo do vnosa v elfeedovi podatkovni bazi
     ;; Dela, če je postavljen tip org povezave:
     ;; ((string-prefix-p "elfeed:" url t)
     ;;  (let* ((link (string-remove-prefix "elfeed:" url))
     ;;         (entry (when (string-match "\\([^#]+\\)#\\(.+\\)" link)
     ;;                  (elfeed-db-get-entry (cons (match-string 1 link)
     ;;              (match-string 2 link))))))
     ;;   (when entry
     ;;      (let ((title (elfeed-entry-title entry))
     ;;     (author (get-elfeed-entry-author entry)))
     ;;        (if author
     ;;     (format "%s - %s" title author)
     ;;          title)))))

     (t nil)))  ; Return nil for unrecognized URL types

  (defun js/format-link (url)
    "Return the current `link' formatted as an org link with its title."
    (let ((title (js/get-link-title url)))
      (if title
          (org-link-make-string url title)
  (org-link-make-string url))))  ; Just create a plain link if no title

  (defun ar/org-insert-link-dwim ()
    "Like `org-insert-link' but with personal dwim preferences."
    (interactive)
    (let* ((point-in-link (org-in-regexp org-link-any-re 1))
           (clipboard-url (when (string-match-p "^http" (current-kill 0))
                            (current-kill 0)))
           (region-content (when (region-active-p)
                             (buffer-substring-no-properties (region-beginning)
                                                             (region-end)))))
      (cond ((and region-content clipboard-url (not point-in-link))
             (delete-region (region-beginning) (region-end))
             (insert (org-link-make-string clipboard-url region-content)))
      ;; New URLs default to title
            ((and clipboard-url (not point-in-link))
             (insert (js/format-link clipboard-url)))
            (t (call-interactively 'org-insert-link)))))