0xGA: Check-in [a70702b6fe]

Yet another PHP framework, but made for org-mode and geeks.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fix bad emacs regexps in narv project creation file
Timelines: family | ancestors | descendants | both | narv
Files: files | file ages | folders
SHA1:a70702b6fe0d8d764dacae293045e30bdf72d17c
User & Date: milouse 2014-06-12 18:10:25
Context
2014-08-24
00:35
Little fix to ease first deployment check-in: f1e34534e9 user: milouse tags: narv
2014-06-12
18:10
Fix bad emacs regexps in narv project creation file check-in: a70702b6fe user: milouse tags: narv
2014-06-02
11:32
Shiny messages wrapper for start and stop functions check-in: f68d80e7b3 user: milouse tags: narv
Changes

Changes to narv.

328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
...
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367

;;; Utility functions. DO NOT MODIFY !

(defun ed/orgx-get-file-title ()
  (with-current-buffer (current-buffer)
    (save-excursion
      (goto-char (point-min))
      (if (re-search-forward "#\\+title: ?\\(.*\\)" nil t)
          (match-string 1)
        ""))))

(defun ed/orgx-get-file-name ()
  (when (string= (substring (buffer-name) 0 11) "content.org")
    (file-name-nondirectory (directory-file-name (file-name-directory buffer-file-name)))))

................................................................................

(defun ed/orgx-get-permalink (title)
  (interactive "sTitle: ")
  (message
   (replace-regexp-in-string
    "--+" "-"
    (replace-regexp-in-string
     "^-+\\|-+$" ""
     (replace-regexp-in-string
      "[^a-z]" "-" (downcase (asciify-string title)))))))

(defun ed/orgx-parse-links ()
  (save-excursion
    (goto-char (point-min))
    (let* ((base-path (file-name-directory buffer-file-name))







|







 







|







328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
...
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367

;;; Utility functions. DO NOT MODIFY !

(defun ed/orgx-get-file-title ()
  (with-current-buffer (current-buffer)
    (save-excursion
      (goto-char (point-min))
      (if (re-search-forward "#\\\+title: ?\\\(.*\\\)" nil t)
          (match-string 1)
        ""))))

(defun ed/orgx-get-file-name ()
  (when (string= (substring (buffer-name) 0 11) "content.org")
    (file-name-nondirectory (directory-file-name (file-name-directory buffer-file-name)))))

................................................................................

(defun ed/orgx-get-permalink (title)
  (interactive "sTitle: ")
  (message
   (replace-regexp-in-string
    "--+" "-"
    (replace-regexp-in-string
     "^-+\\\|-+$" ""
     (replace-regexp-in-string
      "[^a-z]" "-" (downcase (asciify-string title)))))))

(defun ed/orgx-parse-links ()
  (save-excursion
    (goto-char (point-min))
    (let* ((base-path (file-name-directory buffer-file-name))